From e15ee8f47d8822764ee5b1a30e428a88876f4b0f Mon Sep 17 00:00:00 2001 From: "wanderlan.anjos@gmail.com" Date: Wed, 27 Mar 2013 17:21:02 +0000 Subject: [PATCH] Updating Samples for Ext JS 4.2 --- ExtJSWrapper/Ext.pas | 15395 +++++++++++++-------------- ExtJSWrapper/ExtFixes.txt | 93 +- ExtJSWrapper/ExtToPascal.dpr | 80 +- ExtJSWrapper/ExtToPascal.dproj | 46 +- ExtJSWrapper/ExtToPascal.dsk | 543 +- ExtPascalSamples/BasicTabPanel.pas | 4 +- ExtPascalSamples/FileUpload.pas | 8 +- ExtPascalSamples/Session.pas | 10 +- 8 files changed, 8019 insertions(+), 8160 deletions(-) diff --git a/ExtJSWrapper/Ext.pas b/ExtJSWrapper/Ext.pas index e959461..f7d9e2d 100644 --- a/ExtJSWrapper/Ext.pas +++ b/ExtJSWrapper/Ext.pas @@ -1,6 +1,6 @@ unit Ext; -// Generated by JSToPascal v.0.9.9, at 22/03/2013 18:39:41 +// Generated by JSToPascal v.0.9.9, at 27/03/2013 13:43:47 // from "\extpascal\ext-4.2.0\src interface @@ -333,6 +333,7 @@ TExtMenuItem = class; TExtMenuKeyNav = class; TExtMenuManagerSingleton = class; TExtMenuSeparator = class; + TExtMessageBoxSingleton = class; TExtModelManagerSingleton = class; TExtPanel = class; TExtPanelAbstractPanel = class; @@ -484,8 +485,7 @@ TExtDataRecord = class(TExtObject); TExtDataStorePageMap = class(TExtObject); TExtDomAbstractElementFly = class(TExtObject); TExtElement = class(TExtObject); - TExtEnumsLayout = class(TExtObject); - TExtEnumsPlugin = class(TExtObject); + TExtEnumsLayout = (laAbsolute, laAccordion, laAnchor, laAutocomponent, laAutocontainer, laBorder, laBox, laCard, laCheckboxgroup, laColumn, laContainer, laFit, laForm, laHbox, laTable, laVbox); TExtEnumsWidget = class(TExtObject); TExtError = class(TExtObject); TExtEventObject = class(TExtObject); @@ -524,10 +524,10 @@ TExtUtilHistory = class(TExtObject); TExtAbstractComponent = class(TExtFunction) private FAutoEl : String; - FAutoElTExtObject : TExtObject; + FAutoElObject : TExtObject; FAutoRender : Boolean; + FAutoRenderElement : TExtElement; FAutoRenderString : String; - FAutoRenderTExtElement : TExtElement; FAutoRenderTHTMLElement : THTMLElement; FAutoShow : Boolean; FBaseCls : String; @@ -538,7 +538,7 @@ TExtAbstractComponent = class(TExtFunction) FCls : String; FComponentCls : String; FComponentLayout : String; - FComponentLayoutTExtObject : TExtObject; + FComponentLayoutObject : TExtObject; FContentEl : String; FContentPaddingProperty : String; FData : TExtObject; @@ -552,13 +552,13 @@ TExtAbstractComponent = class(TExtFunction) FHidden : Boolean; FHideMode : String; FHtml : String; - FHtmlTExtObject : TExtObject; + FHtmlObject : TExtObject; FId : String; FIsObservable : Boolean; FItemId : String; FListeners : TExtObject; FLoader : TExtComponentLoader; - FLoaderTExtObject : TExtObject; + FLoaderObject : TExtObject; FMargin : Integer; FMarginString : String; FMaskOnDisable : Boolean; @@ -570,14 +570,13 @@ TExtAbstractComponent = class(TExtFunction) FPadding : Integer; FPaddingString : String; FPlugins : TExtObjectList; - FPluginsTExtAbstractPlugin : TExtAbstractPlugin; - FPluginsTExtEnumsPlugin : TExtEnumsPlugin; - FPluginsTExtObject : TExtObject; - FPluginsTExtObjectList : TExtObjectList; + FPluginsList : TExtObjectList; + FPluginsObject : TExtObject; + FPluginsPlugin : TExtAbstractPlugin; FRenderData : TExtObject; FRenderSelectors : TExtObject; FRenderTo : String; - FRenderToTExtElement : TExtElement; + FRenderToElement : TExtElement; FRenderToTHTMLElement : THTMLElement; FSaveDelay : Integer; FShrinkWrap : Boolean; @@ -586,11 +585,11 @@ TExtAbstractComponent = class(TExtFunction) FStateful : Boolean; FStateId : String; FStyle : String; - FStyleTExtObject : TExtObject; + FStyleObject : TExtObject; FTpl : TExtXTemplate; + FTplList : TExtObjectList; FTplString : String; - FTplTExtObjectList : TExtObjectList; - FTplTExtTemplate : TExtTemplate; + FTplTemplate : TExtTemplate; FTplWriteMode : String; FUi : String; FWidth : Integer; @@ -622,10 +621,10 @@ TExtAbstractComponent = class(TExtFunction) FOnStaterestore : TExtAbstractComponentOnStaterestore; FOnStatesave : TExtAbstractComponentOnStatesave; procedure SetFAutoEl(Value : String); - procedure SetFAutoElTExtObject(Value : TExtObject); + procedure SetFAutoElObject(Value : TExtObject); procedure SetFAutoRender(Value : Boolean); + procedure SetFAutoRenderElement(Value : TExtElement); procedure SetFAutoRenderString(Value : String); - procedure SetFAutoRenderTExtElement(Value : TExtElement); procedure SetFAutoRenderTHTMLElement(Value : THTMLElement); procedure SetFAutoShow(Value : Boolean); procedure SetFBaseCls(Value : String); @@ -636,7 +635,7 @@ TExtAbstractComponent = class(TExtFunction) procedure SetFCls(Value : String); procedure SetFComponentCls(Value : String); procedure SetFComponentLayout(Value : String); - procedure SetFComponentLayoutTExtObject(Value : TExtObject); + procedure SetFComponentLayoutObject(Value : TExtObject); procedure SetFContentEl(Value : String); procedure SetFContentPaddingProperty(Value : String); procedure SetFData(Value : TExtObject); @@ -650,13 +649,13 @@ TExtAbstractComponent = class(TExtFunction) procedure SetFHidden(Value : Boolean); procedure SetFHideMode(Value : String); procedure SetFHtml(Value : String); - procedure SetFHtmlTExtObject(Value : TExtObject); + procedure SetFHtmlObject(Value : TExtObject); procedure SetFId(Value : String); procedure SetFIsObservable(Value : Boolean); procedure SetFItemId(Value : String); procedure SetFListeners(Value : TExtObject); procedure SetFLoader(Value : TExtComponentLoader); - procedure SetFLoaderTExtObject(Value : TExtObject); + procedure SetFLoaderObject(Value : TExtObject); procedure SetFMargin(Value : Integer); procedure SetFMarginString(Value : String); procedure SetFMaskOnDisable(Value : Boolean); @@ -668,14 +667,13 @@ TExtAbstractComponent = class(TExtFunction) procedure SetFPadding(Value : Integer); procedure SetFPaddingString(Value : String); procedure SetFPlugins(Value : TExtObjectList); - procedure SetFPluginsTExtAbstractPlugin(Value : TExtAbstractPlugin); - procedure SetFPluginsTExtEnumsPlugin(Value : TExtEnumsPlugin); - procedure SetFPluginsTExtObject(Value : TExtObject); - procedure SetFPluginsTExtObjectList(Value : TExtObjectList); + procedure SetFPluginsList(Value : TExtObjectList); + procedure SetFPluginsObject(Value : TExtObject); + procedure SetFPluginsPlugin(Value : TExtAbstractPlugin); procedure SetFRenderData(Value : TExtObject); procedure SetFRenderSelectors(Value : TExtObject); procedure SetFRenderTo(Value : String); - procedure SetFRenderToTExtElement(Value : TExtElement); + procedure SetFRenderToElement(Value : TExtElement); procedure SetFRenderToTHTMLElement(Value : THTMLElement); procedure SetFSaveDelay(Value : Integer); procedure SetFShrinkWrap(Value : Boolean); @@ -684,11 +682,11 @@ TExtAbstractComponent = class(TExtFunction) procedure SetFStateful(Value : Boolean); procedure SetFStateId(Value : String); procedure SetFStyle(Value : String); - procedure SetFStyleTExtObject(Value : TExtObject); + procedure SetFStyleObject(Value : TExtObject); procedure SetFTpl(Value : TExtXTemplate); + procedure SetFTplList(Value : TExtObjectList); procedure SetFTplString(Value : String); - procedure SetFTplTExtObjectList(Value : TExtObjectList); - procedure SetFTplTExtTemplate(Value : TExtTemplate); + procedure SetFTplTemplate(Value : TExtTemplate); procedure SetFTplWriteMode(Value : String); procedure SetFUi(Value : String); procedure SetFWidth(Value : Integer); @@ -837,10 +835,10 @@ TExtAbstractComponent = class(TExtFunction) function UpdateLayout(Options : TExtObject = nil; OptionsDefer : Boolean = false; OptionsIsRoot : Boolean = false) : TExtFunction; destructor Destroy; override; property AutoEl : String read FAutoEl write SetFAutoEl; - property AutoElTExtObject : TExtObject read FAutoElTExtObject write SetFAutoElTExtObject; + property AutoElObject : TExtObject read FAutoElObject write SetFAutoElObject; property AutoRender : Boolean read FAutoRender write SetFAutoRender; + property AutoRenderElement : TExtElement read FAutoRenderElement write SetFAutoRenderElement; property AutoRenderString : String read FAutoRenderString write SetFAutoRenderString; - property AutoRenderTExtElement : TExtElement read FAutoRenderTExtElement write SetFAutoRenderTExtElement; property AutoRenderTHTMLElement : THTMLElement read FAutoRenderTHTMLElement write SetFAutoRenderTHTMLElement; property AutoShow : Boolean read FAutoShow write SetFAutoShow; property BaseCls : String read FBaseCls write SetFBaseCls; @@ -851,7 +849,7 @@ TExtAbstractComponent = class(TExtFunction) property Cls : String read FCls write SetFCls; property ComponentCls : String read FComponentCls write SetFComponentCls; property ComponentLayout : String read FComponentLayout write SetFComponentLayout; - property ComponentLayoutTExtObject : TExtObject read FComponentLayoutTExtObject write SetFComponentLayoutTExtObject; + property ComponentLayoutObject : TExtObject read FComponentLayoutObject write SetFComponentLayoutObject; property ContentEl : String read FContentEl write SetFContentEl; property ContentPaddingProperty : String read FContentPaddingProperty write SetFContentPaddingProperty; property Data : TExtObject read FData write SetFData; @@ -865,13 +863,13 @@ TExtAbstractComponent = class(TExtFunction) property Hidden : Boolean read FHidden write SetFHidden; property HideMode : String read FHideMode write SetFHideMode; property Html : String read FHtml write SetFHtml; - property HtmlTExtObject : TExtObject read FHtmlTExtObject write SetFHtmlTExtObject; + property HtmlObject : TExtObject read FHtmlObject write SetFHtmlObject; property Id : String read FId write SetFId; property IsObservable : Boolean read FIsObservable write SetFIsObservable; property ItemId : String read FItemId write SetFItemId; property Listeners : TExtObject read FListeners write SetFListeners; property Loader : TExtComponentLoader read FLoader write SetFLoader; - property LoaderTExtObject : TExtObject read FLoaderTExtObject write SetFLoaderTExtObject; + property LoaderObject : TExtObject read FLoaderObject write SetFLoaderObject; property Margin : Integer read FMargin write SetFMargin; property MarginString : String read FMarginString write SetFMarginString; property MaskOnDisable : Boolean read FMaskOnDisable write SetFMaskOnDisable; @@ -883,14 +881,13 @@ TExtAbstractComponent = class(TExtFunction) property Padding : Integer read FPadding write SetFPadding; property PaddingString : String read FPaddingString write SetFPaddingString; property Plugins : TExtObjectList read FPlugins write SetFPlugins; - property PluginsTExtAbstractPlugin : TExtAbstractPlugin read FPluginsTExtAbstractPlugin write SetFPluginsTExtAbstractPlugin; - property PluginsTExtEnumsPlugin : TExtEnumsPlugin read FPluginsTExtEnumsPlugin write SetFPluginsTExtEnumsPlugin; - property PluginsTExtObject : TExtObject read FPluginsTExtObject write SetFPluginsTExtObject; - property PluginsTExtObjectList : TExtObjectList read FPluginsTExtObjectList write SetFPluginsTExtObjectList; + property PluginsList : TExtObjectList read FPluginsList write SetFPluginsList; + property PluginsObject : TExtObject read FPluginsObject write SetFPluginsObject; + property PluginsPlugin : TExtAbstractPlugin read FPluginsPlugin write SetFPluginsPlugin; property RenderData : TExtObject read FRenderData write SetFRenderData; property RenderSelectors : TExtObject read FRenderSelectors write SetFRenderSelectors; property RenderTo : String read FRenderTo write SetFRenderTo; - property RenderToTExtElement : TExtElement read FRenderToTExtElement write SetFRenderToTExtElement; + property RenderToElement : TExtElement read FRenderToElement write SetFRenderToElement; property RenderToTHTMLElement : THTMLElement read FRenderToTHTMLElement write SetFRenderToTHTMLElement; property SaveDelay : Integer read FSaveDelay write SetFSaveDelay; property ShrinkWrap : Boolean read FShrinkWrap write SetFShrinkWrap; @@ -899,11 +896,11 @@ TExtAbstractComponent = class(TExtFunction) property Stateful : Boolean read FStateful write SetFStateful; property StateId : String read FStateId write SetFStateId; property Style : String read FStyle write SetFStyle; - property StyleTExtObject : TExtObject read FStyleTExtObject write SetFStyleTExtObject; + property StyleObject : TExtObject read FStyleObject write SetFStyleObject; property Tpl : TExtXTemplate read FTpl write SetFTpl; + property TplList : TExtObjectList read FTplList write SetFTplList; property TplString : String read FTplString write SetFTplString; - property TplTExtObjectList : TExtObjectList read FTplTExtObjectList write SetFTplTExtObjectList; - property TplTExtTemplate : TExtTemplate read FTplTExtTemplate write SetFTplTExtTemplate; + property TplTemplate : TExtTemplate read FTplTemplate write SetFTplTemplate; property TplWriteMode : String read FTplWriteMode write SetFTplWriteMode; property Ui : String read FUi write SetFUi; property Width : Integer read FWidth write SetFWidth; @@ -1097,7 +1094,7 @@ TExtFxAnim = class(TExtAbstractComponent) FReverse : Boolean; FScope : TExtFunction; FTarget : String; - FTargetTExtObject : TExtObject; + FTargetObject : TExtObject; FToJS : TExtObject; FOnAfteranimate : TExtFxAnimOnAfteranimate; FOnBeforeanimate : TExtFxAnimOnBeforeanimate; @@ -1117,7 +1114,7 @@ TExtFxAnim = class(TExtAbstractComponent) procedure SetFReverse(Value : Boolean); procedure SetFScope(Value : TExtFunction); procedure SetFTarget(Value : String); - procedure SetFTargetTExtObject(Value : TExtObject); + procedure SetFTargetObject(Value : TExtObject); procedure SetFToJS(Value : TExtObject); procedure SetFOnAfteranimate(Value : TExtFxAnimOnAfteranimate); procedure SetFOnBeforeanimate(Value : TExtFxAnimOnBeforeanimate); @@ -1162,7 +1159,7 @@ TExtFxAnim = class(TExtAbstractComponent) property Reverse : Boolean read FReverse write SetFReverse; property Scope : TExtFunction read FScope write SetFScope; property Target : String read FTarget write SetFTarget; - property TargetTExtObject : TExtObject read FTargetTExtObject write SetFTargetTExtObject; + property TargetObject : TExtObject read FTargetObject write SetFTargetObject; property ToJS : TExtObject read FToJS write SetFToJS; property OnAfteranimate : TExtFxAnimOnAfteranimate read FOnAfteranimate write SetFOnAfteranimate; property OnBeforeanimate : TExtFxAnimOnBeforeanimate read FOnBeforeanimate write SetFOnBeforeanimate; @@ -1273,34 +1270,34 @@ TExtFormLabelable = class(TExtAbstractComponent) private FActiveError : String; FActiveErrorsTpl : String; - FActiveErrorsTplTExtObjectList : TExtObjectList; - FActiveErrorsTplTExtXTemplate : TExtXTemplate; + FActiveErrorsTplList : TExtObjectList; + FActiveErrorsTplTemplate : TExtXTemplate; FAfterBodyEl : String; - FAfterBodyElTExtObjectList : TExtObjectList; - FAfterBodyElTExtXTemplate : TExtXTemplate; + FAfterBodyElList : TExtObjectList; + FAfterBodyElTemplate : TExtXTemplate; FAfterLabelTextTpl : String; - FAfterLabelTextTplTExtObjectList : TExtObjectList; - FAfterLabelTextTplTExtXTemplate : TExtXTemplate; + FAfterLabelTextTplList : TExtObjectList; + FAfterLabelTextTplTemplate : TExtXTemplate; FAfterLabelTpl : String; - FAfterLabelTplTExtObjectList : TExtObjectList; - FAfterLabelTplTExtXTemplate : TExtXTemplate; + FAfterLabelTplList : TExtObjectList; + FAfterLabelTplTemplate : TExtXTemplate; FAfterSubTpl : String; - FAfterSubTplTExtObjectList : TExtObjectList; - FAfterSubTplTExtXTemplate : TExtXTemplate; + FAfterSubTplList : TExtObjectList; + FAfterSubTplTemplate : TExtXTemplate; FAutoFitErrors : Boolean; FBaseBodyCls : String; FBeforeBodyEl : String; - FBeforeBodyElTExtObjectList : TExtObjectList; - FBeforeBodyElTExtXTemplate : TExtXTemplate; + FBeforeBodyElList : TExtObjectList; + FBeforeBodyElTemplate : TExtXTemplate; FBeforeLabelTextTpl : String; - FBeforeLabelTextTplTExtObjectList : TExtObjectList; - FBeforeLabelTextTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTextTplList : TExtObjectList; + FBeforeLabelTextTplTemplate : TExtXTemplate; FBeforeLabelTpl : String; - FBeforeLabelTplTExtObjectList : TExtObjectList; - FBeforeLabelTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTplList : TExtObjectList; + FBeforeLabelTplTemplate : TExtXTemplate; FBeforeSubTpl : String; - FBeforeSubTplTExtObjectList : TExtObjectList; - FBeforeSubTplTExtXTemplate : TExtXTemplate; + FBeforeSubTplList : TExtObjectList; + FBeforeSubTplTemplate : TExtXTemplate; FClearCls : String; FErrorMsgCls : String; FFieldBodyCls : String; @@ -1310,12 +1307,12 @@ TExtFormLabelable = class(TExtAbstractComponent) FHideLabel : Boolean; FInvalidCls : String; FLabelableRenderTpl : String; - FLabelableRenderTplTExtObjectList : TExtObjectList; - FLabelableRenderTplTExtXTemplate : TExtXTemplate; + FLabelableRenderTplList : TExtObjectList; + FLabelableRenderTplTemplate : TExtXTemplate; FLabelAlign : String; FLabelAttrTpl : String; - FLabelAttrTplTExtObjectList : TExtObjectList; - FLabelAttrTplTExtXTemplate : TExtXTemplate; + FLabelAttrTplList : TExtObjectList; + FLabelAttrTplTemplate : TExtXTemplate; FLabelCls : String; FLabelClsExtra : String; FLabelPad : Integer; @@ -1327,34 +1324,34 @@ TExtFormLabelable = class(TExtAbstractComponent) FOnErrorchange : TExtFormLabelableOnErrorchange; procedure SetFActiveError(Value : String); procedure SetFActiveErrorsTpl(Value : String); - procedure SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); - procedure SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFActiveErrorsTplList(Value : TExtObjectList); + procedure SetFActiveErrorsTplTemplate(Value : TExtXTemplate); procedure SetFAfterBodyEl(Value : String); - procedure SetFAfterBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterBodyElList(Value : TExtObjectList); + procedure SetFAfterBodyElTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTextTpl(Value : String); - procedure SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTextTplList(Value : TExtObjectList); + procedure SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTpl(Value : String); - procedure SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTplList(Value : TExtObjectList); + procedure SetFAfterLabelTplTemplate(Value : TExtXTemplate); procedure SetFAfterSubTpl(Value : String); - procedure SetFAfterSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterSubTplList(Value : TExtObjectList); + procedure SetFAfterSubTplTemplate(Value : TExtXTemplate); procedure SetFAutoFitErrors(Value : Boolean); procedure SetFBaseBodyCls(Value : String); procedure SetFBeforeBodyEl(Value : String); - procedure SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeBodyElList(Value : TExtObjectList); + procedure SetFBeforeBodyElTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTextTpl(Value : String); - procedure SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTextTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTpl(Value : String); - procedure SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTplTemplate(Value : TExtXTemplate); procedure SetFBeforeSubTpl(Value : String); - procedure SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeSubTplList(Value : TExtObjectList); + procedure SetFBeforeSubTplTemplate(Value : TExtXTemplate); procedure SetFClearCls(Value : String); procedure SetFErrorMsgCls(Value : String); procedure SetFFieldBodyCls(Value : String); @@ -1364,12 +1361,12 @@ TExtFormLabelable = class(TExtAbstractComponent) procedure SetFHideLabel(Value : Boolean); procedure SetFInvalidCls(Value : String); procedure SetFLabelableRenderTpl(Value : String); - procedure SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelableRenderTplList(Value : TExtObjectList); + procedure SetFLabelableRenderTplTemplate(Value : TExtXTemplate); procedure SetFLabelAlign(Value : String); procedure SetFLabelAttrTpl(Value : String); - procedure SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelAttrTplList(Value : TExtObjectList); + procedure SetFLabelAttrTplTemplate(Value : TExtXTemplate); procedure SetFLabelCls(Value : String); procedure SetFLabelClsExtra(Value : String); procedure SetFLabelPad(Value : Integer); @@ -1401,34 +1398,34 @@ TExtFormLabelable = class(TExtAbstractComponent) destructor Destroy; override; property ActiveError : String read FActiveError write SetFActiveError; property ActiveErrorsTpl : String read FActiveErrorsTpl write SetFActiveErrorsTpl; - property ActiveErrorsTplTExtObjectList : TExtObjectList read FActiveErrorsTplTExtObjectList write SetFActiveErrorsTplTExtObjectList; - property ActiveErrorsTplTExtXTemplate : TExtXTemplate read FActiveErrorsTplTExtXTemplate write SetFActiveErrorsTplTExtXTemplate; + property ActiveErrorsTplList : TExtObjectList read FActiveErrorsTplList write SetFActiveErrorsTplList; + property ActiveErrorsTplTemplate : TExtXTemplate read FActiveErrorsTplTemplate write SetFActiveErrorsTplTemplate; property AfterBodyEl : String read FAfterBodyEl write SetFAfterBodyEl; - property AfterBodyElTExtObjectList : TExtObjectList read FAfterBodyElTExtObjectList write SetFAfterBodyElTExtObjectList; - property AfterBodyElTExtXTemplate : TExtXTemplate read FAfterBodyElTExtXTemplate write SetFAfterBodyElTExtXTemplate; + property AfterBodyElList : TExtObjectList read FAfterBodyElList write SetFAfterBodyElList; + property AfterBodyElTemplate : TExtXTemplate read FAfterBodyElTemplate write SetFAfterBodyElTemplate; property AfterLabelTextTpl : String read FAfterLabelTextTpl write SetFAfterLabelTextTpl; - property AfterLabelTextTplTExtObjectList : TExtObjectList read FAfterLabelTextTplTExtObjectList write SetFAfterLabelTextTplTExtObjectList; - property AfterLabelTextTplTExtXTemplate : TExtXTemplate read FAfterLabelTextTplTExtXTemplate write SetFAfterLabelTextTplTExtXTemplate; + property AfterLabelTextTplList : TExtObjectList read FAfterLabelTextTplList write SetFAfterLabelTextTplList; + property AfterLabelTextTplTemplate : TExtXTemplate read FAfterLabelTextTplTemplate write SetFAfterLabelTextTplTemplate; property AfterLabelTpl : String read FAfterLabelTpl write SetFAfterLabelTpl; - property AfterLabelTplTExtObjectList : TExtObjectList read FAfterLabelTplTExtObjectList write SetFAfterLabelTplTExtObjectList; - property AfterLabelTplTExtXTemplate : TExtXTemplate read FAfterLabelTplTExtXTemplate write SetFAfterLabelTplTExtXTemplate; + property AfterLabelTplList : TExtObjectList read FAfterLabelTplList write SetFAfterLabelTplList; + property AfterLabelTplTemplate : TExtXTemplate read FAfterLabelTplTemplate write SetFAfterLabelTplTemplate; property AfterSubTpl : String read FAfterSubTpl write SetFAfterSubTpl; - property AfterSubTplTExtObjectList : TExtObjectList read FAfterSubTplTExtObjectList write SetFAfterSubTplTExtObjectList; - property AfterSubTplTExtXTemplate : TExtXTemplate read FAfterSubTplTExtXTemplate write SetFAfterSubTplTExtXTemplate; + property AfterSubTplList : TExtObjectList read FAfterSubTplList write SetFAfterSubTplList; + property AfterSubTplTemplate : TExtXTemplate read FAfterSubTplTemplate write SetFAfterSubTplTemplate; property AutoFitErrors : Boolean read FAutoFitErrors write SetFAutoFitErrors; property BaseBodyCls : String read FBaseBodyCls write SetFBaseBodyCls; property BeforeBodyEl : String read FBeforeBodyEl write SetFBeforeBodyEl; - property BeforeBodyElTExtObjectList : TExtObjectList read FBeforeBodyElTExtObjectList write SetFBeforeBodyElTExtObjectList; - property BeforeBodyElTExtXTemplate : TExtXTemplate read FBeforeBodyElTExtXTemplate write SetFBeforeBodyElTExtXTemplate; + property BeforeBodyElList : TExtObjectList read FBeforeBodyElList write SetFBeforeBodyElList; + property BeforeBodyElTemplate : TExtXTemplate read FBeforeBodyElTemplate write SetFBeforeBodyElTemplate; property BeforeLabelTextTpl : String read FBeforeLabelTextTpl write SetFBeforeLabelTextTpl; - property BeforeLabelTextTplTExtObjectList : TExtObjectList read FBeforeLabelTextTplTExtObjectList write SetFBeforeLabelTextTplTExtObjectList; - property BeforeLabelTextTplTExtXTemplate : TExtXTemplate read FBeforeLabelTextTplTExtXTemplate write SetFBeforeLabelTextTplTExtXTemplate; + property BeforeLabelTextTplList : TExtObjectList read FBeforeLabelTextTplList write SetFBeforeLabelTextTplList; + property BeforeLabelTextTplTemplate : TExtXTemplate read FBeforeLabelTextTplTemplate write SetFBeforeLabelTextTplTemplate; property BeforeLabelTpl : String read FBeforeLabelTpl write SetFBeforeLabelTpl; - property BeforeLabelTplTExtObjectList : TExtObjectList read FBeforeLabelTplTExtObjectList write SetFBeforeLabelTplTExtObjectList; - property BeforeLabelTplTExtXTemplate : TExtXTemplate read FBeforeLabelTplTExtXTemplate write SetFBeforeLabelTplTExtXTemplate; + property BeforeLabelTplList : TExtObjectList read FBeforeLabelTplList write SetFBeforeLabelTplList; + property BeforeLabelTplTemplate : TExtXTemplate read FBeforeLabelTplTemplate write SetFBeforeLabelTplTemplate; property BeforeSubTpl : String read FBeforeSubTpl write SetFBeforeSubTpl; - property BeforeSubTplTExtObjectList : TExtObjectList read FBeforeSubTplTExtObjectList write SetFBeforeSubTplTExtObjectList; - property BeforeSubTplTExtXTemplate : TExtXTemplate read FBeforeSubTplTExtXTemplate write SetFBeforeSubTplTExtXTemplate; + property BeforeSubTplList : TExtObjectList read FBeforeSubTplList write SetFBeforeSubTplList; + property BeforeSubTplTemplate : TExtXTemplate read FBeforeSubTplTemplate write SetFBeforeSubTplTemplate; property ClearCls : String read FClearCls write SetFClearCls; property ErrorMsgCls : String read FErrorMsgCls write SetFErrorMsgCls; property FieldBodyCls : String read FFieldBodyCls write SetFFieldBodyCls; @@ -1438,12 +1435,12 @@ TExtFormLabelable = class(TExtAbstractComponent) property HideLabel : Boolean read FHideLabel write SetFHideLabel; property InvalidCls : String read FInvalidCls write SetFInvalidCls; property LabelableRenderTpl : String read FLabelableRenderTpl write SetFLabelableRenderTpl; - property LabelableRenderTplTExtObjectList : TExtObjectList read FLabelableRenderTplTExtObjectList write SetFLabelableRenderTplTExtObjectList; - property LabelableRenderTplTExtXTemplate : TExtXTemplate read FLabelableRenderTplTExtXTemplate write SetFLabelableRenderTplTExtXTemplate; + property LabelableRenderTplList : TExtObjectList read FLabelableRenderTplList write SetFLabelableRenderTplList; + property LabelableRenderTplTemplate : TExtXTemplate read FLabelableRenderTplTemplate write SetFLabelableRenderTplTemplate; property LabelAlign : String read FLabelAlign write SetFLabelAlign; property LabelAttrTpl : String read FLabelAttrTpl write SetFLabelAttrTpl; - property LabelAttrTplTExtObjectList : TExtObjectList read FLabelAttrTplTExtObjectList write SetFLabelAttrTplTExtObjectList; - property LabelAttrTplTExtXTemplate : TExtXTemplate read FLabelAttrTplTExtXTemplate write SetFLabelAttrTplTExtXTemplate; + property LabelAttrTplList : TExtObjectList read FLabelAttrTplList write SetFLabelAttrTplList; + property LabelAttrTplTemplate : TExtXTemplate read FLabelAttrTplTemplate write SetFLabelAttrTplTemplate; property LabelCls : String read FLabelCls write SetFLabelCls; property LabelClsExtra : String read FLabelClsExtra write SetFLabelClsExtra; property LabelPad : Integer read FLabelPad write SetFLabelPad; @@ -1612,23 +1609,10 @@ TExtMenuManagerSingleton = class(TExtAbstractComponent) function HideAll : TExtFunction; end; - TExtPanelProxy = class(TExtAbstractComponent) - private - FInsertProxy : Boolean; - FMoveOnDrag : Boolean; - procedure SetFInsertProxy(Value : Boolean); - procedure SetFMoveOnDrag(Value : Boolean); + TExtUtilOffset = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetEl : TExtFunction; - function GetGhost : TExtFunction; - function GetProxy : TExtFunction; - function Hide : TExtFunction; - function MoveProxy(ParentNode : THTMLElement; Before : THTMLElement = nil) : TExtFunction; - function Show : TExtFunction; - property InsertProxy : Boolean read FInsertProxy write SetFInsertProxy; - property MoveOnDrag : Boolean read FMoveOnDrag write SetFMoveOnDrag; end; TExtUtilProtoElement = class(TExtAbstractComponent) @@ -1687,12 +1671,12 @@ TExtUtilSortable = class(TExtAbstractComponent) FDefaultSortDirection : String; FSorters : TExtObjectList; FSorters_ : TExtObjectList; - FSortersTExtObjectList : TExtObjectList; + FSortersList : TExtObjectList; FSortRoot : String; procedure SetFDefaultSortDirection(Value : String); procedure SetFSorters(Value : TExtObjectList); procedure SetFSorters_(Value : TExtObjectList); - procedure SetFSortersTExtObjectList(Value : TExtObjectList); + procedure SetFSortersList(Value : TExtObjectList); procedure SetFSortRoot(Value : String); protected procedure InitDefaults; override; @@ -1706,7 +1690,7 @@ TExtUtilSortable = class(TExtAbstractComponent) property DefaultSortDirection : String read FDefaultSortDirection write SetFDefaultSortDirection; property Sorters : TExtObjectList read FSorters write SetFSorters; property Sorters_ : TExtObjectList read FSorters_ write SetFSorters_; - property SortersTExtObjectList : TExtObjectList read FSortersTExtObjectList write SetFSortersTExtObjectList; + property SortersList : TExtObjectList read FSortersList write SetFSortersList; property SortRoot : String read FSortRoot write SetFSortRoot; end; @@ -2278,7 +2262,7 @@ TExtElementLoader = class(TExtAbstractComponent) private FAjaxOptions : TExtObject; FAutoLoad : Boolean; - FAutoLoadTExtObject : TExtObject; + FAutoLoadObject : TExtObject; FBaseParams : TExtObject; FCallback : TExtFunction; FFailure : TExtFunction; @@ -2294,15 +2278,15 @@ TExtElementLoader = class(TExtAbstractComponent) FScripts : Boolean; FSuccess : TExtFunction; FTarget : THTMLElement; + FTargetElement : TExtElement; FTargetString : String; - FTargetTExtElement : TExtElement; FUrl : String; FOnBeforeload : TExtElementLoaderOnBeforeload; FOnException : TExtElementLoaderOnException; FOnLoad : TExtElementLoaderOnLoad; procedure SetFAjaxOptions(Value : TExtObject); procedure SetFAutoLoad(Value : Boolean); - procedure SetFAutoLoadTExtObject(Value : TExtObject); + procedure SetFAutoLoadObject(Value : TExtObject); procedure SetFBaseParams(Value : TExtObject); procedure SetFCallback(Value : TExtFunction); procedure SetFFailure(Value : TExtFunction); @@ -2318,8 +2302,8 @@ TExtElementLoader = class(TExtAbstractComponent) procedure SetFScripts(Value : Boolean); procedure SetFSuccess(Value : TExtFunction); procedure SetFTarget(Value : THTMLElement); + procedure SetFTargetElement(Value : TExtElement); procedure SetFTargetString(Value : String); - procedure SetFTargetTExtElement(Value : TExtElement); procedure SetFUrl(Value : String); procedure SetFOnBeforeload(Value : TExtElementLoaderOnBeforeload); procedure SetFOnException(Value : TExtElementLoaderOnException); @@ -2357,7 +2341,7 @@ TExtElementLoader = class(TExtAbstractComponent) destructor Destroy; override; property AjaxOptions : TExtObject read FAjaxOptions write SetFAjaxOptions; property AutoLoad : Boolean read FAutoLoad write SetFAutoLoad; - property AutoLoadTExtObject : TExtObject read FAutoLoadTExtObject write SetFAutoLoadTExtObject; + property AutoLoadObject : TExtObject read FAutoLoadObject write SetFAutoLoadObject; property BaseParams : TExtObject read FBaseParams write SetFBaseParams; property Callback : TExtFunction read FCallback write SetFCallback; property Failure : TExtFunction read FFailure write SetFFailure; @@ -2373,8 +2357,8 @@ TExtElementLoader = class(TExtAbstractComponent) property Scripts : Boolean read FScripts write SetFScripts; property Success : TExtFunction read FSuccess write SetFSuccess; property Target : THTMLElement read FTarget write SetFTarget; + property TargetElement : TExtElement read FTargetElement write SetFTargetElement; property TargetString : String read FTargetString write SetFTargetString; - property TargetTExtElement : TExtElement read FTargetTExtElement write SetFTargetTExtElement; property Url : String read FUrl write SetFUrl; property OnBeforeload : TExtElementLoaderOnBeforeload read FOnBeforeload write SetFOnBeforeload; property OnException : TExtElementLoaderOnException read FOnException write SetFOnException; @@ -2661,7 +2645,7 @@ TExtDrawSprite = class(TExtAbstractComponent) FFill : String; FFont : String; FGroup : String; - FGroupTExtObjectList : TExtObjectList; + FGroupList : TExtObjectList; FHasListeners : TExtObject; FHeight : Integer; FIsObservable : Boolean; @@ -2685,7 +2669,7 @@ TExtDrawSprite = class(TExtAbstractComponent) procedure SetFFill(Value : String); procedure SetFFont(Value : String); procedure SetFGroup(Value : String); - procedure SetFGroupTExtObjectList(Value : TExtObjectList); + procedure SetFGroupList(Value : TExtObjectList); procedure SetFHasListeners(Value : TExtObject); procedure SetFHeight(Value : Integer); procedure SetFIsObservable(Value : Boolean); @@ -2746,7 +2730,7 @@ TExtDrawSprite = class(TExtAbstractComponent) property Fill : String read FFill write SetFFill; property Font : String read FFont write SetFFont; property Group : String read FGroup write SetFGroup; - property GroupTExtObjectList : TExtObjectList read FGroupTExtObjectList write SetFGroupTExtObjectList; + property GroupList : TExtObjectList read FGroupList write SetFGroupList; property HasListeners : TExtObject read FHasListeners write SetFHasListeners; property Height : Integer read FHeight write SetFHeight; property IsObservable : Boolean read FIsObservable write SetFIsObservable; @@ -2780,6 +2764,12 @@ TExtDrawMatrix = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + TExtShadowPoolSingleton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtSliderThumb = class(TExtAbstractComponent) private FConstrain : Boolean; @@ -2801,40 +2791,10 @@ TExtSliderThumb = class(TExtAbstractComponent) property Slider : TExtSliderMultiSlider read FSlider write SetFSlider; end; - TExtUtilObservable = class(TExtAbstractComponent) - private - FHasListeners : TExtObject; - FIsObservable : Boolean; - FListeners : TExtObject; - procedure SetFHasListeners(Value : TExtObject); - procedure SetFIsObservable(Value : Boolean); - procedure SetFListeners(Value : TExtObject); - protected - procedure InitDefaults; override; + TExtRtlViewTable = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddEvents(EventNames : String) : TExtFunction; overload; - function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; - function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; - function ClearListeners : TExtFunction; - function ClearManagedListeners : TExtFunction; - constructor Create; - function EnableBubble(EventNames : String) : TExtFunction; overload; - function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; - function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; - function HasListener(EventName : String) : TExtFunction; - function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; - function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; - function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function ResumeEvent(EventName : String) : TExtFunction; - function ResumeEvents : TExtFunction; - function SuspendEvent(EventName : String) : TExtFunction; - function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; - destructor Destroy; override; - property HasListeners : TExtObject read FHasListeners write SetFHasListeners; - property IsObservable : Boolean read FIsObservable write SetFIsObservable; - property Listeners : TExtObject read FListeners write SetFListeners; end; TExtShadow = class(TExtAbstractComponent) @@ -2856,12 +2816,6 @@ TExtShadow = class(TExtAbstractComponent) property Offset : Integer read FOffset write SetFOffset; end; - TExtShadowPoolSingleton = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - // Procedural types for events TExtStateStateful TExtStateStatefulOnBeforestaterestore = procedure(This : TExtStateStateful; State : TExtObject) of object; TExtStateStatefulOnBeforestatesave = procedure(This : TExtStateStateful; State : TExtObject) of object; @@ -2935,27 +2889,14 @@ TExtStateStateful = class(TExtAbstractComponent) property OnStatesave : TExtStateStatefulOnStatesave read FOnStatesave write SetFOnStatesave; end; - TExtTemplate = class(TExtAbstractComponent) - private - FCompiled : Boolean; - FDisableFormats : Boolean; - procedure SetFCompiled(Value : Boolean); - procedure SetFDisableFormats(Value : Boolean); + TExtUtilMemento = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Append(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; - function Apply(Values : TExtObject) : TExtFunction; overload; - function ApplyOut(Values : TExtObject; OutJS : TExtObjectList) : TExtFunction; overload; - function ApplyTemplate : TExtFunction; - function Compile : TExtFunction; - function InsertAfter(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; - function InsertBefore(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; - function InsertFirst(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; - function Overwrite(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; - function SetJS(Html : String; Compile : Boolean = false) : TExtFunction; - property Compiled : Boolean read FCompiled write SetFCompiled; - property DisableFormats : Boolean read FDisableFormats write SetFDisableFormats; + function Capture(Props : String; Target : TExtObject) : TExtFunction; overload; + function Remove(Props : String) : TExtFunction; overload; + function Restore(Props : String; Clear : Boolean; Target : TExtObject) : TExtFunction; overload; + function RestoreAll(Clear : Boolean; Target : TExtObject) : TExtFunction; end; TExtStateManagerSingleton = class(TExtAbstractComponent) @@ -3012,49 +2953,49 @@ TExtStateProvider = class(TExtAbstractComponent) property Prefix : String read FPrefix write SetFPrefix; end; - TExtRtlSliderMulti = class(TExtAbstractComponent) + TExtRtlResizerSplitterTracker = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlTabBar = class(TExtAbstractComponent) + TExtRtlSliderMulti = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlResizerResizeTracker = class(TExtAbstractComponent) + TExtRtlResizerBorderSplitterTracker = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlResizerSplitterTracker = class(TExtAbstractComponent) + TExtRtlResizerResizeTracker = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlUtilRenderable = class(TExtAbstractComponent) + TExtRtlUtilFloating = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlViewTable = class(TExtAbstractComponent) + TExtRtlUtilRenderable = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlTreeColumn = class(TExtAbstractComponent) + TExtRtlTabBar = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlUtilFloating = class(TExtAbstractComponent) + TExtRtlTreeColumn = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3188,31 +3129,39 @@ TExtUtilEvent = class(TExtAbstractComponent) property IsEvent : Boolean read FIsEvent write SetFIsEvent; end; - TExtUtilKeyNav = class(TExtAbstractComponent) + TExtTipQuickTipManagerSingleton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Disable : TExtFunction; + function Enable : TExtFunction; + function GetQuickTip : TExtFunction; + function Init(AutoRender : Boolean = false; Config : TExtObject = nil) : TExtFunction; + function IsEnabled : TExtFunction; + function Register(Config : TExtObject) : TExtFunction; + function Tips : TExtFunction; + function Unregister(El : String) : TExtFunction; overload; + end; + + TExtUtilKeyMap = class(TExtAbstractComponent) private - FDefaultEventAction : String; - FDisabled : Boolean; + FBinding : TExtObjectList; FEventName : String; - FForceKeyDown : Boolean; FIgnoreInputFields : Boolean; - FKeyMap : TExtUtilKeyMap; FProcessEvent : TExtFunction; FProcessEventScope : TExtObject; FTarget : TExtComponent; + FTargetElement : TExtElement; FTargetString : String; - FTargetTExtElement : TExtElement; FTargetTHTMLElement : THTMLElement; - procedure SetFDefaultEventAction(Value : String); - procedure SetFDisabled(Value : Boolean); + procedure SetFBinding(Value : TExtObjectList); procedure SetFEventName(Value : String); - procedure SetFForceKeyDown(Value : Boolean); procedure SetFIgnoreInputFields(Value : Boolean); - procedure SetFKeyMap(Value : TExtUtilKeyMap); procedure SetFProcessEvent(Value : TExtFunction); procedure SetFProcessEventScope(Value : TExtObject); procedure SetFTarget(Value : TExtComponent); + procedure SetFTargetElement(Value : TExtElement); procedure SetFTargetString(Value : String); - procedure SetFTargetTExtElement(Value : TExtElement); procedure SetFTargetTHTMLElement(Value : THTMLElement); protected procedure InitDefaults; override; @@ -3222,43 +3171,70 @@ TExtUtilKeyNav = class(TExtAbstractComponent) constructor Create; function Disable : TExtFunction; function Enable : TExtFunction; + function IsEnabled : TExtFunction; + function On(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; overload; function SetDisabled(Disabled : Boolean) : TExtFunction; + function Un(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; overload; destructor Destroy; override; - property DefaultEventAction : String read FDefaultEventAction write SetFDefaultEventAction; - property Disabled : Boolean read FDisabled write SetFDisabled; + property Binding : TExtObjectList read FBinding write SetFBinding; property EventName : String read FEventName write SetFEventName; - property ForceKeyDown : Boolean read FForceKeyDown write SetFForceKeyDown; property IgnoreInputFields : Boolean read FIgnoreInputFields write SetFIgnoreInputFields; - property KeyMap : TExtUtilKeyMap read FKeyMap write SetFKeyMap; property ProcessEvent : TExtFunction read FProcessEvent write SetFProcessEvent; property ProcessEventScope : TExtObject read FProcessEventScope write SetFProcessEventScope; property Target : TExtComponent read FTarget write SetFTarget; + property TargetElement : TExtElement read FTargetElement write SetFTargetElement; property TargetString : String read FTargetString write SetFTargetString; - property TargetTExtElement : TExtElement read FTargetTExtElement write SetFTargetTExtElement; property TargetTHTMLElement : THTMLElement read FTargetTHTMLElement write SetFTargetTHTMLElement; end; - TExtUtilKeyMap = class(TExtAbstractComponent) + TExtTemplate = class(TExtAbstractComponent) + private + FCompiled : Boolean; + FDisableFormats : Boolean; + procedure SetFCompiled(Value : Boolean); + procedure SetFDisableFormats(Value : Boolean); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Append(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; + function Apply(Values : TExtObject) : TExtFunction; overload; + function ApplyOut(Values : TExtObject; OutJS : TExtObjectList) : TExtFunction; overload; + function ApplyTemplate : TExtFunction; + function Compile : TExtFunction; + function InsertAfter(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; + function InsertBefore(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; + function InsertFirst(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; + function Overwrite(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; overload; + function SetJS(Html : String; Compile : Boolean = false) : TExtFunction; + property Compiled : Boolean read FCompiled write SetFCompiled; + property DisableFormats : Boolean read FDisableFormats write SetFDisableFormats; + end; + + TExtUtilKeyNav = class(TExtAbstractComponent) private - FBinding : TExtObject; - FBindingTExtObjectList : TExtObjectList; + FDefaultEventAction : String; + FDisabled : Boolean; FEventName : String; + FForceKeyDown : Boolean; FIgnoreInputFields : Boolean; + FKeyMap : TExtUtilKeyMap; FProcessEvent : TExtFunction; FProcessEventScope : TExtObject; FTarget : TExtComponent; + FTargetElement : TExtElement; FTargetString : String; - FTargetTExtElement : TExtElement; FTargetTHTMLElement : THTMLElement; - procedure SetFBinding(Value : TExtObject); - procedure SetFBindingTExtObjectList(Value : TExtObjectList); + procedure SetFDefaultEventAction(Value : String); + procedure SetFDisabled(Value : Boolean); procedure SetFEventName(Value : String); + procedure SetFForceKeyDown(Value : Boolean); procedure SetFIgnoreInputFields(Value : Boolean); + procedure SetFKeyMap(Value : TExtUtilKeyMap); procedure SetFProcessEvent(Value : TExtFunction); procedure SetFProcessEventScope(Value : TExtObject); procedure SetFTarget(Value : TExtComponent); + procedure SetFTargetElement(Value : TExtElement); procedure SetFTargetString(Value : String); - procedure SetFTargetTExtElement(Value : TExtElement); procedure SetFTargetTHTMLElement(Value : THTMLElement); protected procedure InitDefaults; override; @@ -3268,47 +3244,22 @@ TExtUtilKeyMap = class(TExtAbstractComponent) constructor Create; function Disable : TExtFunction; function Enable : TExtFunction; - function IsEnabled : TExtFunction; - function On(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; overload; function SetDisabled(Disabled : Boolean) : TExtFunction; - function Un(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; overload; destructor Destroy; override; - property Binding : TExtObject read FBinding write SetFBinding; - property BindingTExtObjectList : TExtObjectList read FBindingTExtObjectList write SetFBindingTExtObjectList; + property DefaultEventAction : String read FDefaultEventAction write SetFDefaultEventAction; + property Disabled : Boolean read FDisabled write SetFDisabled; property EventName : String read FEventName write SetFEventName; + property ForceKeyDown : Boolean read FForceKeyDown write SetFForceKeyDown; property IgnoreInputFields : Boolean read FIgnoreInputFields write SetFIgnoreInputFields; + property KeyMap : TExtUtilKeyMap read FKeyMap write SetFKeyMap; property ProcessEvent : TExtFunction read FProcessEvent write SetFProcessEvent; property ProcessEventScope : TExtObject read FProcessEventScope write SetFProcessEventScope; property Target : TExtComponent read FTarget write SetFTarget; + property TargetElement : TExtElement read FTargetElement write SetFTargetElement; property TargetString : String read FTargetString write SetFTargetString; - property TargetTExtElement : TExtElement read FTargetTExtElement write SetFTargetTExtElement; property TargetTHTMLElement : THTMLElement read FTargetTHTMLElement write SetFTargetTHTMLElement; end; - TExtUtilMemento = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Capture(Props : String; Target : TExtObject) : TExtFunction; overload; - function Remove(Props : String) : TExtFunction; overload; - function Restore(Props : String; Clear : Boolean; Target : TExtObject) : TExtFunction; overload; - function RestoreAll(Clear : Boolean; Target : TExtObject) : TExtFunction; - end; - - TExtTipQuickTipManagerSingleton = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Disable : TExtFunction; - function Enable : TExtFunction; - function GetQuickTip : TExtFunction; - function Init(AutoRender : Boolean = false; Config : TExtObject = nil) : TExtFunction; - function IsEnabled : TExtFunction; - function Register(Config : TExtObject) : TExtFunction; - function Tips : TExtFunction; - function Unregister(El : String) : TExtFunction; overload; - end; - // Procedural types for events TExtUtilHashMap TExtUtilHashMapOnAdd = procedure(This : TExtUtilHashMap; Key : String; Value : TExtObject) of object; TExtUtilHashMapOnClear = procedure(This : TExtUtilHashMap) of object; @@ -3511,7 +3462,13 @@ TExtUtilHistorySingleton = class(TExtAbstractComponent) property OnReady : TExtUtilHistorySingletonOnReady read FOnReady write SetFOnReady; end; - TExtRtlResizerBorderSplitterTracker = class(TExtAbstractComponent) + TExtRtlPanelHeader = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtRtlDomElement_position = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3523,7 +3480,7 @@ TExtRtlDomElement_scroll = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlDomElement_static = class(TExtAbstractComponent) + TExtRtlDomElement_anim = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3535,7 +3492,7 @@ TExtRtlDomElement_insertion = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlDomElement_position = class(TExtAbstractComponent) + TExtRtlEventObjectImpl = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3547,7 +3504,7 @@ TExtRtlFormFieldSpinner = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlFormFieldTrigger = class(TExtAbstractComponent) + TExtRtlDomElement_static = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3559,7 +3516,7 @@ TExtRtlDomLayer = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlEventObjectImpl = class(TExtAbstractComponent) + TExtPerfAccumulator = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3571,10 +3528,77 @@ TExtPerfMonitorSingleton = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + TExtPanelProxy = class(TExtAbstractComponent) + private + FInsertProxy : Boolean; + FMoveOnDrag : Boolean; + procedure SetFInsertProxy(Value : Boolean); + procedure SetFMoveOnDrag(Value : Boolean); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function GetEl : TExtFunction; + function GetGhost : TExtFunction; + function GetProxy : TExtFunction; + function Hide : TExtFunction; + function MoveProxy(ParentNode : THTMLElement; Before : THTMLElement = nil) : TExtFunction; + function Show : TExtFunction; + property InsertProxy : Boolean read FInsertProxy write SetFInsertProxy; + property MoveOnDrag : Boolean read FMoveOnDrag write SetFMoveOnDrag; + end; + + TExtUtilObservable = class(TExtAbstractComponent) + private + FHasListeners : TExtObject; + FIsObservable : Boolean; + FListeners : TExtObject; + procedure SetFHasListeners(Value : TExtObject); + procedure SetFIsObservable(Value : Boolean); + procedure SetFListeners(Value : TExtObject); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AddEvents(EventNames : String) : TExtFunction; overload; + function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; + function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; + function ClearListeners : TExtFunction; + function ClearManagedListeners : TExtFunction; + constructor Create; + function EnableBubble(EventNames : String) : TExtFunction; overload; + function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; + function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; + function HasListener(EventName : String) : TExtFunction; + function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; + function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; + function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function ResumeEvent(EventName : String) : TExtFunction; + function ResumeEvents : TExtFunction; + function SuspendEvent(EventName : String) : TExtFunction; + function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; + destructor Destroy; override; + property HasListeners : TExtObject read FHasListeners write SetFHasListeners; + property IsObservable : Boolean read FIsObservable write SetFIsObservable; + property Listeners : TExtObject read FListeners write SetFListeners; + end; + + TExtRtlButton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtRtlDdDD = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtResizer = class(TExtAbstractComponent) private FConstrainTo : TExtElement; - FConstrainToTExtUtilRegion : TExtUtilRegion; + FConstrainToRegion : TExtUtilRegion; FDynamic : Boolean; FEl : TExtElement; FHandles : String; // 's e se' @@ -3588,17 +3612,17 @@ TExtResizer = class(TExtAbstractComponent) FMinHeight : Integer; FMinWidth : Integer; FOriginalTarget : TExtElement; - FOriginalTargetTExtComponent : TExtComponent; + FOriginalTargetComponent : TExtComponent; FPinned : Boolean; FPreserveRatio : Boolean; FResizeTracker : TExtResizerResizeTracker; FTarget : TExtElement; - FTargetTExtComponent : TExtComponent; + FTargetComponent : TExtComponent; FTransparent : Boolean; FWidth : Integer; FWidthIncrement : Integer; procedure SetFConstrainTo(Value : TExtElement); - procedure SetFConstrainToTExtUtilRegion(Value : TExtUtilRegion); + procedure SetFConstrainToRegion(Value : TExtUtilRegion); procedure SetFDynamic(Value : Boolean); procedure SetFEl(Value : TExtElement); procedure SetFHandles(Value : String); @@ -3612,12 +3636,12 @@ TExtResizer = class(TExtAbstractComponent) procedure SetFMinHeight(Value : Integer); procedure SetFMinWidth(Value : Integer); procedure SetFOriginalTarget(Value : TExtElement); - procedure SetFOriginalTargetTExtComponent(Value : TExtComponent); + procedure SetFOriginalTargetComponent(Value : TExtComponent); procedure SetFPinned(Value : Boolean); procedure SetFPreserveRatio(Value : Boolean); procedure SetFResizeTracker(Value : TExtResizerResizeTracker); procedure SetFTarget(Value : TExtElement); - procedure SetFTargetTExtComponent(Value : TExtComponent); + procedure SetFTargetComponent(Value : TExtComponent); procedure SetFTransparent(Value : Boolean); procedure SetFWidth(Value : Integer); procedure SetFWidthIncrement(Value : Integer); @@ -3648,7 +3672,7 @@ TExtResizer = class(TExtAbstractComponent) function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; destructor Destroy; override; property ConstrainTo : TExtElement read FConstrainTo write SetFConstrainTo; - property ConstrainToTExtUtilRegion : TExtUtilRegion read FConstrainToTExtUtilRegion write SetFConstrainToTExtUtilRegion; + property ConstrainToRegion : TExtUtilRegion read FConstrainToRegion write SetFConstrainToRegion; property Dynamic : Boolean read FDynamic write SetFDynamic; property El : TExtElement read FEl write SetFEl; property Handles : String read FHandles write SetFHandles; @@ -3662,41 +3686,17 @@ TExtResizer = class(TExtAbstractComponent) property MinHeight : Integer read FMinHeight write SetFMinHeight; property MinWidth : Integer read FMinWidth write SetFMinWidth; property OriginalTarget : TExtElement read FOriginalTarget write SetFOriginalTarget; - property OriginalTargetTExtComponent : TExtComponent read FOriginalTargetTExtComponent write SetFOriginalTargetTExtComponent; + property OriginalTargetComponent : TExtComponent read FOriginalTargetComponent write SetFOriginalTargetComponent; property Pinned : Boolean read FPinned write SetFPinned; property PreserveRatio : Boolean read FPreserveRatio write SetFPreserveRatio; property ResizeTracker : TExtResizerResizeTracker read FResizeTracker write SetFResizeTracker; property Target : TExtElement read FTarget write SetFTarget; - property TargetTExtComponent : TExtComponent read FTargetTExtComponent write SetFTargetTExtComponent; + property TargetComponent : TExtComponent read FTargetComponent write SetFTargetComponent; property Transparent : Boolean read FTransparent write SetFTransparent; property Width : Integer read FWidth write SetFWidth; property WidthIncrement : Integer read FWidthIncrement write SetFWidthIncrement; end; - TExtUtilOffset = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtPerfAccumulator = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtRtlDdDD = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtRtlDomElement_anim = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtRtlAbstractComponent = class(TExtAbstractComponent) private FRtl : Boolean; @@ -3707,7 +3707,7 @@ TExtRtlAbstractComponent = class(TExtAbstractComponent) property Rtl : Boolean read FRtl write SetFRtl; end; - TExtRtlButton = class(TExtAbstractComponent) + TExtRtlLayoutContainerBoxOverflowScroller = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3719,7 +3719,7 @@ TExtRtlLayoutContainerColumn = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlLayoutContainerHBox = class(TExtAbstractComponent) + TExtRtlLayoutContainerAbsolute = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3731,7 +3731,7 @@ TExtRtlLayoutContainerBox = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlLayoutContainerBoxOverflowScroller = class(TExtAbstractComponent) + TExtRtlLayoutContextItem = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3743,7 +3743,7 @@ TExtRtlPanel = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlPanelHeader = class(TExtAbstractComponent) + TExtRtlLayoutContainerHBox = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3755,7 +3755,7 @@ TExtRtlLayoutContainerVBox = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlLayoutContextItem = class(TExtAbstractComponent) + TExtRtlGridPluginHeaderResizer = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3767,7 +3767,7 @@ TExtRtlGridPluginRowEditing = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlGridRowEditor = class(TExtAbstractComponent) + TExtRtlFormFieldTrigger = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3779,7 +3779,7 @@ TExtRtlGridColumn = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlGridPluginHeaderResizer = class(TExtAbstractComponent) + TExtRtlLayoutComponentFieldText = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3791,7 +3791,7 @@ TExtRtlLayoutComponentFieldTrigger = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlLayoutContainerAbsolute = class(TExtAbstractComponent) + TExtRtlGridRowEditor = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -3803,12 +3803,6 @@ TExtRtlLayoutComponentDock = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtRtlLayoutComponentFieldText = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - // Procedural types for events TExtDataTree TExtDataTreeOnAppend = procedure of object; TExtDataTreeOnBeforeappend = procedure of object; @@ -3904,31 +3898,68 @@ TExtDataTree = class(TExtAbstractComponent) property OnSort : TExtDataTreeOnSort read FOnSort write SetFOnSort; end; - TExtDataFlashBinaryXhr = class(TExtAbstractComponent) + TExtDataOperation = class(TExtAbstractComponent) private - FReadyState : Integer; - FResponseBytes : TExtObjectList; - FStatus : Integer; - procedure SetFReadyState(Value : Integer); - procedure SetFResponseBytes(Value : TExtObjectList); - procedure SetFStatus(Value : Integer); + FAction : String; + FActionCommitRecordsRe : TRegExp; + FActionSkipSyncRe : TRegExp; + FBatch : TExtDataBatch; + FCallback : TExtFunction; + FFilters : TExtObjectList; + FGroupers : TExtObjectList; + FLimit : Integer; + FParams : TExtObject; + FScope : TExtObject; + FSorters : TExtObjectList; + FStart : Integer; + FSynchronous : Boolean; + procedure SetFAction(Value : String); + procedure SetFActionCommitRecordsRe(Value : TRegExp); + procedure SetFActionSkipSyncRe(Value : TRegExp); + procedure SetFBatch(Value : TExtDataBatch); + procedure SetFCallback(Value : TExtFunction); + procedure SetFFilters(Value : TExtObjectList); + procedure SetFGroupers(Value : TExtObjectList); + procedure SetFLimit(Value : Integer); + procedure SetFParams(Value : TExtObject); + procedure SetFScope(Value : TExtObject); + procedure SetFSorters(Value : TExtObjectList); + procedure SetFStart(Value : Integer); + procedure SetFSynchronous(Value : Boolean); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Abort : TExtFunction; + function AllowWrite : TExtFunction; + function CommitRecords(ServerRecords : TExtObjectList) : TExtFunction; constructor Create; overload; - function GetAllResponseHeaders : TExtFunction; - function GetResponseHeader : TExtFunction; - function Open : TExtFunction; - function OverrideMimeType : TExtFunction; - function Send(Body : TExtObjectList) : TExtFunction; - function SetRequestHeader : TExtFunction; + function GetError : TExtFunction; + function GetRecords : TExtFunction; + function GetResultSet : TExtFunction; + function HasException : TExtFunction; + function IsComplete : TExtFunction; + function IsRunning : TExtFunction; + function IsStarted : TExtFunction; + function SetCompleted : TExtFunction; + function SetException(Error : String = '') : TExtFunction; overload; + function SetStarted : TExtFunction; + function SetSuccessful : TExtFunction; + function WasSuccessful : TExtFunction; destructor Destroy; override; - property ReadyState : Integer read FReadyState write SetFReadyState; - property ResponseBytes : TExtObjectList read FResponseBytes write SetFResponseBytes; - property Status : Integer read FStatus write SetFStatus; + property Action : String read FAction write SetFAction; + property ActionCommitRecordsRe : TRegExp read FActionCommitRecordsRe write SetFActionCommitRecordsRe; + property ActionSkipSyncRe : TRegExp read FActionSkipSyncRe write SetFActionSkipSyncRe; + property Batch : TExtDataBatch read FBatch write SetFBatch; + property Callback : TExtFunction read FCallback write SetFCallback; + property Filters : TExtObjectList read FFilters write SetFFilters; + property Groupers : TExtObjectList read FGroupers write SetFGroupers; + property Limit : Integer read FLimit write SetFLimit; + property Params : TExtObject read FParams write SetFParams; + property Scope : TExtObject read FScope write SetFScope; + property Sorters : TExtObjectList read FSorters write SetFSorters; + property Start : Integer read FStart write SetFStart; + property Synchronous : Boolean read FSynchronous write SetFSynchronous; end; TExtContainerMonitor = class(TExtAbstractComponent) @@ -3943,42 +3974,6 @@ TExtChartTip = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtDataAssociation = class(TExtAbstractComponent) - private - FAssociatedModel : String; - FAssociatedName : String; - FAssociationKey : String; - FModel : String; - FOwnerModel : String; - FOwnerName : String; - FPrimaryKey : String; - FReader : TExtDataReader; - procedure SetFAssociatedModel(Value : String); - procedure SetFAssociatedName(Value : String); - procedure SetFAssociationKey(Value : String); - procedure SetFModel(Value : String); - procedure SetFOwnerModel(Value : String); - procedure SetFOwnerName(Value : String); - procedure SetFPrimaryKey(Value : String); - procedure SetFReader(Value : TExtDataReader); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function GetReader : TExtFunction; - destructor Destroy; override; - property AssociatedModel : String read FAssociatedModel write SetFAssociatedModel; - property AssociatedName : String read FAssociatedName write SetFAssociatedName; - property AssociationKey : String read FAssociationKey write SetFAssociationKey; - property Model : String read FModel write SetFModel; - property OwnerModel : String read FOwnerModel write SetFOwnerModel; - property OwnerName : String read FOwnerName write SetFOwnerName; - property PrimaryKey : String read FPrimaryKey write SetFPrimaryKey; - property Reader : TExtDataReader read FReader write SetFReader; - end; - // Procedural types for events TExtDataProxy TExtDataProxyOnMetachange = procedure(This : TExtDataProxy; Meta : TExtObject) of object; @@ -3991,13 +3986,13 @@ TExtDataProxy = class(TExtAbstractComponent) FIsProxy : Boolean; FListeners : TExtObject; FModel : String; - FModelTExtDataModel : TExtDataModel; + FModelModel : TExtDataModel; FReader : TExtObject; + FReaderReader : TExtDataReader; FReaderString : String; - FReaderTExtDataReader : TExtDataReader; FWriter : TExtObject; FWriterString : String; - FWriterTExtDataWriter : TExtDataWriter; + FWriterWriter : TExtDataWriter; FOnMetachange : TExtDataProxyOnMetachange; procedure SetFBatchActions(Value : Boolean); procedure SetFBatchOrder(Value : String); @@ -4006,13 +4001,13 @@ TExtDataProxy = class(TExtAbstractComponent) procedure SetFIsProxy(Value : Boolean); procedure SetFListeners(Value : TExtObject); procedure SetFModel(Value : String); - procedure SetFModelTExtDataModel(Value : TExtDataModel); + procedure SetFModelModel(Value : TExtDataModel); procedure SetFReader(Value : TExtObject); + procedure SetFReaderReader(Value : TExtDataReader); procedure SetFReaderString(Value : String); - procedure SetFReaderTExtDataReader(Value : TExtDataReader); procedure SetFWriter(Value : TExtObject); procedure SetFWriterString(Value : String); - procedure SetFWriterTExtDataWriter(Value : TExtDataWriter); + procedure SetFWriterWriter(Value : TExtDataWriter); procedure SetFOnMetachange(Value : TExtDataProxyOnMetachange); protected procedure InitDefaults; override; @@ -4051,16 +4046,43 @@ TExtDataProxy = class(TExtAbstractComponent) property IsProxy : Boolean read FIsProxy write SetFIsProxy; property Listeners : TExtObject read FListeners write SetFListeners; property Model : String read FModel write SetFModel; - property ModelTExtDataModel : TExtDataModel read FModelTExtDataModel write SetFModelTExtDataModel; + property ModelModel : TExtDataModel read FModelModel write SetFModelModel; property Reader : TExtObject read FReader write SetFReader; + property ReaderReader : TExtDataReader read FReaderReader write SetFReaderReader; property ReaderString : String read FReaderString write SetFReaderString; - property ReaderTExtDataReader : TExtDataReader read FReaderTExtDataReader write SetFReaderTExtDataReader; property Writer : TExtObject read FWriter write SetFWriter; property WriterString : String read FWriterString write SetFWriterString; - property WriterTExtDataWriter : TExtDataWriter read FWriterTExtDataWriter write SetFWriterTExtDataWriter; + property WriterWriter : TExtDataWriter read FWriterWriter write SetFWriterWriter; property OnMetachange : TExtDataProxyOnMetachange read FOnMetachange write SetFOnMetachange; end; + TExtDataFlashBinaryXhr = class(TExtAbstractComponent) + private + FReadyState : Integer; + FResponseBytes : TExtObjectList; + FStatus : Integer; + procedure SetFReadyState(Value : Integer); + procedure SetFResponseBytes(Value : TExtObjectList); + procedure SetFStatus(Value : Integer); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Abort : TExtFunction; + constructor Create; overload; + function GetAllResponseHeaders : TExtFunction; + function GetResponseHeader : TExtFunction; + function Open : TExtFunction; + function OverrideMimeType : TExtFunction; + function Send(Body : TExtObjectList) : TExtFunction; + function SetRequestHeader : TExtFunction; + destructor Destroy; override; + property ReadyState : Integer read FReadyState write SetFReadyState; + property ResponseBytes : TExtObjectList read FResponseBytes write SetFResponseBytes; + property Status : Integer read FStatus write SetFStatus; + end; + TExtChartThemeBase = class(TExtAbstractComponent) public function JSClassName : string; override; @@ -4122,49 +4144,49 @@ TExtDataModel = class(TExtAbstractComponent) private FAssociations : TExtObjectList; FBelongsTo : String; - FBelongsToTExtObject : TExtObject; - FBelongsToTExtObjectList : TExtObjectList; + FBelongsToList : TExtObjectList; + FBelongsToObject : TExtObject; FClientIdProperty : String; FDefaultProxyType : String; // 'ajax' FFields : TExtObjectList; - FFieldsTExtObjectList : TExtObjectList; + FFieldsList : TExtObjectList; FHasMany : String; - FHasManyTExtObject : TExtObject; - FHasManyTExtObjectList : TExtObjectList; + FHasManyList : TExtObjectList; + FHasManyObject : TExtObject; FIdgen : String; - FIdgenTExtObject : TExtObject; + FIdgenObject : TExtObject; FIdProperty : String; // 'id' - FIdPropertyTExtDataField : TExtDataField; - FIdPropertyTExtObject : TExtObject; + FIdPropertyField : TExtDataField; + FIdPropertyObject : TExtObject; FModified : TExtObject; FPersistenceProperty : String; // 'data' FProxy : String; - FProxyTExtDataProxy : TExtDataProxy; - FProxyTExtObject : TExtObject; + FProxyObject : TExtObject; + FProxyProxy : TExtDataProxy; FRaw : TExtObject; FStores : TExtObjectList; FValidations : TExtObjectList; procedure SetFAssociations(Value : TExtObjectList); procedure SetFBelongsTo(Value : String); - procedure SetFBelongsToTExtObject(Value : TExtObject); - procedure SetFBelongsToTExtObjectList(Value : TExtObjectList); + procedure SetFBelongsToList(Value : TExtObjectList); + procedure SetFBelongsToObject(Value : TExtObject); procedure SetFClientIdProperty(Value : String); procedure SetFDefaultProxyType(Value : String); procedure SetFFields(Value : TExtObjectList); - procedure SetFFieldsTExtObjectList(Value : TExtObjectList); + procedure SetFFieldsList(Value : TExtObjectList); procedure SetFHasMany(Value : String); - procedure SetFHasManyTExtObject(Value : TExtObject); - procedure SetFHasManyTExtObjectList(Value : TExtObjectList); + procedure SetFHasManyList(Value : TExtObjectList); + procedure SetFHasManyObject(Value : TExtObject); procedure SetFIdgen(Value : String); - procedure SetFIdgenTExtObject(Value : TExtObject); + procedure SetFIdgenObject(Value : TExtObject); procedure SetFIdProperty(Value : String); - procedure SetFIdPropertyTExtDataField(Value : TExtDataField); - procedure SetFIdPropertyTExtObject(Value : TExtObject); + procedure SetFIdPropertyField(Value : TExtDataField); + procedure SetFIdPropertyObject(Value : TExtObject); procedure SetFModified(Value : TExtObject); procedure SetFPersistenceProperty(Value : String); procedure SetFProxy(Value : String); - procedure SetFProxyTExtDataProxy(Value : TExtDataProxy); - procedure SetFProxyTExtObject(Value : TExtObject); + procedure SetFProxyObject(Value : TExtObject); + procedure SetFProxyProxy(Value : TExtDataProxy); procedure SetFRaw(Value : TExtObject); procedure SetFStores(Value : TExtObjectList); procedure SetFValidations(Value : TExtObjectList); @@ -4198,25 +4220,25 @@ TExtDataModel = class(TExtAbstractComponent) destructor Destroy; override; property Associations : TExtObjectList read FAssociations write SetFAssociations; property BelongsTo : String read FBelongsTo write SetFBelongsTo; - property BelongsToTExtObject : TExtObject read FBelongsToTExtObject write SetFBelongsToTExtObject; - property BelongsToTExtObjectList : TExtObjectList read FBelongsToTExtObjectList write SetFBelongsToTExtObjectList; + property BelongsToList : TExtObjectList read FBelongsToList write SetFBelongsToList; + property BelongsToObject : TExtObject read FBelongsToObject write SetFBelongsToObject; property ClientIdProperty : String read FClientIdProperty write SetFClientIdProperty; property DefaultProxyType : String read FDefaultProxyType write SetFDefaultProxyType; property Fields : TExtObjectList read FFields write SetFFields; - property FieldsTExtObjectList : TExtObjectList read FFieldsTExtObjectList write SetFFieldsTExtObjectList; + property FieldsList : TExtObjectList read FFieldsList write SetFFieldsList; property HasMany : String read FHasMany write SetFHasMany; - property HasManyTExtObject : TExtObject read FHasManyTExtObject write SetFHasManyTExtObject; - property HasManyTExtObjectList : TExtObjectList read FHasManyTExtObjectList write SetFHasManyTExtObjectList; + property HasManyList : TExtObjectList read FHasManyList write SetFHasManyList; + property HasManyObject : TExtObject read FHasManyObject write SetFHasManyObject; property Idgen : String read FIdgen write SetFIdgen; - property IdgenTExtObject : TExtObject read FIdgenTExtObject write SetFIdgenTExtObject; + property IdgenObject : TExtObject read FIdgenObject write SetFIdgenObject; property IdProperty : String read FIdProperty write SetFIdProperty; - property IdPropertyTExtDataField : TExtDataField read FIdPropertyTExtDataField write SetFIdPropertyTExtDataField; - property IdPropertyTExtObject : TExtObject read FIdPropertyTExtObject write SetFIdPropertyTExtObject; + property IdPropertyField : TExtDataField read FIdPropertyField write SetFIdPropertyField; + property IdPropertyObject : TExtObject read FIdPropertyObject write SetFIdPropertyObject; property Modified : TExtObject read FModified write SetFModified; property PersistenceProperty : String read FPersistenceProperty write SetFPersistenceProperty; property Proxy : String read FProxy write SetFProxy; - property ProxyTExtDataProxy : TExtDataProxy read FProxyTExtDataProxy write SetFProxyTExtDataProxy; - property ProxyTExtObject : TExtObject read FProxyTExtObject write SetFProxyTExtObject; + property ProxyObject : TExtObject read FProxyObject write SetFProxyObject; + property ProxyProxy : TExtDataProxy read FProxyProxy write SetFProxyProxy; property Raw : TExtObject read FRaw write SetFRaw; property Stores : TExtObjectList read FStores write SetFStores; property Validations : TExtObjectList read FValidations write SetFValidations; @@ -4439,89 +4461,6 @@ TExtDataTypesSingleton = class(TExtAbstractComponent) property StripRe : TRegExp read FStripRe write SetFStripRe; end; - TExtDataOperation = class(TExtAbstractComponent) - private - FAction : String; - FActionCommitRecordsRe : TRegExp; - FActionSkipSyncRe : TRegExp; - FBatch : TExtDataBatch; - FCallback : TExtFunction; - FFilters : TExtObjectList; - FGroupers : TExtObjectList; - FLimit : Integer; - FParams : TExtObject; - FScope : TExtObject; - FSorters : TExtObjectList; - FStart : Integer; - FSynchronous : Boolean; - procedure SetFAction(Value : String); - procedure SetFActionCommitRecordsRe(Value : TRegExp); - procedure SetFActionSkipSyncRe(Value : TRegExp); - procedure SetFBatch(Value : TExtDataBatch); - procedure SetFCallback(Value : TExtFunction); - procedure SetFFilters(Value : TExtObjectList); - procedure SetFGroupers(Value : TExtObjectList); - procedure SetFLimit(Value : Integer); - procedure SetFParams(Value : TExtObject); - procedure SetFScope(Value : TExtObject); - procedure SetFSorters(Value : TExtObjectList); - procedure SetFStart(Value : Integer); - procedure SetFSynchronous(Value : Boolean); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AllowWrite : TExtFunction; - function CommitRecords(ServerRecords : TExtObjectList) : TExtFunction; - constructor Create; overload; - function GetError : TExtFunction; - function GetRecords : TExtFunction; - function GetResultSet : TExtFunction; - function HasException : TExtFunction; - function IsComplete : TExtFunction; - function IsRunning : TExtFunction; - function IsStarted : TExtFunction; - function SetCompleted : TExtFunction; - function SetException(Error : String = '') : TExtFunction; overload; - function SetStarted : TExtFunction; - function SetSuccessful : TExtFunction; - function WasSuccessful : TExtFunction; - destructor Destroy; override; - property Action : String read FAction write SetFAction; - property ActionCommitRecordsRe : TRegExp read FActionCommitRecordsRe write SetFActionCommitRecordsRe; - property ActionSkipSyncRe : TRegExp read FActionSkipSyncRe write SetFActionSkipSyncRe; - property Batch : TExtDataBatch read FBatch write SetFBatch; - property Callback : TExtFunction read FCallback write SetFCallback; - property Filters : TExtObjectList read FFilters write SetFFilters; - property Groupers : TExtObjectList read FGroupers write SetFGroupers; - property Limit : Integer read FLimit write SetFLimit; - property Params : TExtObject read FParams write SetFParams; - property Scope : TExtObject read FScope write SetFScope; - property Sorters : TExtObjectList read FSorters write SetFSorters; - property Start : Integer read FStart write SetFStart; - property Synchronous : Boolean read FSynchronous write SetFSynchronous; - end; - - TExtContainerDockingContainer = class(TExtAbstractComponent) - private - FDefaultDockWeights : TExtObject; - procedure SetFDefaultDockWeights(Value : TExtObject); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddDocked(Component : TExtObject; Pos : Integer = 0) : TExtFunction; overload; - constructor Create; - function GetDockedComponent(Comp : Integer) : TExtFunction; overload; - function GetDockedItems(Selector : String; BeforeBody : Boolean) : TExtFunction; - function InsertDocked(Pos : Integer; Component : TExtObject) : TExtFunction; overload; - function RemoveDocked(Item : TExtComponent; AutoDestroy : Boolean = false) : TExtFunction; - destructor Destroy; override; - property DefaultDockWeights : TExtObject read FDefaultDockWeights write SetFDefaultDockWeights; - end; - TExtAppController = class(TExtAbstractComponent) private FRefs : TExtObjectList; @@ -4551,45 +4490,94 @@ TExtAppController = class(TExtAbstractComponent) property Views : TExtObjectList read FViews write SetFViews; end; - TExtButtonManagerSingleton = class(TExtAbstractComponent) + TExtContainerDockingContainer = class(TExtAbstractComponent) + private + FDefaultDockWeights : TExtObject; + procedure SetFDefaultDockWeights(Value : TExtObject); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AddDocked(Component : TExtObject; Pos : Integer = 0) : TExtFunction; overload; + constructor Create; + function GetDockedComponent(Comp : Integer) : TExtFunction; overload; + function GetDockedItems(Selector : String; BeforeBody : Boolean) : TExtFunction; + function InsertDocked(Pos : Integer; Component : TExtObject) : TExtFunction; overload; + function RemoveDocked(Item : TExtComponent; AutoDestroy : Boolean = false) : TExtFunction; + destructor Destroy; override; + property DefaultDockWeights : TExtObject read FDefaultDockWeights write SetFDefaultDockWeights; end; - TExtChartTheme = class(TExtAbstractComponent) + TExtDataSortTypesSingleton = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AsDate(S : TExtObject) : TExtFunction; + function AsFloat(S : TExtObject) : TExtFunction; + function AsInt(S : TExtObject) : TExtFunction; + function AsUCString(S : TExtObject) : TExtFunction; + function AsUCText(S : TExtObject) : TExtFunction; end; - TExtDataRequest = class(TExtAbstractComponent) + TExtChartShapeSingleton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtDataAssociationBelongsTo = class(TExtAbstractComponent) private - FAction : String; - FMethod : String; - FParams : TExtObject; - FUrl : String; - procedure SetFAction(Value : String); - procedure SetFMethod(Value : String); - procedure SetFParams(Value : TExtObject); - procedure SetFUrl(Value : String); + FForeignKey : String; // '_id' + FGetterName : String; // 'get' + FSetterName : String; // 'set' + FTypeJS : String; + procedure SetFForeignKey(Value : String); + procedure SetFGetterName(Value : String); + procedure SetFSetterName(Value : String); + procedure SetFTypeJS(Value : String); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; overload; - destructor Destroy; override; - property Action : String read FAction write SetFAction; - property Method : String read FMethod write SetFMethod; - property Params : TExtObject read FParams write SetFParams; - property Url : String read FUrl write SetFUrl; + constructor Create; + property ForeignKey : String read FForeignKey write SetFForeignKey; + property GetterName : String read FGetterName write SetFGetterName; + property SetterName : String read FSetterName write SetFSetterName; + property TypeJS : String read FTypeJS write SetFTypeJS; end; - TExtChartShapeSingleton = class(TExtAbstractComponent) + TExtButtonManagerSingleton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtDataAssociationHasMany = class(TExtAbstractComponent) + private + FFilterProperty : String; + FForeignKey : String; // '_id' + FName : String; + FStoreConfig : TExtObject; + FTypeJS : String; + procedure SetFFilterProperty(Value : String); + procedure SetFForeignKey(Value : String); + procedure SetFName(Value : String); + procedure SetFStoreConfig(Value : TExtObject); + procedure SetFTypeJS(Value : String); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + destructor Destroy; override; + property FilterProperty : String read FFilterProperty write SetFFilterProperty; + property ForeignKey : String read FForeignKey write SetFForeignKey; + property Name : String read FName write SetFName; + property StoreConfig : TExtObject read FStoreConfig write SetFStoreConfig; + property TypeJS : String read FTypeJS write SetFTypeJS; end; TExtDataBatch = class(TExtAbstractComponent) @@ -4679,80 +4667,14 @@ TExtDataAssociationHasOne = class(TExtAbstractComponent) property TypeJS : String read FTypeJS write SetFTypeJS; end; - TExtDataAssociationHasMany = class(TExtAbstractComponent) - private - FFilterProperty : String; - FForeignKey : String; // '_id' - FName : String; - FStoreConfig : TExtObject; - FTypeJS : String; - procedure SetFFilterProperty(Value : String); - procedure SetFForeignKey(Value : String); - procedure SetFName(Value : String); - procedure SetFStoreConfig(Value : TExtObject); - procedure SetFTypeJS(Value : String); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property FilterProperty : String read FFilterProperty write SetFFilterProperty; - property ForeignKey : String read FForeignKey write SetFForeignKey; - property Name : String read FName write SetFName; - property StoreConfig : TExtObject read FStoreConfig write SetFStoreConfig; - property TypeJS : String read FTypeJS write SetFTypeJS; - end; - - TExtDataAssociationBelongsTo = class(TExtAbstractComponent) - private - FForeignKey : String; // '_id' - FGetterName : String; // 'get' - FSetterName : String; // 'set' - FTypeJS : String; - procedure SetFForeignKey(Value : String); - procedure SetFGetterName(Value : String); - procedure SetFSetterName(Value : String); - procedure SetFTypeJS(Value : String); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - property ForeignKey : String read FForeignKey write SetFForeignKey; - property GetterName : String read FGetterName write SetFGetterName; - property SetterName : String read FSetterName write SetFSetterName; - property TypeJS : String read FTypeJS write SetFTypeJS; - end; - - TExtChartAxisAbstract = class(TExtAbstractComponent) + TExtAppEventDomain = class(TExtAbstractComponent) private - FFields : TExtObjectList; - FLabelJS : TExtChartLabel; - procedure SetFFields(Value : TExtObjectList); - procedure SetFLabelJS(Value : TExtChartLabel); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; overload; - destructor Destroy; override; - property Fields : TExtObjectList read FFields write SetFFields; - property LabelJS : TExtChartLabel read FLabelJS write SetFLabelJS; - end; - - TExtDataSortTypesSingleton = class(TExtAbstractComponent) + FIdProperty : String; + procedure SetFIdProperty(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AsDate(S : TExtObject) : TExtFunction; - function AsFloat(S : TExtObject) : TExtFunction; - function AsInt(S : TExtObject) : TExtFunction; - function AsUCString(S : TExtObject) : TExtFunction; - function AsUCText(S : TExtObject) : TExtFunction; + property IdProperty : String read FIdProperty write SetFIdProperty; end; // Procedural types for events TExtDataConnection @@ -4843,43 +4765,57 @@ TExtDataConnection = class(TExtAbstractComponent) property OnRequestexception : TExtDataConnectionOnRequestexception read FOnRequestexception write SetFOnRequestexception; end; - TExtDataResultSet = class(TExtAbstractComponent) + TExtChartAxisAbstract = class(TExtAbstractComponent) private - FCount : Integer; - FLoaded : Boolean; - FRecords : TExtObjectList; - FSuccess : Boolean; - FTotal : Integer; - FTotalRecords : Integer; - procedure SetFCount(Value : Integer); - procedure SetFLoaded(Value : Boolean); - procedure SetFRecords(Value : TExtObjectList); - procedure SetFSuccess(Value : Boolean); - procedure SetFTotal(Value : Integer); - procedure SetFTotalRecords(Value : Integer); + FFields : TExtObjectList; + FLabelJS : TExtChartLabel; + procedure SetFFields(Value : TExtObjectList); + procedure SetFLabelJS(Value : TExtChartLabel); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; + constructor Create; overload; destructor Destroy; override; - property Count : Integer read FCount write SetFCount; - property Loaded : Boolean read FLoaded write SetFLoaded; - property Records : TExtObjectList read FRecords write SetFRecords; - property Success : Boolean read FSuccess write SetFSuccess; - property Total : Integer read FTotal write SetFTotal; - property TotalRecords : Integer read FTotalRecords write SetFTotalRecords; + property Fields : TExtObjectList read FFields write SetFFields; + property LabelJS : TExtChartLabel read FLabelJS write SetFLabelJS; end; - TExtAppEventDomain = class(TExtAbstractComponent) + TExtDataAssociation = class(TExtAbstractComponent) private - FIdProperty : String; - procedure SetFIdProperty(Value : String); + FAssociatedModel : String; + FAssociatedName : String; + FAssociationKey : String; + FModel : String; + FOwnerModel : String; + FOwnerName : String; + FPrimaryKey : String; + FReader : TExtDataReader; + procedure SetFAssociatedModel(Value : String); + procedure SetFAssociatedName(Value : String); + procedure SetFAssociationKey(Value : String); + procedure SetFModel(Value : String); + procedure SetFOwnerModel(Value : String); + procedure SetFOwnerName(Value : String); + procedure SetFPrimaryKey(Value : String); + procedure SetFReader(Value : TExtDataReader); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property IdProperty : String read FIdProperty write SetFIdProperty; + constructor Create; + function GetReader : TExtFunction; + destructor Destroy; override; + property AssociatedModel : String read FAssociatedModel write SetFAssociatedModel; + property AssociatedName : String read FAssociatedName write SetFAssociatedName; + property AssociationKey : String read FAssociationKey write SetFAssociationKey; + property Model : String read FModel write SetFModel; + property OwnerModel : String read FOwnerModel write SetFOwnerModel; + property OwnerName : String read FOwnerName write SetFOwnerName; + property PrimaryKey : String read FPrimaryKey write SetFPrimaryKey; + property Reader : TExtDataReader read FReader write SetFReader; end; TExtAppEventBusSingleton = class(TExtAbstractComponent) @@ -4891,26 +4827,62 @@ TExtAppEventBusSingleton = class(TExtAbstractComponent) function Unlisten(ControllerId : String) : TExtFunction; end; - TExtChartHighlight = class(TExtAbstractComponent) + TExtChartTheme = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtDataRequest = class(TExtAbstractComponent) private - FHighlight : Boolean; - FHighlightCfg : TExtObject; - FHighlightTExtObject : TExtObject; - procedure SetFHighlight(Value : Boolean); - procedure SetFHighlightCfg(Value : TExtObject); - procedure SetFHighlightTExtObject(Value : TExtObject); + FAction : String; + FMethod : String; + FParams : TExtObject; + FUrl : String; + procedure SetFAction(Value : String); + procedure SetFMethod(Value : String); + procedure SetFParams(Value : TExtObject); + procedure SetFUrl(Value : String); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; overload; + destructor Destroy; override; + property Action : String read FAction write SetFAction; + property Method : String read FMethod write SetFMethod; + property Params : TExtObject read FParams write SetFParams; + property Url : String read FUrl write SetFUrl; + end; + + TExtDataResultSet = class(TExtAbstractComponent) + private + FCount : Integer; + FLoaded : Boolean; + FRecords : TExtObjectList; + FSuccess : Boolean; + FTotal : Integer; + FTotalRecords : Integer; + procedure SetFCount(Value : Integer); + procedure SetFLoaded(Value : Boolean); + procedure SetFRecords(Value : TExtObjectList); + procedure SetFSuccess(Value : Boolean); + procedure SetFTotal(Value : Integer); + procedure SetFTotalRecords(Value : Integer); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} constructor Create; - function HighlightItem(Item : TExtObject) : TExtFunction; - function UnHighlightItem : TExtFunction; destructor Destroy; override; - property Highlight : Boolean read FHighlight write SetFHighlight; - property HighlightCfg : TExtObject read FHighlightCfg write SetFHighlightCfg; - property HighlightTExtObject : TExtObject read FHighlightTExtObject write SetFHighlightTExtObject; + property Count : Integer read FCount write SetFCount; + property Loaded : Boolean read FLoaded write SetFLoaded; + property Records : TExtObjectList read FRecords write SetFRecords; + property Success : Boolean read FSuccess write SetFSuccess; + property Total : Integer read FTotal write SetFTotal; + property TotalRecords : Integer read FTotalRecords write SetFTotalRecords; end; TExtChartLabel = class(TExtAbstractComponent) @@ -4927,6 +4899,15 @@ TExtChartLabel = class(TExtAbstractComponent) property LabelJS : TExtObject read FLabelJS write SetFLabelJS; end; + TExtDirectEvent = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create(Config : TExtObject = nil); + function GetData : TExtFunction; + function GetName : TExtFunction; + end; + TExtChartLegend = class(TExtAbstractComponent) private FBoxFill : String; @@ -4977,15 +4958,54 @@ TExtChartLegend = class(TExtAbstractComponent) property Y : Integer read FY write SetFY; end; - TExtAbstractPlugin = class(TExtAbstractComponent) + TExtAction = class(TExtAbstractComponent) private - FPluginId : String; - procedure SetFPluginId(Value : String); + FDisabled : Boolean; + FHandler : TExtFunction; + FHidden : Boolean; + FIconCls : String; + FIsAction : Boolean; + FItemId : String; + FScope : TExtObject; + FText : String; + procedure SetFDisabled(Value : Boolean); + procedure SetFHandler(Value : TExtFunction); + procedure SetFHidden(Value : Boolean); + procedure SetFIconCls(Value : String); + procedure SetFIsAction(Value : Boolean); + procedure SetFItemId(Value : String); + procedure SetFScope(Value : TExtObject); + procedure SetFText(Value : String); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; function Disable : TExtFunction; - property PluginId : String read FPluginId write SetFPluginId; + function Each(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; + function Enable : TExtFunction; + function Execute(Args : TExtObjectList) : TExtFunction; + function GetIconCls : TExtFunction; + function GetText : TExtFunction; + function Hide : TExtFunction; + function IsDisabled : TExtFunction; + function IsHidden : TExtFunction; + function SetDisabled(Disabled : Boolean) : TExtFunction; + function SetHandler(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; + function SetHidden(Hidden : Boolean) : TExtFunction; + function SetIconCls(Cls : String) : TExtFunction; + function SetText(Text : String) : TExtFunction; + function Show : TExtFunction; + destructor Destroy; override; + property Disabled : Boolean read FDisabled write SetFDisabled; + property Handler : TExtFunction read FHandler write SetFHandler; + property Hidden : Boolean read FHidden write SetFHidden; + property IconCls : String read FIconCls write SetFIconCls; + property IsAction : Boolean read FIsAction write SetFIsAction; + property ItemId : String read FItemId write SetFItemId; + property Scope : TExtObject read FScope write SetFScope; + property Text : String read FText write SetFText; end; // Procedural types for events TExtDdDragTracker @@ -5004,7 +5024,7 @@ TExtDdDragTracker = class(TExtAbstractComponent) FAutoStart : Boolean; FAutoStartInteger : Integer; FConstrainTo : TExtUtilRegion; - FConstrainToTExtElement : TExtElement; + FConstrainToElement : TExtElement; FDelegate : String; FHasListeners : TExtObject; FIsObservable : Boolean; @@ -5026,7 +5046,7 @@ TExtDdDragTracker = class(TExtAbstractComponent) procedure SetFAutoStart(Value : Boolean); procedure SetFAutoStartInteger(Value : Integer); procedure SetFConstrainTo(Value : TExtUtilRegion); - procedure SetFConstrainToTExtElement(Value : TExtElement); + procedure SetFConstrainToElement(Value : TExtElement); procedure SetFDelegate(Value : String); procedure SetFHasListeners(Value : TExtObject); procedure SetFIsObservable(Value : Boolean); @@ -5075,7 +5095,7 @@ TExtDdDragTracker = class(TExtAbstractComponent) property AutoStart : Boolean read FAutoStart write SetFAutoStart; property AutoStartInteger : Integer read FAutoStartInteger write SetFAutoStartInteger; property ConstrainTo : TExtUtilRegion read FConstrainTo write SetFConstrainTo; - property ConstrainToTExtElement : TExtElement read FConstrainToTExtElement write SetFConstrainToTExtElement; + property ConstrainToElement : TExtElement read FConstrainToElement write SetFConstrainToElement; property Delegate : String read FDelegate write SetFDelegate; property HasListeners : TExtObject read FHasListeners write SetFHasListeners; property IsObservable : Boolean read FIsObservable write SetFIsObservable; @@ -5096,46 +5116,33 @@ TExtDdDragTracker = class(TExtAbstractComponent) property OnMouseup : TExtDdDragTrackerOnMouseup read FOnMouseup write SetFOnMouseup; end; - TExtAbstractManager = class(TExtAbstractComponent) + TExtAbstractPlugin = class(TExtAbstractComponent) private - FAll : TExtUtilHashMap; - procedure SetFAll(Value : TExtUtilHashMap); - protected - procedure InitDefaults; override; + FPluginId : String; + procedure SetFPluginId(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function Each(Fn : TExtFunction; FnKey : String; FnValue : Integer; FnLength : Integer; FnReturn : Boolean; Scope : TExtObject) : TExtFunction; - function Get(Id : String) : TExtFunction; - function GetCount : TExtFunction; - function IsRegistered(TypeJS : String) : TExtFunction; - function OnAvailable(Id : String; Fn : TExtFunction; Scope : TExtObject) : TExtFunction; - function Register(Item : TExtObject) : TExtFunction; - function RegisterType(TypeJS : String; Cls : TExtFunction) : TExtFunction; - function Unregister(Item : TExtObject) : TExtFunction; - destructor Destroy; override; - property All : TExtUtilHashMap read FAll write SetFAll; + function Disable : TExtFunction; + property PluginId : String read FPluginId write SetFPluginId; end; - TExtDirectEvent = class(TExtAbstractComponent) + TExtDiagLayoutContextItem = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create(Config : TExtObject = nil); - function GetData : TExtFunction; - function GetName : TExtFunction; end; - TExtDdScrollManagerSingleton = class(TExtAbstractComponent) + TExtDataIdGenerator = class(TExtAbstractComponent) private - FDdGroup : String; - procedure SetFDdGroup(Value : String); + FId : String; + procedure SetFId(Value : String); public function JSClassName : string; override; + class function All : TExtObject; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function RefreshCache : TExtFunction; - property DdGroup : String read FDdGroup write SetFDdGroup; + function Get(Config : String) : TExtFunction; overload; + property Id : String read FId write SetFId; end; TExtDdRegistrySingleton = class(TExtAbstractComponent) @@ -5150,22 +5157,26 @@ TExtDdRegistrySingleton = class(TExtAbstractComponent) function Unregister(Element : String) : TExtFunction; overload; end; - TExtDataIdGenerator = class(TExtAbstractComponent) + TExtAbstractManager = class(TExtAbstractComponent) private - FId : String; - procedure SetFId(Value : String); - public - function JSClassName : string; override; - class function All : TExtObject; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Get(Config : String) : TExtFunction; overload; - property Id : String read FId write SetFId; - end; - - TExtDiagLayoutContextItem = class(TExtAbstractComponent) + FAll : TExtUtilHashMap; + procedure SetFAll(Value : TExtUtilHashMap); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function Each(Fn : TExtFunction; FnKey : String; FnValue : Integer; FnLength : Integer; FnReturn : Boolean; Scope : TExtObject) : TExtFunction; + function Get(Id : String) : TExtFunction; + function GetCount : TExtFunction; + function IsRegistered(TypeJS : String) : TExtFunction; + function OnAvailable(Id : String; Fn : TExtFunction; Scope : TExtObject) : TExtFunction; + function Register(Item : TExtObject) : TExtFunction; + function RegisterType(TypeJS : String; Cls : TExtFunction) : TExtFunction; + function Unregister(Item : TExtObject) : TExtFunction; + destructor Destroy; override; + property All : TExtUtilHashMap read FAll write SetFAll; end; TExtDiagLayoutContext = class(TExtAbstractComponent) @@ -5188,6 +5199,17 @@ TExtChartMask = class(TExtAbstractComponent) property MaskString : String read FMaskString write SetFMaskString; end; + TExtDdScrollManagerSingleton = class(TExtAbstractComponent) + private + FDdGroup : String; + procedure SetFDdGroup(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function RefreshCache : TExtFunction; + property DdGroup : String read FDdGroup write SetFDdGroup; + end; + TExtDdDragDropManagerSingleton = class(TExtAbstractComponent) private FClickPixelThresh : Integer; @@ -5250,102 +5272,115 @@ TExtDdDragDropManagerSingleton = class(TExtAbstractComponent) property UseCache : Boolean read FUseCache write SetFUseCache; end; - TExtAction = class(TExtAbstractComponent) + // Enumerated types for properties + TRegionEnum = (reNorth, reSouth, reEast, reWest, reCenter); + + TExtComponent = class(TExtAbstractComponent) private - FDisabled : Boolean; - FHandler : TExtFunction; - FHidden : Boolean; - FIconCls : String; - FIsAction : Boolean; - FItemId : String; - FScope : TExtObject; - FText : String; - procedure SetFDisabled(Value : Boolean); - procedure SetFHandler(Value : TExtFunction); - procedure SetFHidden(Value : Boolean); - procedure SetFIconCls(Value : String); - procedure SetFIsAction(Value : Boolean); - procedure SetFItemId(Value : String); - procedure SetFScope(Value : TExtObject); - procedure SetFText(Value : String); + FAutoScroll : Boolean; + FColumnWidth : Integer; + FColumnWidthString : String; + FConstrain : Boolean; + FConstrainTo : TExtUtilRegion; + FConstrainToElement : TExtElement; + FDefaultAlign : String; + FDraggable : Boolean; + FDraggableObject : TExtObject; + FFixed : Boolean; + FFloating : Boolean; + FFocusOnToFront : Boolean; + FFormBind : Boolean; + FOverflowX : String; + FOverflowY : String; + FRegion : TRegionEnum; + FResizable : Boolean; + FResizableObject : TExtObject; + FResizeHandles : String; + FShadow : String; + FShadowBoolean : Boolean; + FShadowOffset : Integer; + FToFrontOnShow : Boolean; + procedure SetFAutoScroll(Value : Boolean); + procedure SetFColumnWidth(Value : Integer); + procedure SetFColumnWidthString(Value : String); + procedure SetFConstrain(Value : Boolean); + procedure SetFConstrainTo(Value : TExtUtilRegion); + procedure SetFConstrainToElement(Value : TExtElement); + procedure SetFDefaultAlign(Value : String); + procedure SetFDraggable(Value : Boolean); + procedure SetFDraggableObject(Value : TExtObject); + procedure SetFFixed(Value : Boolean); + procedure SetFFloating(Value : Boolean); + procedure SetFFocusOnToFront(Value : Boolean); + procedure SetFFormBind(Value : Boolean); + procedure SetFOverflowX(Value : String); + procedure SetFOverflowY(Value : String); + procedure SetFRegion(Value : TRegionEnum); + procedure SetFResizable(Value : Boolean); + procedure SetFResizableObject(Value : TExtObject); + procedure SetFResizeHandles(Value : String); + procedure SetFShadow(Value : String); + procedure SetFShadowBoolean(Value : Boolean); + procedure SetFShadowOffset(Value : Integer); + procedure SetFToFrontOnShow(Value : Boolean); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function Disable : TExtFunction; - function Each(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; - function Enable : TExtFunction; - function Execute(Args : TExtObjectList) : TExtFunction; - function GetIconCls : TExtFunction; - function GetText : TExtFunction; - function Hide : TExtFunction; - function IsDisabled : TExtFunction; - function IsHidden : TExtFunction; - function SetDisabled(Disabled : Boolean) : TExtFunction; - function SetHandler(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; - function SetHidden(Hidden : Boolean) : TExtFunction; - function SetIconCls(Cls : String) : TExtFunction; - function SetText(Text : String) : TExtFunction; - function Show : TExtFunction; + function Bubble(Fn : TExtFunction; Scope : TExtObject = nil; Args : TExtObjectList = nil) : TExtFunction; + function Center : TExtFunction; + function CloneConfig(Overrides : TExtObject) : TExtFunction; + constructor Create; overload; + function DoConstrain(ConstrainTo : String = '') : TExtFunction; overload; + function FindParentBy(Fn : TExtFunction) : TExtFunction; + function FindParentByType(Xtype : String) : TExtFunction; overload; + function Focus(SelectText : Boolean = false; Delay : Boolean = false) : TExtFunction; overload; + function GetPosition(Local : Boolean = false) : TExtFunction; + function GetXType : TExtFunction; + function Hide(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function ScrollBy(DeltaX : Integer; DeltaY : Boolean; Animate : Boolean) : TExtFunction; overload; + function SetActive(Active : Boolean = false; NewActive : TExtComponent = nil) : TExtFunction; + function SetAutoScroll(Scroll : Boolean) : TExtFunction; + function SetLoading(Load : Boolean; TargetEl : Boolean = false) : TExtFunction; overload; + function SetOverflowXY(OverflowX : String; OverflowY : String) : TExtFunction; + function SetPagePosition(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; overload; + function Show(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function ShowAt(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; overload; + function ShowBy(Component : TExtComponent; Position : String = ''; Offsets : TArrayOfInteger = nil) : TExtFunction; overload; + function ToBack : TExtFunction; + function ToFront(PreventFocus : Boolean = false) : TExtFunction; + function UpdateBox(Box : TExtObject) : TExtFunction; destructor Destroy; override; - property Disabled : Boolean read FDisabled write SetFDisabled; - property Handler : TExtFunction read FHandler write SetFHandler; - property Hidden : Boolean read FHidden write SetFHidden; - property IconCls : String read FIconCls write SetFIconCls; - property IsAction : Boolean read FIsAction write SetFIsAction; - property ItemId : String read FItemId write SetFItemId; - property Scope : TExtObject read FScope write SetFScope; - property Text : String read FText write SetFText; + property AutoScroll : Boolean read FAutoScroll write SetFAutoScroll; + property ColumnWidth : Integer read FColumnWidth write SetFColumnWidth; + property ColumnWidthString : String read FColumnWidthString write SetFColumnWidthString; + property Constrain : Boolean read FConstrain write SetFConstrain; + property ConstrainTo : TExtUtilRegion read FConstrainTo write SetFConstrainTo; + property ConstrainToElement : TExtElement read FConstrainToElement write SetFConstrainToElement; + property DefaultAlign : String read FDefaultAlign write SetFDefaultAlign; + property Draggable : Boolean read FDraggable write SetFDraggable; + property DraggableObject : TExtObject read FDraggableObject write SetFDraggableObject; + property Fixed : Boolean read FFixed write SetFFixed; + property Floating : Boolean read FFloating write SetFFloating; + property FocusOnToFront : Boolean read FFocusOnToFront write SetFFocusOnToFront; + property FormBind : Boolean read FFormBind write SetFFormBind; + property OverflowX : String read FOverflowX write SetFOverflowX; + property OverflowY : String read FOverflowY write SetFOverflowY; + property Region : TRegionEnum read FRegion write SetFRegion; + property Resizable : Boolean read FResizable write SetFResizable; + property ResizableObject : TExtObject read FResizableObject write SetFResizableObject; + property ResizeHandles : String read FResizeHandles write SetFResizeHandles; + property Shadow : String read FShadow write SetFShadow; + property ShadowBoolean : Boolean read FShadowBoolean write SetFShadowBoolean; + property ShadowOffset : Integer read FShadowOffset write SetFShadowOffset; + property ToFrontOnShow : Boolean read FToFrontOnShow write SetFToFrontOnShow; end; - // Procedural types for events TExtDirectManagerSingleton - TExtDirectManagerSingletonOnEvent = procedure(Event : TExtDirectEvent; Provider : TExtDirectProvider) of object; - TExtDirectManagerSingletonOnException = procedure(Event : TExtDirectEvent) of object; - - TExtDirectManagerSingleton = class(TExtAbstractComponent) - private - FHasListeners : TExtObject; - FIsObservable : Boolean; - FListeners : TExtObject; - FOnEvent : TExtDirectManagerSingletonOnEvent; - FOnException : TExtDirectManagerSingletonOnException; - procedure SetFHasListeners(Value : TExtObject); - procedure SetFIsObservable(Value : Boolean); - procedure SetFListeners(Value : TExtObject); - procedure SetFOnEvent(Value : TExtDirectManagerSingletonOnEvent); - procedure SetFOnException(Value : TExtDirectManagerSingletonOnException); - protected - procedure HandleEvent(const AEvtName: string); override; + TExtChartCallout = class(TExtAbstractComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddEvents(EventNames : String) : TExtFunction; overload; - function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; - function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; - function AddProvider(Provider : TExtDirectProvider) : TExtFunction; overload; - function ClearListeners : TExtFunction; - function ClearManagedListeners : TExtFunction; - constructor Create; - function EnableBubble(EventNames : String) : TExtFunction; overload; - function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; - function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; - function GetProvider(Id : String) : TExtFunction; overload; - function HasListener(EventName : String) : TExtFunction; - function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; - function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; - function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function RemoveProvider(Provider : String) : TExtFunction; overload; - function ResumeEvent(EventName : String) : TExtFunction; - function ResumeEvents : TExtFunction; - function SuspendEvent(EventName : String) : TExtFunction; - function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; - property HasListeners : TExtObject read FHasListeners write SetFHasListeners; - property IsObservable : Boolean read FIsObservable write SetFIsObservable; - property Listeners : TExtObject read FListeners write SetFListeners; - property OnEvent : TExtDirectManagerSingletonOnEvent read FOnEvent write SetFOnEvent; - property OnException : TExtDirectManagerSingletonOnException read FOnException write SetFOnException; end; TExtChartNavigation = class(TExtAbstractComponent) @@ -5356,20 +5391,6 @@ TExtChartNavigation = class(TExtAbstractComponent) function SetZoom : TExtFunction; end; - TExtComponentQuerySingleton = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function IsJS(Component : TExtComponent; Selector : String) : TExtFunction; - function Query(Selector : String; Root : TExtContainer = nil) : TExtFunction; - end; - - TExtChartCallout = class(TExtAbstractComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - // Procedural types for events TExtChartSeries TExtChartSeriesOnTitlechange = procedure(Title : String; Index : Integer) of object; @@ -5378,7 +5399,7 @@ TExtChartSeries = class(TExtAbstractComponent) FHasListeners : TExtObject; FHighlight : Boolean; FHighlightCfg : TExtObject; - FHighlightTExtObject : TExtObject; + FHighlightObject : TExtObject; FIsObservable : Boolean; FLabelJS : TExtObject; FListeners : TExtObject; @@ -5392,7 +5413,7 @@ TExtChartSeries = class(TExtAbstractComponent) procedure SetFHasListeners(Value : TExtObject); procedure SetFHighlight(Value : Boolean); procedure SetFHighlightCfg(Value : TExtObject); - procedure SetFHighlightTExtObject(Value : TExtObject); + procedure SetFHighlightObject(Value : TExtObject); procedure SetFIsObservable(Value : Boolean); procedure SetFLabelJS(Value : TExtObject); procedure SetFListeners(Value : TExtObject); @@ -5440,7 +5461,7 @@ TExtChartSeries = class(TExtAbstractComponent) property HasListeners : TExtObject read FHasListeners write SetFHasListeners; property Highlight : Boolean read FHighlight write SetFHighlight; property HighlightCfg : TExtObject read FHighlightCfg write SetFHighlightCfg; - property HighlightTExtObject : TExtObject read FHighlightTExtObject write SetFHighlightTExtObject; + property HighlightObject : TExtObject read FHighlightObject write SetFHighlightObject; property IsObservable : Boolean read FIsObservable write SetFIsObservable; property LabelJS : TExtObject read FLabelJS write SetFLabelJS; property Listeners : TExtObject read FListeners write SetFListeners; @@ -5453,6 +5474,62 @@ TExtChartSeries = class(TExtAbstractComponent) property OnTitlechange : TExtChartSeriesOnTitlechange read FOnTitlechange write SetFOnTitlechange; end; + // Procedural types for events TExtDirectManagerSingleton + TExtDirectManagerSingletonOnEvent = procedure(Event : TExtDirectEvent; Provider : TExtDirectProvider) of object; + TExtDirectManagerSingletonOnException = procedure(Event : TExtDirectEvent) of object; + + TExtDirectManagerSingleton = class(TExtAbstractComponent) + private + FHasListeners : TExtObject; + FIsObservable : Boolean; + FListeners : TExtObject; + FOnEvent : TExtDirectManagerSingletonOnEvent; + FOnException : TExtDirectManagerSingletonOnException; + procedure SetFHasListeners(Value : TExtObject); + procedure SetFIsObservable(Value : Boolean); + procedure SetFListeners(Value : TExtObject); + procedure SetFOnEvent(Value : TExtDirectManagerSingletonOnEvent); + procedure SetFOnException(Value : TExtDirectManagerSingletonOnException); + protected + procedure HandleEvent(const AEvtName: string); override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AddEvents(EventNames : String) : TExtFunction; overload; + function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; + function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; + function AddProvider(Provider : TExtDirectProvider) : TExtFunction; overload; + function ClearListeners : TExtFunction; + function ClearManagedListeners : TExtFunction; + constructor Create; + function EnableBubble(EventNames : String) : TExtFunction; overload; + function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; + function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; + function GetProvider(Id : String) : TExtFunction; overload; + function HasListener(EventName : String) : TExtFunction; + function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; + function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; + function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function RemoveProvider(Provider : String) : TExtFunction; overload; + function ResumeEvent(EventName : String) : TExtFunction; + function ResumeEvents : TExtFunction; + function SuspendEvent(EventName : String) : TExtFunction; + function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; + property HasListeners : TExtObject read FHasListeners write SetFHasListeners; + property IsObservable : Boolean read FIsObservable write SetFIsObservable; + property Listeners : TExtObject read FListeners write SetFListeners; + property OnEvent : TExtDirectManagerSingletonOnEvent read FOnEvent write SetFOnEvent; + property OnException : TExtDirectManagerSingletonOnException read FOnException write SetFOnException; + end; + + TExtComponentQuerySingleton = class(TExtAbstractComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function IsJS(Component : TExtComponent; Selector : String) : TExtFunction; + function Query(Selector : String; Root : TExtContainer = nil) : TExtFunction; + end; + TExtDdDragDrop = class(TExtAbstractComponent) private FAvailable : Boolean; @@ -5546,109 +5623,26 @@ TExtDataJsonPSingleton = class(TExtAbstractComponent) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - // Enumerated types for properties - TRegionEnum = (reNorth, reSouth, reEast, reWest, reCenter); - - TExtComponent = class(TExtAbstractComponent) + TExtChartHighlight = class(TExtAbstractComponent) private - FAutoScroll : Boolean; - FColumnWidth : Integer; - FColumnWidthString : String; - FConstrain : Boolean; - FConstrainTo : TExtUtilRegion; - FConstrainToTExtElement : TExtElement; - FDefaultAlign : String; - FDraggable : Boolean; - FDraggableTExtObject : TExtObject; - FFixed : Boolean; - FFloating : Boolean; - FFocusOnToFront : Boolean; - FFormBind : Boolean; - FOverflowX : String; - FOverflowY : String; - FRegion : TRegionEnum; - FResizable : Boolean; - FResizableTExtObject : TExtObject; - FResizeHandles : String; - FShadow : String; - FShadowBoolean : Boolean; - FShadowOffset : Integer; - FToFrontOnShow : Boolean; - procedure SetFAutoScroll(Value : Boolean); - procedure SetFColumnWidth(Value : Integer); - procedure SetFColumnWidthString(Value : String); - procedure SetFConstrain(Value : Boolean); - procedure SetFConstrainTo(Value : TExtUtilRegion); - procedure SetFConstrainToTExtElement(Value : TExtElement); - procedure SetFDefaultAlign(Value : String); - procedure SetFDraggable(Value : Boolean); - procedure SetFDraggableTExtObject(Value : TExtObject); - procedure SetFFixed(Value : Boolean); - procedure SetFFloating(Value : Boolean); - procedure SetFFocusOnToFront(Value : Boolean); - procedure SetFFormBind(Value : Boolean); - procedure SetFOverflowX(Value : String); - procedure SetFOverflowY(Value : String); - procedure SetFRegion(Value : TRegionEnum); - procedure SetFResizable(Value : Boolean); - procedure SetFResizableTExtObject(Value : TExtObject); - procedure SetFResizeHandles(Value : String); - procedure SetFShadow(Value : String); - procedure SetFShadowBoolean(Value : Boolean); - procedure SetFShadowOffset(Value : Integer); - procedure SetFToFrontOnShow(Value : Boolean); + FHighlight : Boolean; + FHighlightCfg : TExtObject; + FHighlightObject : TExtObject; + procedure SetFHighlight(Value : Boolean); + procedure SetFHighlightCfg(Value : TExtObject); + procedure SetFHighlightObject(Value : TExtObject); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Bubble(Fn : TExtFunction; Scope : TExtObject = nil; Args : TExtObjectList = nil) : TExtFunction; - function Center : TExtFunction; - function CloneConfig(Overrides : TExtObject) : TExtFunction; - constructor Create; overload; - function DoConstrain(ConstrainTo : String = '') : TExtFunction; overload; - function FindParentBy(Fn : TExtFunction) : TExtFunction; - function FindParentByType(Xtype : String) : TExtFunction; overload; - function Focus(SelectText : Boolean = false; Delay : Boolean = false) : TExtFunction; overload; - function GetPosition(Local : Boolean = false) : TExtFunction; - function GetXType : TExtFunction; - function Hide(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function ScrollBy(DeltaX : Integer; DeltaY : Boolean; Animate : Boolean) : TExtFunction; overload; - function SetActive(Active : Boolean = false; NewActive : TExtComponent = nil) : TExtFunction; - function SetAutoScroll(Scroll : Boolean) : TExtFunction; - function SetLoading(Load : Boolean; TargetEl : Boolean = false) : TExtFunction; overload; - function SetOverflowXY(OverflowX : String; OverflowY : String) : TExtFunction; - function SetPagePosition(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; overload; - function Show(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function ShowAt(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; overload; - function ShowBy(Component : TExtComponent; Position : String = ''; Offsets : TArrayOfInteger = nil) : TExtFunction; overload; - function ToBack : TExtFunction; - function ToFront(PreventFocus : Boolean = false) : TExtFunction; - function UpdateBox(Box : TExtObject) : TExtFunction; + constructor Create; + function HighlightItem(Item : TExtObject) : TExtFunction; + function UnHighlightItem : TExtFunction; destructor Destroy; override; - property AutoScroll : Boolean read FAutoScroll write SetFAutoScroll; - property ColumnWidth : Integer read FColumnWidth write SetFColumnWidth; - property ColumnWidthString : String read FColumnWidthString write SetFColumnWidthString; - property Constrain : Boolean read FConstrain write SetFConstrain; - property ConstrainTo : TExtUtilRegion read FConstrainTo write SetFConstrainTo; - property ConstrainToTExtElement : TExtElement read FConstrainToTExtElement write SetFConstrainToTExtElement; - property DefaultAlign : String read FDefaultAlign write SetFDefaultAlign; - property Draggable : Boolean read FDraggable write SetFDraggable; - property DraggableTExtObject : TExtObject read FDraggableTExtObject write SetFDraggableTExtObject; - property Fixed : Boolean read FFixed write SetFFixed; - property Floating : Boolean read FFloating write SetFFloating; - property FocusOnToFront : Boolean read FFocusOnToFront write SetFFocusOnToFront; - property FormBind : Boolean read FFormBind write SetFFormBind; - property OverflowX : String read FOverflowX write SetFOverflowX; - property OverflowY : String read FOverflowY write SetFOverflowY; - property Region : TRegionEnum read FRegion write SetFRegion; - property Resizable : Boolean read FResizable write SetFResizable; - property ResizableTExtObject : TExtObject read FResizableTExtObject write SetFResizableTExtObject; - property ResizeHandles : String read FResizeHandles write SetFResizeHandles; - property Shadow : String read FShadow write SetFShadow; - property ShadowBoolean : Boolean read FShadowBoolean write SetFShadowBoolean; - property ShadowOffset : Integer read FShadowOffset write SetFShadowOffset; - property ToFrontOnShow : Boolean read FToFrontOnShow write SetFToFrontOnShow; + property Highlight : Boolean read FHighlight write SetFHighlight; + property HighlightCfg : TExtObject read FHighlightCfg write SetFHighlightCfg; + property HighlightObject : TExtObject read FHighlightObject write SetFHighlightObject; end; TExtGridFeatureGroupStore = class(TExtUtilObservable) @@ -5657,6 +5651,100 @@ TExtGridFeatureGroupStore = class(TExtUtilObservable) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + TExtFxTargetSprite = class(TExtFxTarget) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtChartAxis = class(TExtChartAxisAbstract) + private + FAdjustEnd : Boolean; + FDashSize : Integer; + FGrid : Boolean; + FGridObject : TExtObject; + FLength : Integer; + FMajorTickSteps : Integer; + FMinorTickSteps : Integer; + FPosition : String; + FTitle : String; + FWidth : Integer; + procedure SetFAdjustEnd(Value : Boolean); + procedure SetFDashSize(Value : Integer); + procedure SetFGrid(Value : Boolean); + procedure SetFGridObject(Value : TExtObject); + procedure SetFLength(Value : Integer); + procedure SetFMajorTickSteps(Value : Integer); + procedure SetFMinorTickSteps(Value : Integer); + procedure SetFPosition(Value : String); + procedure SetFTitle(Value : String); + procedure SetFWidth(Value : Integer); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function DrawAxis : TExtFunction; + function DrawGrid : TExtFunction; + function DrawLabel : TExtFunction; + function SetTitle(Title : String) : TExtFunction; + destructor Destroy; override; + property AdjustEnd : Boolean read FAdjustEnd write SetFAdjustEnd; + property DashSize : Integer read FDashSize write SetFDashSize; + property Grid : Boolean read FGrid write SetFGrid; + property GridObject : TExtObject read FGridObject write SetFGridObject; + property Length : Integer read FLength write SetFLength; + property MajorTickSteps : Integer read FMajorTickSteps write SetFMajorTickSteps; + property MinorTickSteps : Integer read FMinorTickSteps write SetFMinorTickSteps; + property Position : String read FPosition write SetFPosition; + property Title : String read FTitle write SetFTitle; + property Width : Integer read FWidth write SetFWidth; + end; + + TExtLayoutContainer = class(TExtLayout) + private + FItemCls : String; + FOverflowPadderEl : TExtElement; + procedure SetFItemCls(Value : String); + procedure SetFOverflowPadderEl(Value : TExtElement); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AddChildEls : TExtFunction; + function BeginLayout : TExtFunction; + constructor Create; + function GetElementTarget : TExtFunction; + function GetLayoutItems : TExtFunction; + function GetRenderTarget : TExtFunction; + function GetTarget : TExtFunction; + function RemoveChildEls(TestFn : TExtFunction) : TExtFunction; + destructor Destroy; override; + property ItemCls : String read FItemCls write SetFItemCls; + property OverflowPadderEl : TExtElement read FOverflowPadderEl write SetFOverflowPadderEl; + end; + + TExtMenuKeyNav = class(TExtUtilKeyNav) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtUtilLruCache = class(TExtUtilHashMap) + private + FMaxSize : Integer; + procedure SetFMaxSize(Value : Integer); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Clone : TExtFunction; + function Each(Fn : TExtFunction; Scope : TExtObject; Reverse : Boolean = false) : TExtFunction; + function Prune : TExtFunction; + property MaxSize : Integer read FMaxSize write SetFMaxSize; + end; + // Procedural types for events TExtButton TExtButtonOnClick = procedure(This : TExtButton; E : TExtDirectEvent) of object; TExtButtonOnGlyphchange = procedure(This : TExtButton; NewGlyph : Integer; OldGlyph : Integer) of object; @@ -5700,8 +5788,8 @@ TExtButton = class(TExtComponent) FMenu_ : TExtMenu; FMenuActiveCls : String; FMenuAlign : String; + FMenuObject : TExtObject; FMenuString : String; - FMenuTExtObject : TExtObject; FMinWidth : Integer; FOverCls : String; FOverflowText : String; @@ -5710,7 +5798,7 @@ TExtButton = class(TExtComponent) FPressedCls : String; FPreventDefault : Boolean; FRepeatJS : Boolean; - FRepeatJSTExtObject : TExtObject; + FRepeatJSObject : TExtObject; FScale : TScaleEnum; FScope : TExtObject; FShowEmptyMenu : Boolean; @@ -5720,7 +5808,7 @@ TExtButton = class(TExtComponent) FToggleGroup : String; FToggleHandler : TExtFunction; FTooltip : String; - FTooltipTExtObject : TExtObject; + FTooltipObject : TExtObject; FTooltipType : String; FTypeJS : String; FOnClick : TExtButtonOnClick; @@ -5759,8 +5847,8 @@ TExtButton = class(TExtComponent) procedure SetFMenu_(Value : TExtMenu); procedure SetFMenuActiveCls(Value : String); procedure SetFMenuAlign(Value : String); + procedure SetFMenuObject(Value : TExtObject); procedure SetFMenuString(Value : String); - procedure SetFMenuTExtObject(Value : TExtObject); procedure SetFMinWidth(Value : Integer); procedure SetFOverCls(Value : String); procedure SetFOverflowText(Value : String); @@ -5769,7 +5857,7 @@ TExtButton = class(TExtComponent) procedure SetFPressedCls(Value : String); procedure SetFPreventDefault(Value : Boolean); procedure SetFRepeatJS(Value : Boolean); - procedure SetFRepeatJSTExtObject(Value : TExtObject); + procedure SetFRepeatJSObject(Value : TExtObject); procedure SetFScale(Value : TScaleEnum); procedure SetFScope(Value : TExtObject); procedure SetFShowEmptyMenu(Value : Boolean); @@ -5779,7 +5867,7 @@ TExtButton = class(TExtComponent) procedure SetFToggleGroup(Value : String); procedure SetFToggleHandler(Value : TExtFunction); procedure SetFTooltip(Value : String); - procedure SetFTooltipTExtObject(Value : TExtObject); + procedure SetFTooltipObject(Value : TExtObject); procedure SetFTooltipType(Value : String); procedure SetFTypeJS(Value : String); procedure SetFOnClick(Value : TExtButtonOnClick); @@ -5842,8 +5930,8 @@ TExtButton = class(TExtComponent) property Menu_ : TExtMenu read FMenu_ write SetFMenu_; property MenuActiveCls : String read FMenuActiveCls write SetFMenuActiveCls; property MenuAlign : String read FMenuAlign write SetFMenuAlign; + property MenuObject : TExtObject read FMenuObject write SetFMenuObject; property MenuString : String read FMenuString write SetFMenuString; - property MenuTExtObject : TExtObject read FMenuTExtObject write SetFMenuTExtObject; property MinWidth : Integer read FMinWidth write SetFMinWidth; property OverCls : String read FOverCls write SetFOverCls; property OverflowText : String read FOverflowText write SetFOverflowText; @@ -5852,7 +5940,7 @@ TExtButton = class(TExtComponent) property PressedCls : String read FPressedCls write SetFPressedCls; property PreventDefault : Boolean read FPreventDefault write SetFPreventDefault; property RepeatJS : Boolean read FRepeatJS write SetFRepeatJS; - property RepeatJSTExtObject : TExtObject read FRepeatJSTExtObject write SetFRepeatJSTExtObject; + property RepeatJSObject : TExtObject read FRepeatJSObject write SetFRepeatJSObject; property Scale : TScaleEnum read FScale write SetFScale; property Scope : TExtObject read FScope write SetFScope; property ShowEmptyMenu : Boolean read FShowEmptyMenu write SetFShowEmptyMenu; @@ -5862,7 +5950,7 @@ TExtButton = class(TExtComponent) property ToggleGroup : String read FToggleGroup write SetFToggleGroup; property ToggleHandler : TExtFunction read FToggleHandler write SetFToggleHandler; property Tooltip : String read FTooltip write SetFTooltip; - property TooltipTExtObject : TExtObject read FTooltipTExtObject write SetFTooltipTExtObject; + property TooltipObject : TExtObject read FTooltipObject write SetFTooltipObject; property TooltipType : String read FTooltipType write SetFTooltipType; property TypeJS : String read FTypeJS write SetFTypeJS; property OnClick : TExtButtonOnClick read FOnClick write SetFOnClick; @@ -5878,101 +5966,6 @@ TExtButton = class(TExtComponent) property OnToggle : TExtButtonOnToggle read FOnToggle write SetFOnToggle; end; - TExtChartAxis = class(TExtChartAxisAbstract) - private - FAdjustEnd : Boolean; - FDashSize : Integer; - FGrid : Boolean; - FGridTExtObject : TExtObject; - FLength : Integer; - FMajorTickSteps : Integer; - FMinorTickSteps : Integer; - FPosition : String; - FTitle : String; - FWidth : Integer; - procedure SetFAdjustEnd(Value : Boolean); - procedure SetFDashSize(Value : Integer); - procedure SetFGrid(Value : Boolean); - procedure SetFGridTExtObject(Value : TExtObject); - procedure SetFLength(Value : Integer); - procedure SetFMajorTickSteps(Value : Integer); - procedure SetFMinorTickSteps(Value : Integer); - procedure SetFPosition(Value : String); - procedure SetFTitle(Value : String); - procedure SetFWidth(Value : Integer); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function DrawAxis : TExtFunction; - function DrawGrid : TExtFunction; - function DrawLabel : TExtFunction; - function SetTitle(Title : String) : TExtFunction; - destructor Destroy; override; - property AdjustEnd : Boolean read FAdjustEnd write SetFAdjustEnd; - property DashSize : Integer read FDashSize write SetFDashSize; - property Grid : Boolean read FGrid write SetFGrid; - property GridTExtObject : TExtObject read FGridTExtObject write SetFGridTExtObject; - property Length : Integer read FLength write SetFLength; - property MajorTickSteps : Integer read FMajorTickSteps write SetFMajorTickSteps; - property MinorTickSteps : Integer read FMinorTickSteps write SetFMinorTickSteps; - property Position : String read FPosition write SetFPosition; - property Title : String read FTitle write SetFTitle; - property Width : Integer read FWidth write SetFWidth; - end; - - TExtMenuKeyNav = class(TExtUtilKeyNav) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtFxTargetSprite = class(TExtFxTarget) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtChartMaskLayer = class(TExtComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtUtilMixedCollection = class(TExtUtilAbstractMixedCollection) - private - FAllowFunctions : Boolean; - FDefaultSortDirection : String; - FSorters : TExtObjectList; - FSorters_ : TExtObjectList; - FSortersTExtObjectList : TExtObjectList; - FSortRoot : String; - procedure SetFAllowFunctions(Value : Boolean); - procedure SetFDefaultSortDirection(Value : String); - procedure SetFSorters(Value : TExtObjectList); - procedure SetFSorters_(Value : TExtObjectList); - procedure SetFSortersTExtObjectList(Value : TExtObjectList); - procedure SetFSortRoot(Value : String); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create(Config : TExtObject; ConfigAllowFunctions : Boolean = false; ConfigGetKey : TExtFunction = nil); - function FindInsertionIndex(NewItem : TExtObject; SorterFn : TExtFunction = nil) : TExtFunction; - function GenerateComparator : TExtFunction; - function Reorder(Mapping : TExtObject) : TExtFunction; - function Sort(Sorters : String = ''; Direction : String = '') : TExtFunction; overload; - function SortBy(SorterFn : TExtFunction) : TExtFunction; - function SortByKey(Direction : String = ''; Fn : TExtFunction = nil) : TExtFunction; - property AllowFunctions : Boolean read FAllowFunctions write SetFAllowFunctions; - property DefaultSortDirection : String read FDefaultSortDirection write SetFDefaultSortDirection; - property Sorters : TExtObjectList read FSorters write SetFSorters; - property Sorters_ : TExtObjectList read FSorters_ write SetFSorters_; - property SortersTExtObjectList : TExtObjectList read FSortersTExtObjectList write SetFSortersTExtObjectList; - property SortRoot : String read FSortRoot write SetFSortRoot; - end; - TExtChartSeriesPie = class(TExtChartSeries) private FAngleField : String; @@ -6018,6 +6011,22 @@ TExtChartSeriesPie = class(TExtChartSeries) property XField : String read FXField write SetFXField; end; + TExtViewBoundListKeyNav = class(TExtUtilKeyNav) + private + FBoundList : TExtViewBoundList; + procedure SetFBoundList(Value : TExtViewBoundList); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function HighlightAt(Index : Integer) : TExtFunction; + function SelectHighlighted : TExtFunction; + destructor Destroy; override; + property BoundList : TExtViewBoundList read FBoundList write SetFBoundList; + end; + TExtChartSeriesRadar = class(TExtChartSeries) private FMarkerConfig : TExtObject; @@ -6045,44 +6054,18 @@ TExtChartSeriesRadar = class(TExtChartSeries) property YField : String read FYField write SetFYField; end; - TExtViewBoundListKeyNav = class(TExtUtilKeyNav) - private - FBoundList : TExtViewBoundList; - procedure SetFBoundList(Value : TExtViewBoundList); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function HighlightAt(Index : Integer) : TExtFunction; - function SelectHighlighted : TExtFunction; - destructor Destroy; override; - property BoundList : TExtViewBoundList read FBoundList write SetFBoundList; - end; - - TExtLayoutContainer = class(TExtLayout) + TExtModelManagerSingleton = class(TExtAbstractManager) private - FItemCls : String; - FOverflowPadderEl : TExtElement; - procedure SetFItemCls(Value : String); - procedure SetFOverflowPadderEl(Value : TExtElement); + FAssociationStack : TExtObjectList; + procedure SetFAssociationStack(Value : TExtObjectList); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddChildEls : TExtFunction; - function BeginLayout : TExtFunction; - constructor Create; - function GetElementTarget : TExtFunction; - function GetLayoutItems : TExtFunction; - function GetRenderTarget : TExtFunction; - function GetTarget : TExtFunction; - function RemoveChildEls(TestFn : TExtFunction) : TExtFunction; + function GetModel(Id : String) : TExtFunction; overload; destructor Destroy; override; - property ItemCls : String read FItemCls write SetFItemCls; - property OverflowPadderEl : TExtElement read FOverflowPadderEl write SetFOverflowPadderEl; + property AssociationStack : TExtObjectList read FAssociationStack write SetFAssociationStack; end; TExtGridFeature = class(TExtUtilObservable) @@ -6097,31 +6080,10 @@ TExtGridFeature = class(TExtUtilObservable) property IsFeature : Boolean read FIsFeature write SetFIsFeature; end; - TExtModelManagerSingleton = class(TExtAbstractManager) - private - FAssociationStack : TExtObjectList; - procedure SetFAssociationStack(Value : TExtObjectList); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetModel(Id : String) : TExtFunction; overload; - destructor Destroy; override; - property AssociationStack : TExtObjectList read FAssociationStack write SetFAssociationStack; - end; - - TExtUtilLruCache = class(TExtUtilHashMap) - private - FMaxSize : Integer; - procedure SetFMaxSize(Value : Integer); + TExtChartMaskLayer = class(TExtComponent) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Clone : TExtFunction; - function Each(Fn : TExtFunction; Scope : TExtObject; Reverse : Boolean = false) : TExtFunction; - function Prune : TExtFunction; - property MaxSize : Integer read FMaxSize write SetFMaxSize; end; // Procedural types for events TExtViewAbstractView @@ -6142,20 +6104,20 @@ TExtViewAbstractView = class(TExtComponent) FItemCls : String; FItemSelector : String; FItemTpl : String; - FItemTplTExtObjectList : TExtObjectList; - FItemTplTExtXTemplate : TExtXTemplate; + FItemTplList : TExtObjectList; + FItemTplTemplate : TExtXTemplate; FLoadingCls : String; FLoadingHeight : Integer; FLoadingText : String; FLoadMask : Boolean; - FLoadMaskTExtObject : TExtObject; + FLoadMaskObject : TExtObject; FOverItemCls : String; FPreserveScrollOnRefresh : Boolean; FSelectedItemCls : String; FStore : TExtDataStore; FTpl : String; - FTplTExtObjectList : TExtObjectList; - FTplTExtXTemplate : TExtXTemplate; + FTplList : TExtObjectList; + FTplTemplate : TExtXTemplate; FTrackOver : Boolean; FOnBeforerefresh : TExtViewAbstractViewOnBeforerefresh; FOnItemadd : TExtViewAbstractViewOnItemadd; @@ -6171,20 +6133,20 @@ TExtViewAbstractView = class(TExtComponent) procedure SetFItemCls(Value : String); procedure SetFItemSelector(Value : String); procedure SetFItemTpl(Value : String); - procedure SetFItemTplTExtObjectList(Value : TExtObjectList); - procedure SetFItemTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFItemTplList(Value : TExtObjectList); + procedure SetFItemTplTemplate(Value : TExtXTemplate); procedure SetFLoadingCls(Value : String); procedure SetFLoadingHeight(Value : Integer); procedure SetFLoadingText(Value : String); procedure SetFLoadMask(Value : Boolean); - procedure SetFLoadMaskTExtObject(Value : TExtObject); + procedure SetFLoadMaskObject(Value : TExtObject); procedure SetFOverItemCls(Value : String); procedure SetFPreserveScrollOnRefresh(Value : Boolean); procedure SetFSelectedItemCls(Value : String); procedure SetFStore(Value : TExtDataStore); procedure SetFTpl(Value : String); - procedure SetFTplTExtObjectList(Value : TExtObjectList); - procedure SetFTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFTplList(Value : TExtObjectList); + procedure SetFTplTemplate(Value : TExtXTemplate); procedure SetFTrackOver(Value : Boolean); procedure SetFOnBeforerefresh(Value : TExtViewAbstractViewOnBeforerefresh); procedure SetFOnItemadd(Value : TExtViewAbstractViewOnItemadd); @@ -6225,20 +6187,20 @@ TExtViewAbstractView = class(TExtComponent) property ItemCls : String read FItemCls write SetFItemCls; property ItemSelector : String read FItemSelector write SetFItemSelector; property ItemTpl : String read FItemTpl write SetFItemTpl; - property ItemTplTExtObjectList : TExtObjectList read FItemTplTExtObjectList write SetFItemTplTExtObjectList; - property ItemTplTExtXTemplate : TExtXTemplate read FItemTplTExtXTemplate write SetFItemTplTExtXTemplate; + property ItemTplList : TExtObjectList read FItemTplList write SetFItemTplList; + property ItemTplTemplate : TExtXTemplate read FItemTplTemplate write SetFItemTplTemplate; property LoadingCls : String read FLoadingCls write SetFLoadingCls; property LoadingHeight : Integer read FLoadingHeight write SetFLoadingHeight; property LoadingText : String read FLoadingText write SetFLoadingText; property LoadMask : Boolean read FLoadMask write SetFLoadMask; - property LoadMaskTExtObject : TExtObject read FLoadMaskTExtObject write SetFLoadMaskTExtObject; + property LoadMaskObject : TExtObject read FLoadMaskObject write SetFLoadMaskObject; property OverItemCls : String read FOverItemCls write SetFOverItemCls; property PreserveScrollOnRefresh : Boolean read FPreserveScrollOnRefresh write SetFPreserveScrollOnRefresh; property SelectedItemCls : String read FSelectedItemCls write SetFSelectedItemCls; property Store : TExtDataStore read FStore write SetFStore; property Tpl : String read FTpl write SetFTpl; - property TplTExtObjectList : TExtObjectList read FTplTExtObjectList write SetFTplTExtObjectList; - property TplTExtXTemplate : TExtXTemplate read FTplTExtXTemplate write SetFTplTExtXTemplate; + property TplList : TExtObjectList read FTplList write SetFTplList; + property TplTemplate : TExtXTemplate read FTplTemplate write SetFTplTemplate; property TrackOver : Boolean read FTrackOver write SetFTrackOver; property OnBeforerefresh : TExtViewAbstractViewOnBeforerefresh read FOnBeforerefresh write SetFOnBeforerefresh; property OnItemadd : TExtViewAbstractViewOnItemadd read FOnItemadd write SetFOnItemadd; @@ -6248,6 +6210,18 @@ TExtViewAbstractView = class(TExtComponent) property OnViewready : TExtViewAbstractViewOnViewready read FOnViewready write SetFOnViewready; end; + TExtStateLocalStorageProvider = class(TExtStateProvider) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtUtilTaskManagerSingleton = class(TExtUtilTaskRunner) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtChartAxisGauge = class(TExtChartAxisAbstract) private FMargin : Integer; @@ -6271,30 +6245,32 @@ TExtChartAxisGauge = class(TExtChartAxisAbstract) property Title : String read FTitle write SetFTitle; end; - TExtUtilTaskManagerSingleton = class(TExtUtilTaskRunner) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtLayoutContainerBoxOverflowMenu = class(TExtLayoutContainerBoxOverflowNone) + TExtChartSeriesCartesian = class(TExtChartSeries) private - FMenuItems : TExtObjectList; - FNoItemsMenuText : String; - FTriggerButtonCls : String; - procedure SetFMenuItems(Value : TExtObjectList); - procedure SetFNoItemsMenuText(Value : String); - procedure SetFTriggerButtonCls(Value : String); + FAxis : String; + FAxisList : TExtObjectList; + FXField : String; + FYField : String; + FYFieldList : TExtObjectList; + procedure SetFAxis(Value : String); + procedure SetFAxisList(Value : TExtObjectList); + procedure SetFXField(Value : String); + procedure SetFYField(Value : String); + procedure SetFYFieldList(Value : TExtObjectList); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} constructor Create; + function GetMinMaxXValues : TExtFunction; + function GetMinMaxYValues : TExtFunction; destructor Destroy; override; - property MenuItems : TExtObjectList read FMenuItems write SetFMenuItems; - property NoItemsMenuText : String read FNoItemsMenuText write SetFNoItemsMenuText; - property TriggerButtonCls : String read FTriggerButtonCls write SetFTriggerButtonCls; + property Axis : String read FAxis write SetFAxis; + property AxisList : TExtObjectList read FAxisList write SetFAxisList; + property XField : String read FXField write SetFXField; + property YField : String read FYField write SetFYField; + property YFieldList : TExtObjectList read FYFieldList write SetFYFieldList; end; TExtDataField = class(TExtDataModel) @@ -6378,30 +6354,77 @@ TExtGridProperty = class(TExtDataModel) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtImg = class(TExtComponent) + // Procedural types for events TExtLayoutContainerBoxOverflowScroller + TExtLayoutContainerBoxOverflowScrollerOnScroll = procedure(Scroller : TExtLayoutContainerBoxOverflowScroller; NewPosition : Integer; Animate : Boolean) of object; + + TExtLayoutContainerBoxOverflowScroller = class(TExtLayoutContainerBoxOverflowNone) private - FAlt : String; - FGlyph : Integer; - FGlyphString : String; - FImgCls : String; - FSrc : String; - FTitle : String; - procedure SetFAlt(Value : String); - procedure SetFGlyph(Value : Integer); - procedure SetFGlyphString(Value : String); - procedure SetFImgCls(Value : String); - procedure SetFSrc(Value : String); - procedure SetFTitle(Value : String); + FAfterCtCls : String; + FAfterScrollerCls : String; + FAnimateScroll : Boolean; + FBeforeCtCls : String; + FBeforeScrollerCls : String; + FHasListeners : TExtObject; + FIsObservable : Boolean; + FListeners : TExtObject; + FScrollDuration : Integer; + FScrollerCls : String; + FScrollIncrement : Integer; + FScrollRepeatInterval : Integer; + FWheelIncrement : Integer; + FOnScroll : TExtLayoutContainerBoxOverflowScrollerOnScroll; + procedure SetFAfterCtCls(Value : String); + procedure SetFAfterScrollerCls(Value : String); + procedure SetFAnimateScroll(Value : Boolean); + procedure SetFBeforeCtCls(Value : String); + procedure SetFBeforeScrollerCls(Value : String); + procedure SetFHasListeners(Value : TExtObject); + procedure SetFIsObservable(Value : Boolean); + procedure SetFListeners(Value : TExtObject); + procedure SetFScrollDuration(Value : Integer); + procedure SetFScrollerCls(Value : String); + procedure SetFScrollIncrement(Value : Integer); + procedure SetFScrollRepeatInterval(Value : Integer); + procedure SetFWheelIncrement(Value : Integer); + procedure SetFOnScroll(Value : TExtLayoutContainerBoxOverflowScrollerOnScroll); + protected + procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function SetSrc(Src : String) : TExtFunction; - property Alt : String read FAlt write SetFAlt; - property Glyph : Integer read FGlyph write SetFGlyph; - property GlyphString : String read FGlyphString write SetFGlyphString; - property ImgCls : String read FImgCls write SetFImgCls; - property Src : String read FSrc write SetFSrc; - property Title : String read FTitle write SetFTitle; + function AddEvents(EventNames : String) : TExtFunction; overload; + function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; + function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; + function ClearListeners : TExtFunction; + function ClearManagedListeners : TExtFunction; + constructor Create; + function EnableBubble(EventNames : String) : TExtFunction; overload; + function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; + function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; + function GetScrollPosition : TExtFunction; + function HasListener(EventName : String) : TExtFunction; + function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; + function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; + function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function ResumeEvent(EventName : String) : TExtFunction; + function ResumeEvents : TExtFunction; + function ScrollToItem(Item : Integer; Animate : Boolean) : TExtFunction; overload; + function SuspendEvent(EventName : String) : TExtFunction; + function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; + property AfterCtCls : String read FAfterCtCls write SetFAfterCtCls; + property AfterScrollerCls : String read FAfterScrollerCls write SetFAfterScrollerCls; + property AnimateScroll : Boolean read FAnimateScroll write SetFAnimateScroll; + property BeforeCtCls : String read FBeforeCtCls write SetFBeforeCtCls; + property BeforeScrollerCls : String read FBeforeScrollerCls write SetFBeforeScrollerCls; + property HasListeners : TExtObject read FHasListeners write SetFHasListeners; + property IsObservable : Boolean read FIsObservable write SetFIsObservable; + property Listeners : TExtObject read FListeners write SetFListeners; + property ScrollDuration : Integer read FScrollDuration write SetFScrollDuration; + property ScrollerCls : String read FScrollerCls write SetFScrollerCls; + property ScrollIncrement : Integer read FScrollIncrement write SetFScrollIncrement; + property ScrollRepeatInterval : Integer read FScrollRepeatInterval write SetFScrollRepeatInterval; + property WheelIncrement : Integer read FWheelIncrement write SetFWheelIncrement; + property OnScroll : TExtLayoutContainerBoxOverflowScrollerOnScroll read FOnScroll write SetFOnScroll; end; // Enumerated types for properties @@ -6451,32 +6474,24 @@ TExtLayoutComponent = class(TExtLayout) function GetTarget : TExtFunction; end; - TExtChartSeriesCartesian = class(TExtChartSeries) + TExtLayoutContainerBoxOverflowMenu = class(TExtLayoutContainerBoxOverflowNone) private - FAxis : String; - FAxisTExtObjectList : TExtObjectList; - FXField : String; - FYField : String; - FYFieldTExtObjectList : TExtObjectList; - procedure SetFAxis(Value : String); - procedure SetFAxisTExtObjectList(Value : TExtObjectList); - procedure SetFXField(Value : String); - procedure SetFYField(Value : String); - procedure SetFYFieldTExtObjectList(Value : TExtObjectList); + FMenuItems : TExtObjectList; + FNoItemsMenuText : String; + FTriggerButtonCls : String; + procedure SetFMenuItems(Value : TExtObjectList); + procedure SetFNoItemsMenuText(Value : String); + procedure SetFTriggerButtonCls(Value : String); protected procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} constructor Create; - function GetMinMaxXValues : TExtFunction; - function GetMinMaxYValues : TExtFunction; destructor Destroy; override; - property Axis : String read FAxis write SetFAxis; - property AxisTExtObjectList : TExtObjectList read FAxisTExtObjectList write SetFAxisTExtObjectList; - property XField : String read FXField write SetFXField; - property YField : String read FYField write SetFYField; - property YFieldTExtObjectList : TExtObjectList read FYFieldTExtObjectList write SetFYFieldTExtObjectList; + property MenuItems : TExtObjectList read FMenuItems write SetFMenuItems; + property NoItemsMenuText : String read FNoItemsMenuText write SetFNoItemsMenuText; + property TriggerButtonCls : String read FTriggerButtonCls write SetFTriggerButtonCls; end; TExtDataGroup = class(TExtUtilObservable) @@ -6485,77 +6500,30 @@ TExtDataGroup = class(TExtUtilObservable) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - // Procedural types for events TExtLayoutContainerBoxOverflowScroller - TExtLayoutContainerBoxOverflowScrollerOnScroll = procedure(Scroller : TExtLayoutContainerBoxOverflowScroller; NewPosition : Integer; Animate : Boolean) of object; - - TExtLayoutContainerBoxOverflowScroller = class(TExtLayoutContainerBoxOverflowNone) + TExtImg = class(TExtComponent) private - FAfterCtCls : String; - FAfterScrollerCls : String; - FAnimateScroll : Boolean; - FBeforeCtCls : String; - FBeforeScrollerCls : String; - FHasListeners : TExtObject; - FIsObservable : Boolean; - FListeners : TExtObject; - FScrollDuration : Integer; - FScrollerCls : String; - FScrollIncrement : Integer; - FScrollRepeatInterval : Integer; - FWheelIncrement : Integer; - FOnScroll : TExtLayoutContainerBoxOverflowScrollerOnScroll; - procedure SetFAfterCtCls(Value : String); - procedure SetFAfterScrollerCls(Value : String); - procedure SetFAnimateScroll(Value : Boolean); - procedure SetFBeforeCtCls(Value : String); - procedure SetFBeforeScrollerCls(Value : String); - procedure SetFHasListeners(Value : TExtObject); - procedure SetFIsObservable(Value : Boolean); - procedure SetFListeners(Value : TExtObject); - procedure SetFScrollDuration(Value : Integer); - procedure SetFScrollerCls(Value : String); - procedure SetFScrollIncrement(Value : Integer); - procedure SetFScrollRepeatInterval(Value : Integer); - procedure SetFWheelIncrement(Value : Integer); - procedure SetFOnScroll(Value : TExtLayoutContainerBoxOverflowScrollerOnScroll); - protected - procedure HandleEvent(const AEvtName: string); override; + FAlt : String; + FGlyph : Integer; + FGlyphString : String; + FImgCls : String; + FSrc : String; + FTitle : String; + procedure SetFAlt(Value : String); + procedure SetFGlyph(Value : Integer); + procedure SetFGlyphString(Value : String); + procedure SetFImgCls(Value : String); + procedure SetFSrc(Value : String); + procedure SetFTitle(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddEvents(EventNames : String) : TExtFunction; overload; - function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; - function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; - function ClearListeners : TExtFunction; - function ClearManagedListeners : TExtFunction; - constructor Create; - function EnableBubble(EventNames : String) : TExtFunction; overload; - function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; - function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; - function GetScrollPosition : TExtFunction; - function HasListener(EventName : String) : TExtFunction; - function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; - function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; - function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function ResumeEvent(EventName : String) : TExtFunction; - function ResumeEvents : TExtFunction; - function ScrollToItem(Item : Integer; Animate : Boolean) : TExtFunction; overload; - function SuspendEvent(EventName : String) : TExtFunction; - function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; - property AfterCtCls : String read FAfterCtCls write SetFAfterCtCls; - property AfterScrollerCls : String read FAfterScrollerCls write SetFAfterScrollerCls; - property AnimateScroll : Boolean read FAnimateScroll write SetFAnimateScroll; - property BeforeCtCls : String read FBeforeCtCls write SetFBeforeCtCls; - property BeforeScrollerCls : String read FBeforeScrollerCls write SetFBeforeScrollerCls; - property HasListeners : TExtObject read FHasListeners write SetFHasListeners; - property IsObservable : Boolean read FIsObservable write SetFIsObservable; - property Listeners : TExtObject read FListeners write SetFListeners; - property ScrollDuration : Integer read FScrollDuration write SetFScrollDuration; - property ScrollerCls : String read FScrollerCls write SetFScrollerCls; - property ScrollIncrement : Integer read FScrollIncrement write SetFScrollIncrement; - property ScrollRepeatInterval : Integer read FScrollRepeatInterval write SetFScrollRepeatInterval; - property WheelIncrement : Integer read FWheelIncrement write SetFWheelIncrement; - property OnScroll : TExtLayoutContainerBoxOverflowScrollerOnScroll read FOnScroll write SetFOnScroll; + function SetSrc(Src : String) : TExtFunction; + property Alt : String read FAlt write SetFAlt; + property Glyph : Integer read FGlyph write SetFGlyph; + property GlyphString : String read FGlyphString write SetFGlyphString; + property ImgCls : String read FImgCls write SetFImgCls; + property Src : String read FSrc write SetFSrc; + property Title : String read FTitle write SetFTitle; end; TExtGridPluginHeaderResizer = class(TExtAbstractPlugin) @@ -6659,11 +6627,11 @@ TExtMenuItem = class(TExtComponent) FMenuAlign : String; FMenuExpandDelay : Integer; FMenuHideDelay : Integer; - FMenuTExtObject : TExtObject; + FMenuObject : TExtObject; FPlain : Boolean; FText : String; FTooltip : String; - FTooltipTExtObject : TExtObject; + FTooltipObject : TExtObject; FTooltipType : String; FOnActivate : TExtMenuItemOnActivate; FOnClick : TExtMenuItemOnClick; @@ -6687,11 +6655,11 @@ TExtMenuItem = class(TExtComponent) procedure SetFMenuAlign(Value : String); procedure SetFMenuExpandDelay(Value : Integer); procedure SetFMenuHideDelay(Value : Integer); - procedure SetFMenuTExtObject(Value : TExtObject); + procedure SetFMenuObject(Value : TExtObject); procedure SetFPlain(Value : Boolean); procedure SetFText(Value : String); procedure SetFTooltip(Value : String); - procedure SetFTooltipTExtObject(Value : TExtObject); + procedure SetFTooltipObject(Value : TExtObject); procedure SetFTooltipType(Value : String); procedure SetFOnActivate(Value : TExtMenuItemOnActivate); procedure SetFOnClick(Value : TExtMenuItemOnClick); @@ -6729,11 +6697,11 @@ TExtMenuItem = class(TExtComponent) property MenuAlign : String read FMenuAlign write SetFMenuAlign; property MenuExpandDelay : Integer read FMenuExpandDelay write SetFMenuExpandDelay; property MenuHideDelay : Integer read FMenuHideDelay write SetFMenuHideDelay; - property MenuTExtObject : TExtObject read FMenuTExtObject write SetFMenuTExtObject; + property MenuObject : TExtObject read FMenuObject write SetFMenuObject; property Plain : Boolean read FPlain write SetFPlain; property Text : String read FText write SetFText; property Tooltip : String read FTooltip write SetFTooltip; - property TooltipTExtObject : TExtObject read FTooltipTExtObject write SetFTooltipTExtObject; + property TooltipObject : TExtObject read FTooltipObject write SetFTooltipObject; property TooltipType : String read FTooltipType write SetFTooltipType; property OnActivate : TExtMenuItemOnActivate read FOnActivate write SetFOnActivate; property OnClick : TExtMenuItemOnClick read FOnClick write SetFOnClick; @@ -6742,12 +6710,6 @@ TExtMenuItem = class(TExtComponent) property OnTextchange : TExtMenuItemOnTextchange read FOnTextchange write SetFOnTextchange; end; - TExtStateLocalStorageProvider = class(TExtStateProvider) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtStateCookieProvider = class(TExtStateProvider) private FDomain : String; // 'www' @@ -6770,6 +6732,38 @@ TExtStateCookieProvider = class(TExtStateProvider) property Secure : Boolean read FSecure write SetFSecure; end; + TExtUtilMixedCollection = class(TExtUtilAbstractMixedCollection) + private + FAllowFunctions : Boolean; + FDefaultSortDirection : String; + FSorters : TExtObjectList; + FSorters_ : TExtObjectList; + FSortersList : TExtObjectList; + FSortRoot : String; + procedure SetFAllowFunctions(Value : Boolean); + procedure SetFDefaultSortDirection(Value : String); + procedure SetFSorters(Value : TExtObjectList); + procedure SetFSorters_(Value : TExtObjectList); + procedure SetFSortersList(Value : TExtObjectList); + procedure SetFSortRoot(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create(Config : TExtObject; ConfigAllowFunctions : Boolean = false; ConfigGetKey : TExtFunction = nil); + function FindInsertionIndex(NewItem : TExtObject; SorterFn : TExtFunction = nil) : TExtFunction; + function GenerateComparator : TExtFunction; + function Reorder(Mapping : TExtObject) : TExtFunction; + function Sort(Sorters : String = ''; Direction : String = '') : TExtFunction; overload; + function SortBy(SorterFn : TExtFunction) : TExtFunction; + function SortByKey(Direction : String = ''; Fn : TExtFunction = nil) : TExtFunction; + property AllowFunctions : Boolean read FAllowFunctions write SetFAllowFunctions; + property DefaultSortDirection : String read FDefaultSortDirection write SetFDefaultSortDirection; + property Sorters : TExtObjectList read FSorters write SetFSorters; + property Sorters_ : TExtObjectList read FSorters_ write SetFSorters_; + property SortersList : TExtObjectList read FSortersList write SetFSortersList; + property SortRoot : String read FSortRoot write SetFSortRoot; + end; + TExtGridPluginDragDrop = class(TExtAbstractPlugin) private FContainerScroll : TExtObject; @@ -6926,12 +6920,6 @@ TExtGridPluginDivRenderer = class(TExtAbstractPlugin) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtDataTreeModel = class(TExtDataModel) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtDataAbstractStore = class(TExtDataModel) private FFilters : TExtObjectList; @@ -6963,96 +6951,16 @@ TExtFormActionLoad = class(TExtFormAction) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtFlashComponent = class(TExtComponent) - private - FBackgroundColor : String; - FExpressInstall : Boolean; - FFlashAttributes : TExtObject; - FFlashParams : TExtObject; - FFlashVars : TExtObject; - FFlashVersion : String; - FSwf : TExtElement; - FSwfHeight : String; // '100%' - FSwfHeightInteger : Integer; - FSwfWidth : String; // '100%' - FSwfWidthInteger : Integer; - FUrl : String; - FWmode : String; - procedure SetFBackgroundColor(Value : String); - procedure SetFExpressInstall(Value : Boolean); - procedure SetFFlashAttributes(Value : TExtObject); - procedure SetFFlashParams(Value : TExtObject); - procedure SetFFlashVars(Value : TExtObject); - procedure SetFFlashVersion(Value : String); - procedure SetFSwf(Value : TExtElement); - procedure SetFSwfHeight(Value : String); - procedure SetFSwfHeightInteger(Value : Integer); - procedure SetFSwfWidth(Value : String); - procedure SetFSwfWidthInteger(Value : Integer); - procedure SetFUrl(Value : String); - procedure SetFWmode(Value : String); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property BackgroundColor : String read FBackgroundColor write SetFBackgroundColor; - property ExpressInstall : Boolean read FExpressInstall write SetFExpressInstall; - property FlashAttributes : TExtObject read FFlashAttributes write SetFFlashAttributes; - property FlashParams : TExtObject read FFlashParams write SetFFlashParams; - property FlashVars : TExtObject read FFlashVars write SetFFlashVars; - property FlashVersion : String read FFlashVersion write SetFFlashVersion; - property Swf : TExtElement read FSwf write SetFSwf; - property SwfHeight : String read FSwfHeight write SetFSwfHeight; - property SwfHeightInteger : Integer read FSwfHeightInteger write SetFSwfHeightInteger; - property SwfWidth : String read FSwfWidth write SetFSwfWidth; - property SwfWidthInteger : Integer read FSwfWidthInteger write SetFSwfWidthInteger; - property Url : String read FUrl write SetFUrl; - property Wmode : String read FWmode write SetFWmode; - end; - - TExtAjaxSingleton = class(TExtDataConnection) - private - FAutoAbort : Boolean; - FDefaultHeaders : TExtObject; - FDisableCaching : Boolean; // true - FExtraParams : TExtObject; - FMethod : String; - FTimeout : Integer; // 30000 - FUrl : String; - procedure SetFAutoAbort(Value : Boolean); - procedure SetFDefaultHeaders(Value : TExtObject); - procedure SetFDisableCaching(Value : Boolean); - procedure SetFExtraParams(Value : TExtObject); - procedure SetFMethod(Value : String); - procedure SetFTimeout(Value : Integer); - procedure SetFUrl(Value : String); - protected - procedure InitDefaults; override; + TExtResizerSplitterTracker = class(TExtDdDragTracker) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - destructor Destroy; override; - property AutoAbort : Boolean read FAutoAbort write SetFAutoAbort; - property DefaultHeaders : TExtObject read FDefaultHeaders write SetFDefaultHeaders; - property DisableCaching : Boolean read FDisableCaching write SetFDisableCaching; - property ExtraParams : TExtObject read FExtraParams write SetFExtraParams; - property Method : String read FMethod write SetFMethod; - property Timeout : Integer read FTimeout write SetFTimeout; - property Url : String read FUrl write SetFUrl; end; - TExtDataUuidGenerator = class(TExtDataIdGenerator) - private - FVersion : Integer; - procedure SetFVersion(Value : Integer); + TExtDataTreeModel = class(TExtDataModel) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Reconfigure : TExtFunction; - property Version : Integer read FVersion write SetFVersion; end; TExtAppApplication = class(TExtAppController) @@ -7093,58 +7001,75 @@ TExtAppApplication = class(TExtAppController) property Scope : TExtObject read FScope write SetFScope; end; - TExtFormActionSubmit = class(TExtFormAction) + TExtDataUuidGenerator = class(TExtDataIdGenerator) private - FClientValidation : Boolean; - procedure SetFClientValidation(Value : Boolean); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property ClientValidation : Boolean read FClientValidation write SetFClientValidation; - end; - - TExtResizerResizeTracker = class(TExtDdDragTracker) + FVersion : Integer; + procedure SetFVersion(Value : Integer); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function CreateProxy(Target : TExtComponent) : TExtFunction; overload; + function Reconfigure : TExtFunction; + property Version : Integer read FVersion write SetFVersion; end; - TExtDataSequentialIdGenerator = class(TExtDataIdGenerator) + TExtFlashComponent = class(TExtComponent) private - FPrefix : String; - FSeed : Integer; - procedure SetFPrefix(Value : String); - procedure SetFSeed(Value : Integer); + FBackgroundColor : String; + FExpressInstall : Boolean; + FFlashAttributes : TExtObject; + FFlashParams : TExtObject; + FFlashVars : TExtObject; + FFlashVersion : String; + FSwf : TExtElement; + FSwfHeight : String; // '100%' + FSwfHeightInteger : Integer; + FSwfWidth : String; // '100%' + FSwfWidthInteger : Integer; + FUrl : String; + FWmode : String; + procedure SetFBackgroundColor(Value : String); + procedure SetFExpressInstall(Value : Boolean); + procedure SetFFlashAttributes(Value : TExtObject); + procedure SetFFlashParams(Value : TExtObject); + procedure SetFFlashVars(Value : TExtObject); + procedure SetFFlashVersion(Value : String); + procedure SetFSwf(Value : TExtElement); + procedure SetFSwfHeight(Value : String); + procedure SetFSwfHeightInteger(Value : Integer); + procedure SetFSwfWidth(Value : String); + procedure SetFSwfWidthInteger(Value : Integer); + procedure SetFUrl(Value : String); + procedure SetFWmode(Value : String); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Generate : TExtFunction; - property Prefix : String read FPrefix write SetFPrefix; - property Seed : Integer read FSeed write SetFSeed; + constructor Create; + destructor Destroy; override; + property BackgroundColor : String read FBackgroundColor write SetFBackgroundColor; + property ExpressInstall : Boolean read FExpressInstall write SetFExpressInstall; + property FlashAttributes : TExtObject read FFlashAttributes write SetFFlashAttributes; + property FlashParams : TExtObject read FFlashParams write SetFFlashParams; + property FlashVars : TExtObject read FFlashVars write SetFFlashVars; + property FlashVersion : String read FFlashVersion write SetFFlashVersion; + property Swf : TExtElement read FSwf write SetFSwf; + property SwfHeight : String read FSwfHeight write SetFSwfHeight; + property SwfHeightInteger : Integer read FSwfHeightInteger write SetFSwfHeightInteger; + property SwfWidth : String read FSwfWidth write SetFSwfWidth; + property SwfWidthInteger : Integer read FSwfWidthInteger write SetFSwfWidthInteger; + property Url : String read FUrl write SetFUrl; + property Wmode : String read FWmode write SetFWmode; end; - TExtUtilComponentDragger = class(TExtDdDragTracker) + TExtFormActionSubmit = class(TExtFormAction) private - FConstrain : Boolean; - FConstrainDelegate : Boolean; - FDelegate : String; - FDelegateTExtElement : TExtElement; - procedure SetFConstrain(Value : Boolean); - procedure SetFConstrainDelegate(Value : Boolean); - procedure SetFDelegate(Value : String); - procedure SetFDelegateTExtElement(Value : TExtElement); - protected - procedure InitDefaults; override; + FClientValidation : Boolean; + procedure SetFClientValidation(Value : Boolean); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; overload; - destructor Destroy; override; - property Constrain : Boolean read FConstrain write SetFConstrain; - property ConstrainDelegate : Boolean read FConstrainDelegate write SetFConstrainDelegate; - property Delegate : String read FDelegate write SetFDelegate; - property DelegateTExtElement : TExtElement read FDelegateTExtElement write SetFDelegateTExtElement; + property ClientValidation : Boolean read FClientValidation write SetFClientValidation; end; // Procedural types for events TExtFormFieldBase @@ -7154,34 +7079,34 @@ TExtFormFieldBase = class(TExtComponent) private FActiveError : String; FActiveErrorsTpl : String; - FActiveErrorsTplTExtObjectList : TExtObjectList; - FActiveErrorsTplTExtXTemplate : TExtXTemplate; + FActiveErrorsTplList : TExtObjectList; + FActiveErrorsTplTemplate : TExtXTemplate; FAfterBodyEl : String; - FAfterBodyElTExtObjectList : TExtObjectList; - FAfterBodyElTExtXTemplate : TExtXTemplate; + FAfterBodyElList : TExtObjectList; + FAfterBodyElTemplate : TExtXTemplate; FAfterLabelTextTpl : String; - FAfterLabelTextTplTExtObjectList : TExtObjectList; - FAfterLabelTextTplTExtXTemplate : TExtXTemplate; + FAfterLabelTextTplList : TExtObjectList; + FAfterLabelTextTplTemplate : TExtXTemplate; FAfterLabelTpl : String; - FAfterLabelTplTExtObjectList : TExtObjectList; - FAfterLabelTplTExtXTemplate : TExtXTemplate; + FAfterLabelTplList : TExtObjectList; + FAfterLabelTplTemplate : TExtXTemplate; FAfterSubTpl : String; - FAfterSubTplTExtObjectList : TExtObjectList; - FAfterSubTplTExtXTemplate : TExtXTemplate; + FAfterSubTplList : TExtObjectList; + FAfterSubTplTemplate : TExtXTemplate; FAutoFitErrors : Boolean; FBaseBodyCls : String; FBeforeBodyEl : String; - FBeforeBodyElTExtObjectList : TExtObjectList; - FBeforeBodyElTExtXTemplate : TExtXTemplate; + FBeforeBodyElList : TExtObjectList; + FBeforeBodyElTemplate : TExtXTemplate; FBeforeLabelTextTpl : String; - FBeforeLabelTextTplTExtObjectList : TExtObjectList; - FBeforeLabelTextTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTextTplList : TExtObjectList; + FBeforeLabelTextTplTemplate : TExtXTemplate; FBeforeLabelTpl : String; - FBeforeLabelTplTExtObjectList : TExtObjectList; - FBeforeLabelTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTplList : TExtObjectList; + FBeforeLabelTplTemplate : TExtXTemplate; FBeforeSubTpl : String; - FBeforeSubTplTExtObjectList : TExtObjectList; - FBeforeSubTplTExtXTemplate : TExtXTemplate; + FBeforeSubTplList : TExtObjectList; + FBeforeSubTplTemplate : TExtXTemplate; FCheckChangeBuffer : Integer; // 50 FCheckChangeEvents : TExtObjectList; FClearCls : String; @@ -7197,20 +7122,20 @@ TExtFormFieldBase = class(TExtComponent) FHideEmptyLabel : Boolean; FHideLabel : Boolean; FInputAttrTpl : String; - FInputAttrTplTExtObjectList : TExtObjectList; - FInputAttrTplTExtXTemplate : TExtXTemplate; + FInputAttrTplList : TExtObjectList; + FInputAttrTplTemplate : TExtXTemplate; FInputEl : TExtElement; FInputId : String; FInputType : String; FInvalidCls : String; FInvalidText : String; FLabelableRenderTpl : String; - FLabelableRenderTplTExtObjectList : TExtObjectList; - FLabelableRenderTplTExtXTemplate : TExtXTemplate; + FLabelableRenderTplList : TExtObjectList; + FLabelableRenderTplTemplate : TExtXTemplate; FLabelAlign : String; FLabelAttrTpl : String; - FLabelAttrTplTExtObjectList : TExtObjectList; - FLabelAttrTplTExtXTemplate : TExtXTemplate; + FLabelAttrTplList : TExtObjectList; + FLabelAttrTplTemplate : TExtXTemplate; FLabelCls : String; FLabelClsExtra : String; FLabelPad : Integer; @@ -7231,34 +7156,34 @@ TExtFormFieldBase = class(TExtComponent) FOnErrorchange : TExtFormFieldBaseOnErrorchange; procedure SetFActiveError(Value : String); procedure SetFActiveErrorsTpl(Value : String); - procedure SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); - procedure SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFActiveErrorsTplList(Value : TExtObjectList); + procedure SetFActiveErrorsTplTemplate(Value : TExtXTemplate); procedure SetFAfterBodyEl(Value : String); - procedure SetFAfterBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterBodyElList(Value : TExtObjectList); + procedure SetFAfterBodyElTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTextTpl(Value : String); - procedure SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTextTplList(Value : TExtObjectList); + procedure SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTpl(Value : String); - procedure SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTplList(Value : TExtObjectList); + procedure SetFAfterLabelTplTemplate(Value : TExtXTemplate); procedure SetFAfterSubTpl(Value : String); - procedure SetFAfterSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterSubTplList(Value : TExtObjectList); + procedure SetFAfterSubTplTemplate(Value : TExtXTemplate); procedure SetFAutoFitErrors(Value : Boolean); procedure SetFBaseBodyCls(Value : String); procedure SetFBeforeBodyEl(Value : String); - procedure SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeBodyElList(Value : TExtObjectList); + procedure SetFBeforeBodyElTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTextTpl(Value : String); - procedure SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTextTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTpl(Value : String); - procedure SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTplTemplate(Value : TExtXTemplate); procedure SetFBeforeSubTpl(Value : String); - procedure SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeSubTplList(Value : TExtObjectList); + procedure SetFBeforeSubTplTemplate(Value : TExtXTemplate); procedure SetFCheckChangeBuffer(Value : Integer); procedure SetFCheckChangeEvents(Value : TExtObjectList); procedure SetFClearCls(Value : String); @@ -7274,20 +7199,20 @@ TExtFormFieldBase = class(TExtComponent) procedure SetFHideEmptyLabel(Value : Boolean); procedure SetFHideLabel(Value : Boolean); procedure SetFInputAttrTpl(Value : String); - procedure SetFInputAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFInputAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFInputAttrTplList(Value : TExtObjectList); + procedure SetFInputAttrTplTemplate(Value : TExtXTemplate); procedure SetFInputEl(Value : TExtElement); procedure SetFInputId(Value : String); procedure SetFInputType(Value : String); procedure SetFInvalidCls(Value : String); procedure SetFInvalidText(Value : String); procedure SetFLabelableRenderTpl(Value : String); - procedure SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelableRenderTplList(Value : TExtObjectList); + procedure SetFLabelableRenderTplTemplate(Value : TExtXTemplate); procedure SetFLabelAlign(Value : String); procedure SetFLabelAttrTpl(Value : String); - procedure SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelAttrTplList(Value : TExtObjectList); + procedure SetFLabelAttrTplTemplate(Value : TExtXTemplate); procedure SetFLabelCls(Value : String); procedure SetFLabelClsExtra(Value : String); procedure SetFLabelPad(Value : Integer); @@ -7355,34 +7280,34 @@ TExtFormFieldBase = class(TExtComponent) destructor Destroy; override; property ActiveError : String read FActiveError write SetFActiveError; property ActiveErrorsTpl : String read FActiveErrorsTpl write SetFActiveErrorsTpl; - property ActiveErrorsTplTExtObjectList : TExtObjectList read FActiveErrorsTplTExtObjectList write SetFActiveErrorsTplTExtObjectList; - property ActiveErrorsTplTExtXTemplate : TExtXTemplate read FActiveErrorsTplTExtXTemplate write SetFActiveErrorsTplTExtXTemplate; + property ActiveErrorsTplList : TExtObjectList read FActiveErrorsTplList write SetFActiveErrorsTplList; + property ActiveErrorsTplTemplate : TExtXTemplate read FActiveErrorsTplTemplate write SetFActiveErrorsTplTemplate; property AfterBodyEl : String read FAfterBodyEl write SetFAfterBodyEl; - property AfterBodyElTExtObjectList : TExtObjectList read FAfterBodyElTExtObjectList write SetFAfterBodyElTExtObjectList; - property AfterBodyElTExtXTemplate : TExtXTemplate read FAfterBodyElTExtXTemplate write SetFAfterBodyElTExtXTemplate; + property AfterBodyElList : TExtObjectList read FAfterBodyElList write SetFAfterBodyElList; + property AfterBodyElTemplate : TExtXTemplate read FAfterBodyElTemplate write SetFAfterBodyElTemplate; property AfterLabelTextTpl : String read FAfterLabelTextTpl write SetFAfterLabelTextTpl; - property AfterLabelTextTplTExtObjectList : TExtObjectList read FAfterLabelTextTplTExtObjectList write SetFAfterLabelTextTplTExtObjectList; - property AfterLabelTextTplTExtXTemplate : TExtXTemplate read FAfterLabelTextTplTExtXTemplate write SetFAfterLabelTextTplTExtXTemplate; + property AfterLabelTextTplList : TExtObjectList read FAfterLabelTextTplList write SetFAfterLabelTextTplList; + property AfterLabelTextTplTemplate : TExtXTemplate read FAfterLabelTextTplTemplate write SetFAfterLabelTextTplTemplate; property AfterLabelTpl : String read FAfterLabelTpl write SetFAfterLabelTpl; - property AfterLabelTplTExtObjectList : TExtObjectList read FAfterLabelTplTExtObjectList write SetFAfterLabelTplTExtObjectList; - property AfterLabelTplTExtXTemplate : TExtXTemplate read FAfterLabelTplTExtXTemplate write SetFAfterLabelTplTExtXTemplate; + property AfterLabelTplList : TExtObjectList read FAfterLabelTplList write SetFAfterLabelTplList; + property AfterLabelTplTemplate : TExtXTemplate read FAfterLabelTplTemplate write SetFAfterLabelTplTemplate; property AfterSubTpl : String read FAfterSubTpl write SetFAfterSubTpl; - property AfterSubTplTExtObjectList : TExtObjectList read FAfterSubTplTExtObjectList write SetFAfterSubTplTExtObjectList; - property AfterSubTplTExtXTemplate : TExtXTemplate read FAfterSubTplTExtXTemplate write SetFAfterSubTplTExtXTemplate; + property AfterSubTplList : TExtObjectList read FAfterSubTplList write SetFAfterSubTplList; + property AfterSubTplTemplate : TExtXTemplate read FAfterSubTplTemplate write SetFAfterSubTplTemplate; property AutoFitErrors : Boolean read FAutoFitErrors write SetFAutoFitErrors; property BaseBodyCls : String read FBaseBodyCls write SetFBaseBodyCls; property BeforeBodyEl : String read FBeforeBodyEl write SetFBeforeBodyEl; - property BeforeBodyElTExtObjectList : TExtObjectList read FBeforeBodyElTExtObjectList write SetFBeforeBodyElTExtObjectList; - property BeforeBodyElTExtXTemplate : TExtXTemplate read FBeforeBodyElTExtXTemplate write SetFBeforeBodyElTExtXTemplate; + property BeforeBodyElList : TExtObjectList read FBeforeBodyElList write SetFBeforeBodyElList; + property BeforeBodyElTemplate : TExtXTemplate read FBeforeBodyElTemplate write SetFBeforeBodyElTemplate; property BeforeLabelTextTpl : String read FBeforeLabelTextTpl write SetFBeforeLabelTextTpl; - property BeforeLabelTextTplTExtObjectList : TExtObjectList read FBeforeLabelTextTplTExtObjectList write SetFBeforeLabelTextTplTExtObjectList; - property BeforeLabelTextTplTExtXTemplate : TExtXTemplate read FBeforeLabelTextTplTExtXTemplate write SetFBeforeLabelTextTplTExtXTemplate; + property BeforeLabelTextTplList : TExtObjectList read FBeforeLabelTextTplList write SetFBeforeLabelTextTplList; + property BeforeLabelTextTplTemplate : TExtXTemplate read FBeforeLabelTextTplTemplate write SetFBeforeLabelTextTplTemplate; property BeforeLabelTpl : String read FBeforeLabelTpl write SetFBeforeLabelTpl; - property BeforeLabelTplTExtObjectList : TExtObjectList read FBeforeLabelTplTExtObjectList write SetFBeforeLabelTplTExtObjectList; - property BeforeLabelTplTExtXTemplate : TExtXTemplate read FBeforeLabelTplTExtXTemplate write SetFBeforeLabelTplTExtXTemplate; + property BeforeLabelTplList : TExtObjectList read FBeforeLabelTplList write SetFBeforeLabelTplList; + property BeforeLabelTplTemplate : TExtXTemplate read FBeforeLabelTplTemplate write SetFBeforeLabelTplTemplate; property BeforeSubTpl : String read FBeforeSubTpl write SetFBeforeSubTpl; - property BeforeSubTplTExtObjectList : TExtObjectList read FBeforeSubTplTExtObjectList write SetFBeforeSubTplTExtObjectList; - property BeforeSubTplTExtXTemplate : TExtXTemplate read FBeforeSubTplTExtXTemplate write SetFBeforeSubTplTExtXTemplate; + property BeforeSubTplList : TExtObjectList read FBeforeSubTplList write SetFBeforeSubTplList; + property BeforeSubTplTemplate : TExtXTemplate read FBeforeSubTplTemplate write SetFBeforeSubTplTemplate; property CheckChangeBuffer : Integer read FCheckChangeBuffer write SetFCheckChangeBuffer; property CheckChangeEvents : TExtObjectList read FCheckChangeEvents write SetFCheckChangeEvents; property ClearCls : String read FClearCls write SetFClearCls; @@ -7398,20 +7323,20 @@ TExtFormFieldBase = class(TExtComponent) property HideEmptyLabel : Boolean read FHideEmptyLabel write SetFHideEmptyLabel; property HideLabel : Boolean read FHideLabel write SetFHideLabel; property InputAttrTpl : String read FInputAttrTpl write SetFInputAttrTpl; - property InputAttrTplTExtObjectList : TExtObjectList read FInputAttrTplTExtObjectList write SetFInputAttrTplTExtObjectList; - property InputAttrTplTExtXTemplate : TExtXTemplate read FInputAttrTplTExtXTemplate write SetFInputAttrTplTExtXTemplate; + property InputAttrTplList : TExtObjectList read FInputAttrTplList write SetFInputAttrTplList; + property InputAttrTplTemplate : TExtXTemplate read FInputAttrTplTemplate write SetFInputAttrTplTemplate; property InputEl : TExtElement read FInputEl write SetFInputEl; property InputId : String read FInputId write SetFInputId; property InputType : String read FInputType write SetFInputType; property InvalidCls : String read FInvalidCls write SetFInvalidCls; property InvalidText : String read FInvalidText write SetFInvalidText; property LabelableRenderTpl : String read FLabelableRenderTpl write SetFLabelableRenderTpl; - property LabelableRenderTplTExtObjectList : TExtObjectList read FLabelableRenderTplTExtObjectList write SetFLabelableRenderTplTExtObjectList; - property LabelableRenderTplTExtXTemplate : TExtXTemplate read FLabelableRenderTplTExtXTemplate write SetFLabelableRenderTplTExtXTemplate; + property LabelableRenderTplList : TExtObjectList read FLabelableRenderTplList write SetFLabelableRenderTplList; + property LabelableRenderTplTemplate : TExtXTemplate read FLabelableRenderTplTemplate write SetFLabelableRenderTplTemplate; property LabelAlign : String read FLabelAlign write SetFLabelAlign; property LabelAttrTpl : String read FLabelAttrTpl write SetFLabelAttrTpl; - property LabelAttrTplTExtObjectList : TExtObjectList read FLabelAttrTplTExtObjectList write SetFLabelAttrTplTExtObjectList; - property LabelAttrTplTExtXTemplate : TExtXTemplate read FLabelAttrTplTExtXTemplate write SetFLabelAttrTplTExtXTemplate; + property LabelAttrTplList : TExtObjectList read FLabelAttrTplList write SetFLabelAttrTplList; + property LabelAttrTplTemplate : TExtXTemplate read FLabelAttrTplTemplate write SetFLabelAttrTplTemplate; property LabelCls : String read FLabelCls write SetFLabelCls; property LabelClsExtra : String read FLabelClsExtra write SetFLabelClsExtra; property LabelPad : Integer read FLabelPad write SetFLabelPad; @@ -7432,44 +7357,71 @@ TExtFormFieldBase = class(TExtComponent) property OnErrorchange : TExtFormFieldBaseOnErrorchange read FOnErrorchange write SetFOnErrorchange; end; + TExtResizerHandle = class(TExtComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtDataSequentialIdGenerator = class(TExtDataIdGenerator) + private + FPrefix : String; + FSeed : Integer; + procedure SetFPrefix(Value : String); + procedure SetFSeed(Value : Integer); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Generate : TExtFunction; + property Prefix : String read FPrefix write SetFPrefix; + property Seed : Integer read FSeed write SetFSeed; + end; + + TExtResizerResizeTracker = class(TExtDdDragTracker) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function CreateProxy(Target : TExtComponent) : TExtFunction; overload; + end; + TExtFormBasic = class(TExtUtilObservable) private FApi : TExtObject; FBaseParams : TExtObject; FErrorReader : TExtObject; - FErrorReaderTExtDataReader : TExtDataReader; + FErrorReaderReader : TExtDataReader; FJsonSubmit : Boolean; FMethod : String; FParamOrder : String; - FParamOrderTExtObjectList : TExtObjectList; + FParamOrderList : TExtObjectList; FParamsAsHash : Boolean; FReader : TExtObject; - FReaderTExtDataReader : TExtDataReader; + FReaderReader : TExtDataReader; FStandardSubmit : Boolean; FTimeout : Integer; FTrackResetOnLoad : Boolean; FUrl : String; FWaitMsgTarget : String; - FWaitMsgTargetTExtElement : TExtElement; + FWaitMsgTargetElement : TExtElement; FWaitMsgTargetTHTMLElement : THTMLElement; FWaitTitle : String; procedure SetFApi(Value : TExtObject); procedure SetFBaseParams(Value : TExtObject); procedure SetFErrorReader(Value : TExtObject); - procedure SetFErrorReaderTExtDataReader(Value : TExtDataReader); + procedure SetFErrorReaderReader(Value : TExtDataReader); procedure SetFJsonSubmit(Value : Boolean); procedure SetFMethod(Value : String); procedure SetFParamOrder(Value : String); - procedure SetFParamOrderTExtObjectList(Value : TExtObjectList); + procedure SetFParamOrderList(Value : TExtObjectList); procedure SetFParamsAsHash(Value : Boolean); procedure SetFReader(Value : TExtObject); - procedure SetFReaderTExtDataReader(Value : TExtDataReader); + procedure SetFReaderReader(Value : TExtDataReader); procedure SetFStandardSubmit(Value : Boolean); procedure SetFTimeout(Value : Integer); procedure SetFTrackResetOnLoad(Value : Boolean); procedure SetFUrl(Value : String); procedure SetFWaitMsgTarget(Value : String); - procedure SetFWaitMsgTargetTExtElement(Value : TExtElement); + procedure SetFWaitMsgTargetElement(Value : TExtElement); procedure SetFWaitMsgTargetTHTMLElement(Value : THTMLElement); procedure SetFWaitTitle(Value : String); protected @@ -7504,28 +7456,45 @@ TExtFormBasic = class(TExtUtilObservable) property Api : TExtObject read FApi write SetFApi; property BaseParams : TExtObject read FBaseParams write SetFBaseParams; property ErrorReader : TExtObject read FErrorReader write SetFErrorReader; - property ErrorReaderTExtDataReader : TExtDataReader read FErrorReaderTExtDataReader write SetFErrorReaderTExtDataReader; + property ErrorReaderReader : TExtDataReader read FErrorReaderReader write SetFErrorReaderReader; property JsonSubmit : Boolean read FJsonSubmit write SetFJsonSubmit; property Method : String read FMethod write SetFMethod; property ParamOrder : String read FParamOrder write SetFParamOrder; - property ParamOrderTExtObjectList : TExtObjectList read FParamOrderTExtObjectList write SetFParamOrderTExtObjectList; + property ParamOrderList : TExtObjectList read FParamOrderList write SetFParamOrderList; property ParamsAsHash : Boolean read FParamsAsHash write SetFParamsAsHash; property Reader : TExtObject read FReader write SetFReader; - property ReaderTExtDataReader : TExtDataReader read FReaderTExtDataReader write SetFReaderTExtDataReader; + property ReaderReader : TExtDataReader read FReaderReader write SetFReaderReader; property StandardSubmit : Boolean read FStandardSubmit write SetFStandardSubmit; property Timeout : Integer read FTimeout write SetFTimeout; property TrackResetOnLoad : Boolean read FTrackResetOnLoad write SetFTrackResetOnLoad; property Url : String read FUrl write SetFUrl; property WaitMsgTarget : String read FWaitMsgTarget write SetFWaitMsgTarget; - property WaitMsgTargetTExtElement : TExtElement read FWaitMsgTargetTExtElement write SetFWaitMsgTargetTExtElement; + property WaitMsgTargetElement : TExtElement read FWaitMsgTargetElement write SetFWaitMsgTargetElement; property WaitMsgTargetTHTMLElement : THTMLElement read FWaitMsgTargetTHTMLElement write SetFWaitMsgTargetTHTMLElement; property WaitTitle : String read FWaitTitle write SetFWaitTitle; end; - TExtResizerSplitterTracker = class(TExtDdDragTracker) + TExtUtilComponentDragger = class(TExtDdDragTracker) + private + FConstrain : Boolean; + FConstrainDelegate : Boolean; + FDelegate : String; + FDelegateElement : TExtElement; + procedure SetFConstrain(Value : Boolean); + procedure SetFConstrainDelegate(Value : Boolean); + procedure SetFDelegate(Value : String); + procedure SetFDelegateElement(Value : TExtElement); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; overload; + destructor Destroy; override; + property Constrain : Boolean read FConstrain write SetFConstrain; + property ConstrainDelegate : Boolean read FConstrainDelegate write SetFConstrainDelegate; + property Delegate : String read FDelegate write SetFDelegate; + property DelegateElement : TExtElement read FDelegateElement write SetFDelegateElement; end; TExtResizerSplitter = class(TExtComponent) @@ -7533,7 +7502,7 @@ TExtResizerSplitter = class(TExtComponent) FCollapsedCls : String; FCollapseOnDblClick : Boolean; FCollapseTarget : String; - FCollapseTargetTExtPanel : TExtPanel; + FCollapseTargetPanel : TExtPanel; FCollapsible : Boolean; FDefaultSplitMax : Integer; FDefaultSplitMin : Integer; @@ -7542,7 +7511,7 @@ TExtResizerSplitter = class(TExtComponent) procedure SetFCollapsedCls(Value : String); procedure SetFCollapseOnDblClick(Value : Boolean); procedure SetFCollapseTarget(Value : String); - procedure SetFCollapseTargetTExtPanel(Value : TExtPanel); + procedure SetFCollapseTargetPanel(Value : TExtPanel); procedure SetFCollapsible(Value : Boolean); procedure SetFDefaultSplitMax(Value : Integer); procedure SetFDefaultSplitMin(Value : Integer); @@ -7558,7 +7527,7 @@ TExtResizerSplitter = class(TExtComponent) property CollapsedCls : String read FCollapsedCls write SetFCollapsedCls; property CollapseOnDblClick : Boolean read FCollapseOnDblClick write SetFCollapseOnDblClick; property CollapseTarget : String read FCollapseTarget write SetFCollapseTarget; - property CollapseTargetTExtPanel : TExtPanel read FCollapseTargetTExtPanel write SetFCollapseTargetTExtPanel; + property CollapseTargetPanel : TExtPanel read FCollapseTargetPanel write SetFCollapseTargetPanel; property Collapsible : Boolean read FCollapsible write SetFCollapsible; property DefaultSplitMax : Integer read FDefaultSplitMax write SetFDefaultSplitMax; property DefaultSplitMin : Integer read FDefaultSplitMin write SetFDefaultSplitMin; @@ -7582,13 +7551,6 @@ TExtDataWriter = class(TExtDataModel) property WriteRecordId : Boolean read FWriteRecordId write SetFWriteRecordId; end; - TExtUtilGrouper = class(TExtUtilSorter) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetGroupString(Instance : TExtDataModel) : TExtFunction; - end; - TExtDomCompositeElement = class(TExtDomCompositeElementLite) public function JSClassName : string; override; @@ -7602,75 +7564,6 @@ TExtComponentManagerSingleton = class(TExtAbstractManager) constructor Create(Config : TExtObject; DefaultType : String = ''); end; - TExtDdStatusProxy = class(TExtComponent) - private - FDropAllowed : String; - FDropNotAllowed : String; - procedure SetFDropAllowed(Value : String); - procedure SetFDropNotAllowed(Value : String); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetGhost : TExtFunction; - function Hide(Clear : Boolean) : TExtFunction; - function Repair(Xy : TArrayOfInteger; Callback : TExtFunction; Scope : TExtObject) : TExtFunction; - function Reset(ClearGhost : Boolean) : TExtFunction; - function SetStatus(CssClass : String) : TExtFunction; - function Stop : TExtFunction; - function Sync : TExtFunction; - function Update(Html : String) : TExtFunction; overload; - property DropAllowed : String read FDropAllowed write SetFDropAllowed; - property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; - end; - - TExtDirectRemotingEvent = class(TExtDirectEvent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetTransaction : TExtFunction; - end; - - TExtDirectJsonProvider = class(TExtDirectProvider) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function CreateEvent(Response : TExtObject) : TExtFunction; - function CreateEvents(Response : TExtObject) : TExtFunction; - end; - - TExtComponentLoader = class(TExtElementLoader) - private - FLoadMask : Boolean; - FLoadMaskTExtObject : TExtObject; - FRenderer : String; - FRendererTExtFunction : TExtFunction; - FScripts : Boolean; - FTarget : TExtComponent; - FTargetString : String; - procedure SetFLoadMask(Value : Boolean); - procedure SetFLoadMaskTExtObject(Value : TExtObject); - procedure SetFRenderer(Value : String); - procedure SetFRendererTExtFunction(Value : TExtFunction); - procedure SetFScripts(Value : Boolean); - procedure SetFTarget(Value : TExtComponent); - procedure SetFTargetString(Value : String); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function SetTarget(Target : String) : TExtFunction; overload; - destructor Destroy; override; - property LoadMask : Boolean read FLoadMask write SetFLoadMask; - property LoadMaskTExtObject : TExtObject read FLoadMaskTExtObject write SetFLoadMaskTExtObject; - property Renderer : String read FRenderer write SetFRenderer; - property RendererTExtFunction : TExtFunction read FRendererTExtFunction write SetFRendererTExtFunction; - property Scripts : Boolean read FScripts write SetFScripts; - property Target : TExtComponent read FTarget write SetFTarget; - property TargetString : String read FTargetString write SetFTargetString; - end; - // Procedural types for events TExtDomElement TExtDomElementOnAbort = procedure(E : TExtEventObject; T : THTMLElement) of object; TExtDomElementOnBlur = procedure(E : TExtEventObject; T : THTMLElement) of object; @@ -7839,6 +7732,82 @@ TExtDomElement = class(TExtDomAbstractElement) property OnUnload : TExtDomElementOnUnload read FOnUnload write SetFOnUnload; end; + TExtDdStatusProxy = class(TExtComponent) + private + FDropAllowed : String; + FDropNotAllowed : String; + procedure SetFDropAllowed(Value : String); + procedure SetFDropNotAllowed(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function GetGhost : TExtFunction; + function Hide(Clear : Boolean) : TExtFunction; + function Repair(Xy : TArrayOfInteger; Callback : TExtFunction; Scope : TExtObject) : TExtFunction; + function Reset(ClearGhost : Boolean) : TExtFunction; + function SetStatus(CssClass : String) : TExtFunction; + function Stop : TExtFunction; + function Sync : TExtFunction; + function Update(Html : String) : TExtFunction; overload; + property DropAllowed : String read FDropAllowed write SetFDropAllowed; + property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; + end; + + TExtDirectRemotingEvent = class(TExtDirectEvent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function GetTransaction : TExtFunction; + end; + + TExtDirectJsonProvider = class(TExtDirectProvider) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function CreateEvent(Response : TExtObject) : TExtFunction; + function CreateEvents(Response : TExtObject) : TExtFunction; + end; + + TExtComponentLoader = class(TExtElementLoader) + private + FLoadMask : Boolean; + FLoadMaskObject : TExtObject; + FRenderer : String; + FRendererFunction : TExtFunction; + FScripts : Boolean; + FTarget : TExtComponent; + FTargetString : String; + procedure SetFLoadMask(Value : Boolean); + procedure SetFLoadMaskObject(Value : TExtObject); + procedure SetFRenderer(Value : String); + procedure SetFRendererFunction(Value : TExtFunction); + procedure SetFScripts(Value : Boolean); + procedure SetFTarget(Value : TExtComponent); + procedure SetFTargetString(Value : String); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function SetTarget(Target : String) : TExtFunction; overload; + destructor Destroy; override; + property LoadMask : Boolean read FLoadMask write SetFLoadMask; + property LoadMaskObject : TExtObject read FLoadMaskObject write SetFLoadMaskObject; + property Renderer : String read FRenderer write SetFRenderer; + property RendererFunction : TExtFunction read FRendererFunction write SetFRendererFunction; + property Scripts : Boolean read FScripts write SetFScripts; + property Target : TExtComponent read FTarget write SetFTarget; + property TargetString : String read FTargetString write SetFTargetString; + end; + + TExtDdDDTarget = class(TExtDdDragDrop) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create(Id : String; SGroup : String; Config : TExtObject); + end; + TExtDrawEngineSvg = class(TExtDrawSurface) public function JSClassName : string; override; @@ -7862,13 +7831,12 @@ TExtContainerAbstractContainer = class(TExtComponent) FAutoDestroy : Boolean; FBubbleEvents : TExtObjectList; FDefaults : TExtObject; - FDefaultsTExtFunction : TExtFunction; + FDefaultsFunction : TExtFunction; FDefaultType : String; FDetachOnRemove : Boolean; - FItems : TExtObject; - FItemsTExtObjectList : TExtObjectList; + FItems : TExtObjectList; FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; + FLayoutObject : TExtObject; FSuspendLayout : Boolean; FOnAdd : TExtContainerAbstractContainerOnAdd; FOnAfterlayout : TExtContainerAbstractContainerOnAfterlayout; @@ -7880,13 +7848,12 @@ TExtContainerAbstractContainer = class(TExtComponent) procedure SetFAutoDestroy(Value : Boolean); procedure SetFBubbleEvents(Value : TExtObjectList); procedure SetFDefaults(Value : TExtObject); - procedure SetFDefaultsTExtFunction(Value : TExtFunction); + procedure SetFDefaultsFunction(Value : TExtFunction); procedure SetFDefaultType(Value : String); procedure SetFDetachOnRemove(Value : Boolean); - procedure SetFItems(Value : TExtObject); - procedure SetFItemsTExtObjectList(Value : TExtObjectList); + procedure SetFItems(Value : TExtObjectList); procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); + procedure SetFLayoutObject(Value : TExtObject); procedure SetFSuspendLayout(Value : Boolean); procedure SetFOnAdd(Value : TExtContainerAbstractContainerOnAdd); procedure SetFOnAfterlayout(Value : TExtContainerAbstractContainerOnAfterlayout); @@ -7922,13 +7889,12 @@ TExtContainerAbstractContainer = class(TExtComponent) property AutoDestroy : Boolean read FAutoDestroy write SetFAutoDestroy; property BubbleEvents : TExtObjectList read FBubbleEvents write SetFBubbleEvents; property Defaults : TExtObject read FDefaults write SetFDefaults; - property DefaultsTExtFunction : TExtFunction read FDefaultsTExtFunction write SetFDefaultsTExtFunction; + property DefaultsFunction : TExtFunction read FDefaultsFunction write SetFDefaultsFunction; property DefaultType : String read FDefaultType write SetFDefaultType; property DetachOnRemove : Boolean read FDetachOnRemove write SetFDetachOnRemove; - property Items : TExtObject read FItems write SetFItems; - property ItemsTExtObjectList : TExtObjectList read FItemsTExtObjectList write SetFItemsTExtObjectList; + property Items : TExtObjectList read FItems write SetFItems; property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; property SuspendLayout : Boolean read FSuspendLayout write SetFSuspendLayout; property OnAdd : TExtContainerAbstractContainerOnAdd read FOnAdd write SetFOnAdd; property OnAfterlayout : TExtContainerAbstractContainerOnAfterlayout read FOnAfterlayout write SetFOnAfterlayout; @@ -7944,6 +7910,69 @@ TExtDrawEngineVml = class(TExtDrawSurface) function AddGradient(Gradient : TExtObject) : TExtFunction; end; + TExtAjaxSingleton = class(TExtDataConnection) + private + FAutoAbort : Boolean; + FDefaultHeaders : TExtObject; + FDisableCaching : Boolean; // true + FExtraParams : TExtObject; + FMethod : String; + FTimeout : Integer; // 30000 + FUrl : String; + procedure SetFAutoAbort(Value : Boolean); + procedure SetFDefaultHeaders(Value : TExtObject); + procedure SetFDisableCaching(Value : Boolean); + procedure SetFExtraParams(Value : TExtObject); + procedure SetFMethod(Value : String); + procedure SetFTimeout(Value : Integer); + procedure SetFUrl(Value : String); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + destructor Destroy; override; + property AutoAbort : Boolean read FAutoAbort write SetFAutoAbort; + property DefaultHeaders : TExtObject read FDefaultHeaders write SetFDefaultHeaders; + property DisableCaching : Boolean read FDisableCaching write SetFDisableCaching; + property ExtraParams : TExtObject read FExtraParams write SetFExtraParams; + property Method : String read FMethod write SetFMethod; + property Timeout : Integer read FTimeout write SetFTimeout; + property Url : String read FUrl write SetFUrl; + end; + + TExtDomHelperSingleton = class(TExtDomAbstractHelper) + private + FUseDom : Boolean; + procedure SetFUseDom(Value : Boolean); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function CreateDom(O : String) : TExtFunction; overload; + function CreateHtml : TExtFunction; + function CreateTemplate(O : TExtObject) : TExtFunction; + function Overwrite(El : String; O : String; ReturnElement : Boolean = false) : TExtFunction; overload; + property UseDom : Boolean read FUseDom write SetFUseDom; + end; + + TExtDdDD = class(TExtDdDragDrop) + private + FScroll : Boolean; + procedure SetFScroll(Value : Boolean); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AlignElWithMouse(El : THTMLElement; IPageX : Integer; IPageY : Integer) : TExtFunction; + function ApplyConfig : TExtFunction; + function AutoOffset(IPageX : Integer; IPageY : Integer) : TExtFunction; + function B4Drag : TExtFunction; + function B4MouseDown : TExtFunction; + function CachePosition(IPageX : Integer = 0; IPageY : Integer = 0) : TExtFunction; + function SetDelta(IDeltaX : Integer; IDeltaY : Integer) : TExtFunction; + function SetDragElPos(IPageX : Integer; IPageY : Integer) : TExtFunction; + property Scroll : Boolean read FScroll write SetFScroll; + end; + TExtDrawComponent = class(TExtComponent) private FAutoSize : Boolean; @@ -7973,60 +8002,84 @@ TExtDrawComponent = class(TExtComponent) property ViewBox : Boolean read FViewBox write SetFViewBox; end; - TExtDdDDTarget = class(TExtDdDragDrop) + TExtAppDomainStoreSingleton = class(TExtAppEventDomain) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create(Id : String; SGroup : String; Config : TExtObject); end; - TExtDomHelperSingleton = class(TExtDomAbstractHelper) - private - FUseDom : Boolean; - procedure SetFUseDom(Value : Boolean); + TExtPluginManagerSingleton = class(TExtAbstractManager) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function CreateDom(O : String) : TExtFunction; overload; - function CreateHtml : TExtFunction; - function CreateTemplate(O : TExtObject) : TExtFunction; - function Overwrite(El : String; O : String; ReturnElement : Boolean = false) : TExtFunction; overload; - property UseDom : Boolean read FUseDom write SetFUseDom; + constructor Create(Config : TExtObject; DefaultType : TExtFunction = nil); + function FindByType(TypeJS : String; DefaultsOnly : Boolean) : TExtFunction; end; - TExtDdDD = class(TExtDdDragDrop) + TExtToolbarFill = class(TExtComponent) private - FScroll : Boolean; - procedure SetFScroll(Value : Boolean); + FIsFill : Boolean; + procedure SetFIsFill(Value : Boolean); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AlignElWithMouse(El : THTMLElement; IPageX : Integer; IPageY : Integer) : TExtFunction; - function ApplyConfig : TExtFunction; - function AutoOffset(IPageX : Integer; IPageY : Integer) : TExtFunction; - function B4Drag : TExtFunction; - function B4MouseDown : TExtFunction; - function CachePosition(IPageX : Integer = 0; IPageY : Integer = 0) : TExtFunction; - function SetDelta(IDeltaX : Integer; IDeltaY : Integer) : TExtFunction; - function SetDragElPos(IPageX : Integer; IPageY : Integer) : TExtFunction; - property Scroll : Boolean read FScroll write SetFScroll; + property IsFill : Boolean read FIsFill write SetFIsFill; end; - TExtFormLabel = class(TExtComponent) + TExtTreePluginTreeViewDragDrop = class(TExtAbstractPlugin) private - FForId : String; - FHtml : String; - FText : String; - procedure SetFForId(Value : String); - procedure SetFHtml(Value : String); - procedure SetFText(Value : String); + FAllowContainerDrops : Boolean; + FAllowParentInserts : Boolean; + FAppendOnly : Boolean; + FContainerScroll : TExtObject; + FContainerScrollBoolean : Boolean; + FDdGroup : String; + FDisplayField : String; + FDropGroup : String; + FEnableDrag : Boolean; + FEnableDrop : Boolean; + FExpandDelay : String; + FNodeHighlightColor : String; + FNodeHighlightOnDrop : Boolean; + FNodeHighlightOnRepair : Boolean; + FSortOnDrop : Boolean; + procedure SetFAllowContainerDrops(Value : Boolean); + procedure SetFAllowParentInserts(Value : Boolean); + procedure SetFAppendOnly(Value : Boolean); + procedure SetFContainerScroll(Value : TExtObject); + procedure SetFContainerScrollBoolean(Value : Boolean); + procedure SetFDdGroup(Value : String); + procedure SetFDisplayField(Value : String); + procedure SetFDropGroup(Value : String); + procedure SetFEnableDrag(Value : Boolean); + procedure SetFEnableDrop(Value : Boolean); + procedure SetFExpandDelay(Value : String); + procedure SetFNodeHighlightColor(Value : String); + procedure SetFNodeHighlightOnDrop(Value : Boolean); + procedure SetFNodeHighlightOnRepair(Value : Boolean); + procedure SetFSortOnDrop(Value : Boolean); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function SetText(Text : String; Encode : Boolean = false) : TExtFunction; - property ForId : String read FForId write SetFForId; - property Html : String read FHtml write SetFHtml; - property Text : String read FText write SetFText; + constructor Create; + destructor Destroy; override; + property AllowContainerDrops : Boolean read FAllowContainerDrops write SetFAllowContainerDrops; + property AllowParentInserts : Boolean read FAllowParentInserts write SetFAllowParentInserts; + property AppendOnly : Boolean read FAppendOnly write SetFAppendOnly; + property ContainerScroll : TExtObject read FContainerScroll write SetFContainerScroll; + property ContainerScrollBoolean : Boolean read FContainerScrollBoolean write SetFContainerScrollBoolean; + property DdGroup : String read FDdGroup write SetFDdGroup; + property DisplayField : String read FDisplayField write SetFDisplayField; + property DropGroup : String read FDropGroup write SetFDropGroup; + property EnableDrag : Boolean read FEnableDrag write SetFEnableDrag; + property EnableDrop : Boolean read FEnableDrop write SetFEnableDrop; + property ExpandDelay : String read FExpandDelay write SetFExpandDelay; + property NodeHighlightColor : String read FNodeHighlightColor write SetFNodeHighlightColor; + property NodeHighlightOnDrop : Boolean read FNodeHighlightOnDrop write SetFNodeHighlightOnDrop; + property NodeHighlightOnRepair : Boolean read FNodeHighlightOnRepair write SetFNodeHighlightOnRepair; + property SortOnDrop : Boolean read FSortOnDrop write SetFSortOnDrop; end; // Procedural types for events TExtProgressBar @@ -8035,22 +8088,22 @@ TExtFormLabel = class(TExtComponent) TExtProgressBar = class(TExtComponent) private FAnimate : Boolean; - FAnimateTExtObject : TExtObject; + FAnimateObject : TExtObject; FBaseCls : String; FId : String; FText : String; FTextEl : String; - FTextElTExtElement : TExtElement; + FTextElElement : TExtElement; FTextElTHTMLElement : THTMLElement; FValue : Integer; FOnUpdate : TExtProgressBarOnUpdate; procedure SetFAnimate(Value : Boolean); - procedure SetFAnimateTExtObject(Value : TExtObject); + procedure SetFAnimateObject(Value : TExtObject); procedure SetFBaseCls(Value : String); procedure SetFId(Value : String); procedure SetFText(Value : String); procedure SetFTextEl(Value : String); - procedure SetFTextElTExtElement(Value : TExtElement); + procedure SetFTextElElement(Value : TExtElement); procedure SetFTextElTHTMLElement(Value : THTMLElement); procedure SetFValue(Value : Integer); procedure SetFOnUpdate(Value : TExtProgressBarOnUpdate); @@ -8068,12 +8121,12 @@ TExtProgressBar = class(TExtComponent) function Wait(Config : TExtObject = nil; ConfigDuration : Integer = 0; ConfigInterval : Integer = 0; ConfigAnimate : Boolean = false; ConfigIncrement : Integer = 0; ConfigText : String = ''; ConfigFn : TExtFunction = nil; ConfigScope : TExtObject = nil) : TExtFunction; destructor Destroy; override; property Animate : Boolean read FAnimate write SetFAnimate; - property AnimateTExtObject : TExtObject read FAnimateTExtObject write SetFAnimateTExtObject; + property AnimateObject : TExtObject read FAnimateObject write SetFAnimateObject; property BaseCls : String read FBaseCls write SetFBaseCls; property Id : String read FId write SetFId; property Text : String read FText write SetFText; property TextEl : String read FTextEl write SetFTextEl; - property TextElTExtElement : TExtElement read FTextElTExtElement write SetFTextElTExtElement; + property TextElElement : TExtElement read FTextElElement write SetFTextElElement; property TextElTHTMLElement : THTMLElement read FTextElTHTMLElement write SetFTextElTHTMLElement; property Value : Integer read FValue write SetFValue; property OnUpdate : TExtProgressBarOnUpdate read FOnUpdate write SetFOnUpdate; @@ -8147,86 +8200,10 @@ TExtDataProxyServer = class(TExtDataProxy) property Url : String read FUrl write SetFUrl; end; - TExtAppDomainStoreSingleton = class(TExtAppEventDomain) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtTreePluginTreeViewDragDrop = class(TExtAbstractPlugin) - private - FAllowContainerDrops : Boolean; - FAllowParentInserts : Boolean; - FAppendOnly : Boolean; - FContainerScroll : TExtObject; - FContainerScrollBoolean : Boolean; - FDdGroup : String; - FDisplayField : String; - FDropGroup : String; - FEnableDrag : Boolean; - FEnableDrop : Boolean; - FExpandDelay : String; - FNodeHighlightColor : String; - FNodeHighlightOnDrop : Boolean; - FNodeHighlightOnRepair : Boolean; - FSortOnDrop : Boolean; - procedure SetFAllowContainerDrops(Value : Boolean); - procedure SetFAllowParentInserts(Value : Boolean); - procedure SetFAppendOnly(Value : Boolean); - procedure SetFContainerScroll(Value : TExtObject); - procedure SetFContainerScrollBoolean(Value : Boolean); - procedure SetFDdGroup(Value : String); - procedure SetFDisplayField(Value : String); - procedure SetFDropGroup(Value : String); - procedure SetFEnableDrag(Value : Boolean); - procedure SetFEnableDrop(Value : Boolean); - procedure SetFExpandDelay(Value : String); - procedure SetFNodeHighlightColor(Value : String); - procedure SetFNodeHighlightOnDrop(Value : Boolean); - procedure SetFNodeHighlightOnRepair(Value : Boolean); - procedure SetFSortOnDrop(Value : Boolean); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property AllowContainerDrops : Boolean read FAllowContainerDrops write SetFAllowContainerDrops; - property AllowParentInserts : Boolean read FAllowParentInserts write SetFAllowParentInserts; - property AppendOnly : Boolean read FAppendOnly write SetFAppendOnly; - property ContainerScroll : TExtObject read FContainerScroll write SetFContainerScroll; - property ContainerScrollBoolean : Boolean read FContainerScrollBoolean write SetFContainerScrollBoolean; - property DdGroup : String read FDdGroup write SetFDdGroup; - property DisplayField : String read FDisplayField write SetFDisplayField; - property DropGroup : String read FDropGroup write SetFDropGroup; - property EnableDrag : Boolean read FEnableDrag write SetFEnableDrag; - property EnableDrop : Boolean read FEnableDrop write SetFEnableDrop; - property ExpandDelay : String read FExpandDelay write SetFExpandDelay; - property NodeHighlightColor : String read FNodeHighlightColor write SetFNodeHighlightColor; - property NodeHighlightOnDrop : Boolean read FNodeHighlightOnDrop write SetFNodeHighlightOnDrop; - property NodeHighlightOnRepair : Boolean read FNodeHighlightOnRepair write SetFNodeHighlightOnRepair; - property SortOnDrop : Boolean read FSortOnDrop write SetFSortOnDrop; - end; - - TExtToolbarFill = class(TExtComponent) - private - FIsFill : Boolean; - procedure SetFIsFill(Value : Boolean); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property IsFill : Boolean read FIsFill write SetFIsFill; - end; - - TExtToolbarItem = class(TExtComponent) - private - FOverflowText : String; - procedure SetFOverflowText(Value : String); + TExtDataReader = class(TExtDataModel) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property OverflowText : String read FOverflowText write SetFOverflowText; end; // Procedural types for events TExtPickerDate @@ -8354,6 +8331,12 @@ TExtPickerDate = class(TExtComponent) property OnSelect : TExtPickerDateOnSelect read FOnSelect write SetFOnSelect; end; + TExtToolbarSpacer = class(TExtComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + // Procedural types for events TExtPickerMonth TExtPickerMonthOnCancelclick = procedure(This : TExtPickerMonth) of object; TExtPickerMonthOnMonthclick = procedure(This : TExtPickerMonth; Value : TExtObjectList) of object; @@ -8418,12 +8401,31 @@ TExtPickerMonth = class(TExtComponent) property OnYeardblclick : TExtPickerMonthOnYeardblclick read FOnYeardblclick write SetFOnYeardblclick; end; - TExtPluginManagerSingleton = class(TExtAbstractManager) + TExtFormLabel = class(TExtComponent) + private + FForId : String; + FHtml : String; + FText : String; + procedure SetFForId(Value : String); + procedure SetFHtml(Value : String); + procedure SetFText(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create(Config : TExtObject; DefaultType : TExtFunction = nil); - function FindByType(TypeJS : String; DefaultsOnly : Boolean) : TExtFunction; + function SetText(Text : String; Encode : Boolean = false) : TExtFunction; + property ForId : String read FForId write SetFForId; + property Html : String read FHtml write SetFHtml; + property Text : String read FText write SetFText; + end; + + TExtToolbarItem = class(TExtComponent) + private + FOverflowText : String; + procedure SetFOverflowText(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property OverflowText : String read FOverflowText write SetFOverflowText; end; // Procedural types for events TExtPickerColor @@ -8470,19 +8472,7 @@ TExtPickerColor = class(TExtComponent) property OnSelect : TExtPickerColorOnSelect read FOnSelect write SetFOnSelect; end; - TExtToolbarSpacer = class(TExtComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtDataReader = class(TExtDataModel) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtFxTargetElement = class(TExtFxTarget) + TExtAppDomainComponentSingleton = class(TExtAppEventDomain) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -8497,7 +8487,7 @@ TExtPanelTool = class(TExtComponent) FScope : TExtObject; FStopEvent : Boolean; FTooltip : String; - FTooltipTExtObject : TExtObject; + FTooltipObject : TExtObject; FTooltipType : String; FTypeJS : String; FOnClick : TExtPanelToolOnClick; @@ -8505,7 +8495,7 @@ TExtPanelTool = class(TExtComponent) procedure SetFScope(Value : TExtObject); procedure SetFStopEvent(Value : Boolean); procedure SetFTooltip(Value : String); - procedure SetFTooltipTExtObject(Value : TExtObject); + procedure SetFTooltipObject(Value : TExtObject); procedure SetFTooltipType(Value : String); procedure SetFTypeJS(Value : String); procedure SetFOnClick(Value : TExtPanelToolOnClick); @@ -8522,25 +8512,13 @@ TExtPanelTool = class(TExtComponent) property Scope : TExtObject read FScope write SetFScope; property StopEvent : Boolean read FStopEvent write SetFStopEvent; property Tooltip : String read FTooltip write SetFTooltip; - property TooltipTExtObject : TExtObject read FTooltipTExtObject write SetFTooltipTExtObject; + property TooltipObject : TExtObject read FTooltipObject write SetFTooltipObject; property TooltipType : String read FTooltipType write SetFTooltipType; property TypeJS : String read FTypeJS write SetFTypeJS; property OnClick : TExtPanelToolOnClick read FOnClick write SetFOnClick; end; - TExtAppDomainComponentSingleton = class(TExtAppEventDomain) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtXTemplateCompiler = class(TExtXTemplateParser) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtResizerHandle = class(TExtComponent) + TExtAppDomainControllerSingleton = class(TExtAppEventDomain) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -8551,7 +8529,7 @@ TExtUtilClickRepeater = class(TExtUtilObservable) FAccelerate : Boolean; FDelay : Integer; FEl : String; - FElTExtElement : TExtElement; + FElElement : TExtElement; FElTHTMLElement : THTMLElement; FInterval : Integer; FPressedCls : String; @@ -8560,7 +8538,7 @@ TExtUtilClickRepeater = class(TExtUtilObservable) procedure SetFAccelerate(Value : Boolean); procedure SetFDelay(Value : Integer); procedure SetFEl(Value : String); - procedure SetFElTExtElement(Value : TExtElement); + procedure SetFElElement(Value : TExtElement); procedure SetFElTHTMLElement(Value : THTMLElement); procedure SetFInterval(Value : Integer); procedure SetFPressedCls(Value : String); @@ -8579,7 +8557,7 @@ TExtUtilClickRepeater = class(TExtUtilObservable) property Accelerate : Boolean read FAccelerate write SetFAccelerate; property Delay : Integer read FDelay write SetFDelay; property El : String read FEl write SetFEl; - property ElTExtElement : TExtElement read FElTExtElement write SetFElTExtElement; + property ElElement : TExtElement read FElElement write SetFElElement; property ElTHTMLElement : THTMLElement read FElTHTMLElement write SetFElTHTMLElement; property Interval : Integer read FInterval write SetFInterval; property PressedCls : String read FPressedCls write SetFPressedCls; @@ -8587,25 +8565,38 @@ TExtUtilClickRepeater = class(TExtUtilObservable) property StopDefault : Boolean read FStopDefault write SetFStopDefault; end; - TExtAppDomainControllerSingleton = class(TExtAppEventDomain) + TExtXTemplateCompiler = class(TExtXTemplateParser) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtAppDomainGlobalSingleton = class(TExtAppEventDomain) + TExtFxTargetElement = class(TExtFxTarget) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtAppDomainDirectSingleton = class(TExtAppEventDomain) + TExtFxTargetComponent = class(TExtFxTarget) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtFxTargetComponent = class(TExtFxTarget) + TExtUtilGrouper = class(TExtUtilSorter) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function GetGroupString(Instance : TExtDataModel) : TExtFunction; + end; + + TExtAppDomainGlobalSingleton = class(TExtAppEventDomain) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtAppDomainDirectSingleton = class(TExtAppEventDomain) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -8614,9 +8605,9 @@ TExtFxTargetComponent = class(TExtFxTarget) TExtXTemplate = class(TExtTemplate) private FDefinitions : String; - FDefinitionsTExtObjectList : TExtObjectList; + FDefinitionsList : TExtObjectList; procedure SetFDefinitions(Value : String); - procedure SetFDefinitionsTExtObjectList(Value : TExtObjectList); + procedure SetFDefinitionsList(Value : TExtObjectList); protected procedure InitDefaults; override; public @@ -8626,20 +8617,20 @@ TExtXTemplate = class(TExtTemplate) constructor Create; destructor Destroy; override; property Definitions : String read FDefinitions write SetFDefinitions; - property DefinitionsTExtObjectList : TExtObjectList read FDefinitionsTExtObjectList write SetFDefinitionsTExtObjectList; + property DefinitionsList : TExtObjectList read FDefinitionsList write SetFDefinitionsList; end; TExtLayoutContainerBorder = class(TExtLayoutContainer) private FPadding : Integer; + FPaddingObject : TExtObject; FPaddingString : String; - FPaddingTExtObject : TExtObject; FRegionWeights : TExtObject; FSplit : Boolean; FSplitterResize : Boolean; procedure SetFPadding(Value : Integer); + procedure SetFPaddingObject(Value : TExtObject); procedure SetFPaddingString(Value : String); - procedure SetFPaddingTExtObject(Value : TExtObject); procedure SetFRegionWeights(Value : TExtObject); procedure SetFSplit(Value : Boolean); procedure SetFSplitterResize(Value : Boolean); @@ -8651,8 +8642,8 @@ TExtLayoutContainerBorder = class(TExtLayoutContainer) constructor Create; destructor Destroy; override; property Padding : Integer read FPadding write SetFPadding; + property PaddingObject : TExtObject read FPaddingObject write SetFPaddingObject; property PaddingString : String read FPaddingString write SetFPaddingString; - property PaddingTExtObject : TExtObject read FPaddingTExtObject write SetFPaddingTExtObject; property RegionWeights : TExtObject read FRegionWeights write SetFRegionWeights; property Split : Boolean read FSplit write SetFSplit; property SplitterResize : Boolean read FSplitterResize write SetFSplitterResize; @@ -8676,6 +8667,12 @@ TExtChartSeriesScatter = class(TExtChartSeriesCartesian) property Style : TExtObject read FStyle write SetFStyle; end; + TExtChartTipSurface = class(TExtDrawComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtLayoutContainerBox = class(TExtLayoutContainer) private FDefaultMargins : TExtObject; @@ -8683,13 +8680,13 @@ TExtLayoutContainerBox = class(TExtLayoutContainer) FPack : String; FPadding : String; FStretchMaxPartner : String; - FStretchMaxPartnerTExtComponent : TExtComponent; + FStretchMaxPartnerComponent : TExtComponent; procedure SetFDefaultMargins(Value : TExtObject); procedure SetFFlex(Value : Integer); procedure SetFPack(Value : String); procedure SetFPadding(Value : String); procedure SetFStretchMaxPartner(Value : String); - procedure SetFStretchMaxPartnerTExtComponent(Value : TExtComponent); + procedure SetFStretchMaxPartnerComponent(Value : TExtComponent); protected procedure InitDefaults; override; public @@ -8702,13 +8699,7 @@ TExtLayoutContainerBox = class(TExtLayoutContainer) property Pack : String read FPack write SetFPack; property Padding : String read FPadding write SetFPadding; property StretchMaxPartner : String read FStretchMaxPartner write SetFStretchMaxPartner; - property StretchMaxPartnerTExtComponent : TExtComponent read FStretchMaxPartnerTExtComponent write SetFStretchMaxPartnerTExtComponent; - end; - - TExtChartTipSurface = class(TExtDrawComponent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property StretchMaxPartnerComponent : TExtComponent read FStretchMaxPartnerComponent write SetFStretchMaxPartnerComponent; end; TExtLayoutContainerTable = class(TExtLayoutContainer) @@ -8766,6 +8757,12 @@ TExtDataErrors = class(TExtUtilMixedCollection) function IsValid : TExtFunction; end; + TExtResizerBorderSplitterTracker = class(TExtResizerSplitterTracker) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + // Procedural types for events TExtMenuCheckItem TExtMenuCheckItemOnBeforecheckchange = procedure(This : TExtMenuCheckItem; Checked : Boolean) of object; TExtMenuCheckItemOnCheckchange = procedure(This : TExtMenuCheckItem; Checked : Boolean) of object; @@ -8818,12 +8815,6 @@ TExtMenuCheckItem = class(TExtMenuItem) property OnCheckchange : TExtMenuCheckItemOnCheckchange read FOnCheckchange write SetFOnCheckchange; end; - TExtResizerBorderSplitterTracker = class(TExtResizerSplitterTracker) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtLayoutContainerCheckboxGroup = class(TExtLayoutContainer) private FAutoFlex : Boolean; @@ -8868,17 +8859,17 @@ TExtChartSeriesBar = class(TExtChartSeriesCartesian) FGutter : Integer; FStacked : Boolean; FXPadding : Integer; - FXPaddingTExtObject : TExtObject; + FXPaddingObject : TExtObject; FYPadding : Integer; - FYPaddingTExtObject : TExtObject; + FYPaddingObject : TExtObject; procedure SetFColumn(Value : Boolean); procedure SetFGroupGutter(Value : Integer); procedure SetFGutter(Value : Integer); procedure SetFStacked(Value : Boolean); procedure SetFXPadding(Value : Integer); - procedure SetFXPaddingTExtObject(Value : TExtObject); + procedure SetFXPaddingObject(Value : TExtObject); procedure SetFYPadding(Value : Integer); - procedure SetFYPaddingTExtObject(Value : TExtObject); + procedure SetFYPaddingObject(Value : TExtObject); protected procedure InitDefaults; override; public @@ -8893,9 +8884,9 @@ TExtChartSeriesBar = class(TExtChartSeriesCartesian) property Gutter : Integer read FGutter write SetFGutter; property Stacked : Boolean read FStacked write SetFStacked; property XPadding : Integer read FXPadding write SetFXPadding; - property XPaddingTExtObject : TExtObject read FXPaddingTExtObject write SetFXPaddingTExtObject; + property XPaddingObject : TExtObject read FXPaddingObject write SetFXPaddingObject; property YPadding : Integer read FYPadding write SetFYPadding; - property YPaddingTExtObject : TExtObject read FYPaddingTExtObject write SetFYPaddingTExtObject; + property YPaddingObject : TExtObject read FYPaddingObject write SetFYPaddingObject; end; TExtLayoutContainerFit = class(TExtLayoutContainer) @@ -8951,10 +8942,27 @@ TExtLayoutContainerEditor = class(TExtLayoutContainer) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtToolbarSeparator = class(TExtToolbarItem) + TExtDataReaderJson = class(TExtDataReader) + private + FJsonData : TExtObject; + FMetaProperty : String; + FRecordJS : String; + FUseSimpleAccessors : Boolean; + procedure SetFJsonData(Value : TExtObject); + procedure SetFMetaProperty(Value : String); + procedure SetFRecordJS(Value : String); + procedure SetFUseSimpleAccessors(Value : Boolean); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + destructor Destroy; override; + property JsonData : TExtObject read FJsonData write SetFJsonData; + property MetaProperty : String read FMetaProperty write SetFMetaProperty; + property RecordJS : String read FRecordJS write SetFRecordJS; + property UseSimpleAccessors : Boolean read FUseSimpleAccessors write SetFUseSimpleAccessors; end; TExtDataProxyWebStorage = class(TExtDataProxyClient) @@ -8976,14 +8984,28 @@ TExtDataProxyWebStorage = class(TExtDataProxyClient) property Id : String read FId write SetFId; end; - TExtFxTargetCompositeElement = class(TExtFxTargetElement) + TExtDrawText = class(TExtDrawComponent) private - FIsComposite : Boolean; - procedure SetFIsComposite(Value : Boolean); + FDegrees : Integer; + FStyleSelector : String; + FText : String; + procedure SetFDegrees(Value : Integer); + procedure SetFStyleSelector(Value : String); + procedure SetFText(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function SetAngle(Degrees : Integer) : TExtFunction; + function SetText(T : String) : TExtFunction; + property Degrees : Integer read FDegrees write SetFDegrees; + property StyleSelector : String read FStyleSelector write SetFStyleSelector; + property Text : String read FText write SetFText; + end; + + TExtToolbarSeparator = class(TExtToolbarItem) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property IsComposite : Boolean read FIsComposite write SetFIsComposite; end; TExtFormRadioManagerSingleton = class(TExtUtilMixedCollection) @@ -9012,45 +9034,14 @@ TExtDataReaderXml = class(TExtDataReader) property XmlData : TExtObject read FXmlData write SetFXmlData; end; - TExtDataReaderJson = class(TExtDataReader) - private - FJsonData : TExtObject; - FMetaProperty : String; - FRecordJS : String; - FUseSimpleAccessors : Boolean; - procedure SetFJsonData(Value : TExtObject); - procedure SetFMetaProperty(Value : String); - procedure SetFRecordJS(Value : String); - procedure SetFUseSimpleAccessors(Value : Boolean); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property JsonData : TExtObject read FJsonData write SetFJsonData; - property MetaProperty : String read FMetaProperty write SetFMetaProperty; - property RecordJS : String read FRecordJS write SetFRecordJS; - property UseSimpleAccessors : Boolean read FUseSimpleAccessors write SetFUseSimpleAccessors; - end; - - TExtDrawText = class(TExtDrawComponent) + TExtFxTargetCompositeElement = class(TExtFxTargetElement) private - FDegrees : Integer; - FStyleSelector : String; - FText : String; - procedure SetFDegrees(Value : Integer); - procedure SetFStyleSelector(Value : String); - procedure SetFText(Value : String); + FIsComposite : Boolean; + procedure SetFIsComposite(Value : Boolean); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function SetAngle(Degrees : Integer) : TExtFunction; - function SetText(T : String) : TExtFunction; - property Degrees : Integer read FDegrees write SetFDegrees; - property StyleSelector : String read FStyleSelector write SetFStyleSelector; - property Text : String read FText write SetFText; + property IsComposite : Boolean read FIsComposite write SetFIsComposite; end; TExtDataProxyMemory = class(TExtDataProxyClient) @@ -9223,8 +9214,8 @@ TExtDataTreeStore = class(TExtDataAbstractStore) FFolderSort : Boolean; FNodeParam : String; FRoot : TExtDataModel; - FRootTExtDataNodeInterface : TExtDataNodeInterface; - FRootTExtObject : TExtObject; + FRootInterface : TExtDataNodeInterface; + FRootObject : TExtObject; FOnAppend : TExtDataTreeStoreOnAppend; FOnBeforeappend : TExtDataTreeStoreOnBeforeappend; FOnBeforecollapse : TExtDataTreeStoreOnBeforecollapse; @@ -9247,8 +9238,8 @@ TExtDataTreeStore = class(TExtDataAbstractStore) procedure SetFFolderSort(Value : Boolean); procedure SetFNodeParam(Value : String); procedure SetFRoot(Value : TExtDataModel); - procedure SetFRootTExtDataNodeInterface(Value : TExtDataNodeInterface); - procedure SetFRootTExtObject(Value : TExtObject); + procedure SetFRootInterface(Value : TExtDataNodeInterface); + procedure SetFRootObject(Value : TExtObject); procedure SetFOnAppend(Value : TExtDataTreeStoreOnAppend); procedure SetFOnBeforeappend(Value : TExtDataTreeStoreOnBeforeappend); procedure SetFOnBeforecollapse(Value : TExtDataTreeStoreOnBeforecollapse); @@ -9279,8 +9270,8 @@ TExtDataTreeStore = class(TExtDataAbstractStore) property FolderSort : Boolean read FFolderSort write SetFFolderSort; property NodeParam : String read FNodeParam write SetFNodeParam; property Root : TExtDataModel read FRoot write SetFRoot; - property RootTExtDataNodeInterface : TExtDataNodeInterface read FRootTExtDataNodeInterface write SetFRootTExtDataNodeInterface; - property RootTExtObject : TExtObject read FRootTExtObject write SetFRootTExtObject; + property RootInterface : TExtDataNodeInterface read FRootInterface write SetFRootInterface; + property RootObject : TExtObject read FRootObject write SetFRootObject; property OnAppend : TExtDataTreeStoreOnAppend read FOnAppend write SetFOnAppend; property OnBeforeappend : TExtDataTreeStoreOnBeforeappend read FOnBeforeappend write SetFOnBeforeappend; property OnBeforecollapse : TExtDataTreeStoreOnBeforecollapse read FOnBeforecollapse write SetFOnBeforecollapse; @@ -9320,16 +9311,16 @@ TExtDataStore = class(TExtDataAbstractStore) FClearRemovedOnLoad : Boolean; FData : TExtObjectList; FData_ : TExtObjectList; - FData_TExtDataStorePageMap : TExtDataStorePageMap; - FDataTExtObjectList : TExtObjectList; + FData_Map : TExtDataStorePageMap; + FDataList : TExtObjectList; FGroupDir : String; FGroupers : TExtObjectList; FGroupField : String; FLeadingBufferZone : Integer; FPageSize : Integer; // 25 FProxy : String; - FProxyTExtDataProxy : TExtDataProxy; - FProxyTExtObject : TExtObject; + FProxyObject : TExtObject; + FProxyProxy : TExtDataProxy; FPurgePageCount : Integer; FRemoteFilter : Boolean; FRemoteGroup : Boolean; @@ -9342,16 +9333,16 @@ TExtDataStore = class(TExtDataAbstractStore) procedure SetFClearRemovedOnLoad(Value : Boolean); procedure SetFData(Value : TExtObjectList); procedure SetFData_(Value : TExtObjectList); - procedure SetFData_TExtDataStorePageMap(Value : TExtDataStorePageMap); - procedure SetFDataTExtObjectList(Value : TExtObjectList); + procedure SetFData_Map(Value : TExtDataStorePageMap); + procedure SetFDataList(Value : TExtObjectList); procedure SetFGroupDir(Value : String); procedure SetFGroupers(Value : TExtObjectList); procedure SetFGroupField(Value : String); procedure SetFLeadingBufferZone(Value : Integer); procedure SetFPageSize(Value : Integer); procedure SetFProxy(Value : String); - procedure SetFProxyTExtDataProxy(Value : TExtDataProxy); - procedure SetFProxyTExtObject(Value : TExtObject); + procedure SetFProxyObject(Value : TExtObject); + procedure SetFProxyProxy(Value : TExtDataProxy); procedure SetFPurgePageCount(Value : Integer); procedure SetFRemoteFilter(Value : Boolean); procedure SetFRemoteGroup(Value : Boolean); @@ -9424,16 +9415,16 @@ TExtDataStore = class(TExtDataAbstractStore) property ClearRemovedOnLoad : Boolean read FClearRemovedOnLoad write SetFClearRemovedOnLoad; property Data : TExtObjectList read FData write SetFData; property Data_ : TExtObjectList read FData_ write SetFData_; - property Data_TExtDataStorePageMap : TExtDataStorePageMap read FData_TExtDataStorePageMap write SetFData_TExtDataStorePageMap; - property DataTExtObjectList : TExtObjectList read FDataTExtObjectList write SetFDataTExtObjectList; + property Data_Map : TExtDataStorePageMap read FData_Map write SetFData_Map; + property DataList : TExtObjectList read FDataList write SetFDataList; property GroupDir : String read FGroupDir write SetFGroupDir; property Groupers : TExtObjectList read FGroupers write SetFGroupers; property GroupField : String read FGroupField write SetFGroupField; property LeadingBufferZone : Integer read FLeadingBufferZone write SetFLeadingBufferZone; property PageSize : Integer read FPageSize write SetFPageSize; property Proxy : String read FProxy write SetFProxy; - property ProxyTExtDataProxy : TExtDataProxy read FProxyTExtDataProxy write SetFProxyTExtDataProxy; - property ProxyTExtObject : TExtObject read FProxyTExtObject write SetFProxyTExtObject; + property ProxyObject : TExtObject read FProxyObject write SetFProxyObject; + property ProxyProxy : TExtDataProxy read FProxyProxy write SetFProxyProxy; property PurgePageCount : Integer read FPurgePageCount write SetFPurgePageCount; property RemoteFilter : Boolean read FRemoteFilter write SetFRemoteFilter; property RemoteGroup : Boolean read FRemoteGroup write SetFRemoteGroup; @@ -9576,22 +9567,22 @@ TExtToolbarTextItem = class(TExtToolbarItem) TExtFormFieldCheckbox = class(TExtFormFieldBase) private FAfterBoxLabelTextTpl : String; - FAfterBoxLabelTextTplTExtObjectList : TExtObjectList; - FAfterBoxLabelTextTplTExtXTemplate : TExtXTemplate; + FAfterBoxLabelTextTplList : TExtObjectList; + FAfterBoxLabelTextTplTemplate : TExtXTemplate; FAfterBoxLabelTpl : String; - FAfterBoxLabelTplTExtObjectList : TExtObjectList; - FAfterBoxLabelTplTExtXTemplate : TExtXTemplate; + FAfterBoxLabelTplList : TExtObjectList; + FAfterBoxLabelTplTemplate : TExtXTemplate; FBeforeBoxLabelTextTpl : String; - FBeforeBoxLabelTextTplTExtObjectList : TExtObjectList; - FBeforeBoxLabelTextTplTExtXTemplate : TExtXTemplate; + FBeforeBoxLabelTextTplList : TExtObjectList; + FBeforeBoxLabelTextTplTemplate : TExtXTemplate; FBeforeBoxLabelTpl : String; - FBeforeBoxLabelTplTExtObjectList : TExtObjectList; - FBeforeBoxLabelTplTExtXTemplate : TExtXTemplate; + FBeforeBoxLabelTplList : TExtObjectList; + FBeforeBoxLabelTplTemplate : TExtXTemplate; FBoxLabel : String; FBoxLabelAlign : String; FBoxLabelAttrTpl : String; - FBoxLabelAttrTplTExtObjectList : TExtObjectList; - FBoxLabelAttrTplTExtXTemplate : TExtXTemplate; + FBoxLabelAttrTplList : TExtObjectList; + FBoxLabelAttrTplTemplate : TExtXTemplate; FBoxLabelCls : String; FChecked : Boolean; FCheckedCls : String; @@ -9604,22 +9595,22 @@ TExtFormFieldCheckbox = class(TExtFormFieldBase) FScope : TExtObject; FUncheckedValue : String; procedure SetFAfterBoxLabelTextTpl(Value : String); - procedure SetFAfterBoxLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterBoxLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterBoxLabelTextTplList(Value : TExtObjectList); + procedure SetFAfterBoxLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFAfterBoxLabelTpl(Value : String); - procedure SetFAfterBoxLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterBoxLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterBoxLabelTplList(Value : TExtObjectList); + procedure SetFAfterBoxLabelTplTemplate(Value : TExtXTemplate); procedure SetFBeforeBoxLabelTextTpl(Value : String); - procedure SetFBeforeBoxLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeBoxLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeBoxLabelTextTplList(Value : TExtObjectList); + procedure SetFBeforeBoxLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFBeforeBoxLabelTpl(Value : String); - procedure SetFBeforeBoxLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeBoxLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeBoxLabelTplList(Value : TExtObjectList); + procedure SetFBeforeBoxLabelTplTemplate(Value : TExtXTemplate); procedure SetFBoxLabel(Value : String); procedure SetFBoxLabelAlign(Value : String); procedure SetFBoxLabelAttrTpl(Value : String); - procedure SetFBoxLabelAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFBoxLabelAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBoxLabelAttrTplList(Value : TExtObjectList); + procedure SetFBoxLabelAttrTplTemplate(Value : TExtXTemplate); procedure SetFBoxLabelCls(Value : String); procedure SetFChecked(Value : Boolean); procedure SetFCheckedCls(Value : String); @@ -9645,22 +9636,22 @@ TExtFormFieldCheckbox = class(TExtFormFieldBase) function SetValue(Checked : Boolean) : TExtFunction; overload; destructor Destroy; override; property AfterBoxLabelTextTpl : String read FAfterBoxLabelTextTpl write SetFAfterBoxLabelTextTpl; - property AfterBoxLabelTextTplTExtObjectList : TExtObjectList read FAfterBoxLabelTextTplTExtObjectList write SetFAfterBoxLabelTextTplTExtObjectList; - property AfterBoxLabelTextTplTExtXTemplate : TExtXTemplate read FAfterBoxLabelTextTplTExtXTemplate write SetFAfterBoxLabelTextTplTExtXTemplate; + property AfterBoxLabelTextTplList : TExtObjectList read FAfterBoxLabelTextTplList write SetFAfterBoxLabelTextTplList; + property AfterBoxLabelTextTplTemplate : TExtXTemplate read FAfterBoxLabelTextTplTemplate write SetFAfterBoxLabelTextTplTemplate; property AfterBoxLabelTpl : String read FAfterBoxLabelTpl write SetFAfterBoxLabelTpl; - property AfterBoxLabelTplTExtObjectList : TExtObjectList read FAfterBoxLabelTplTExtObjectList write SetFAfterBoxLabelTplTExtObjectList; - property AfterBoxLabelTplTExtXTemplate : TExtXTemplate read FAfterBoxLabelTplTExtXTemplate write SetFAfterBoxLabelTplTExtXTemplate; + property AfterBoxLabelTplList : TExtObjectList read FAfterBoxLabelTplList write SetFAfterBoxLabelTplList; + property AfterBoxLabelTplTemplate : TExtXTemplate read FAfterBoxLabelTplTemplate write SetFAfterBoxLabelTplTemplate; property BeforeBoxLabelTextTpl : String read FBeforeBoxLabelTextTpl write SetFBeforeBoxLabelTextTpl; - property BeforeBoxLabelTextTplTExtObjectList : TExtObjectList read FBeforeBoxLabelTextTplTExtObjectList write SetFBeforeBoxLabelTextTplTExtObjectList; - property BeforeBoxLabelTextTplTExtXTemplate : TExtXTemplate read FBeforeBoxLabelTextTplTExtXTemplate write SetFBeforeBoxLabelTextTplTExtXTemplate; + property BeforeBoxLabelTextTplList : TExtObjectList read FBeforeBoxLabelTextTplList write SetFBeforeBoxLabelTextTplList; + property BeforeBoxLabelTextTplTemplate : TExtXTemplate read FBeforeBoxLabelTextTplTemplate write SetFBeforeBoxLabelTextTplTemplate; property BeforeBoxLabelTpl : String read FBeforeBoxLabelTpl write SetFBeforeBoxLabelTpl; - property BeforeBoxLabelTplTExtObjectList : TExtObjectList read FBeforeBoxLabelTplTExtObjectList write SetFBeforeBoxLabelTplTExtObjectList; - property BeforeBoxLabelTplTExtXTemplate : TExtXTemplate read FBeforeBoxLabelTplTExtXTemplate write SetFBeforeBoxLabelTplTExtXTemplate; + property BeforeBoxLabelTplList : TExtObjectList read FBeforeBoxLabelTplList write SetFBeforeBoxLabelTplList; + property BeforeBoxLabelTplTemplate : TExtXTemplate read FBeforeBoxLabelTplTemplate write SetFBeforeBoxLabelTplTemplate; property BoxLabel : String read FBoxLabel write SetFBoxLabel; property BoxLabelAlign : String read FBoxLabelAlign write SetFBoxLabelAlign; property BoxLabelAttrTpl : String read FBoxLabelAttrTpl write SetFBoxLabelAttrTpl; - property BoxLabelAttrTplTExtObjectList : TExtObjectList read FBoxLabelAttrTplTExtObjectList write SetFBoxLabelAttrTplTExtObjectList; - property BoxLabelAttrTplTExtXTemplate : TExtXTemplate read FBoxLabelAttrTplTExtXTemplate write SetFBoxLabelAttrTplTExtXTemplate; + property BoxLabelAttrTplList : TExtObjectList read FBoxLabelAttrTplList write SetFBoxLabelAttrTplList; + property BoxLabelAttrTplTemplate : TExtXTemplate read FBoxLabelAttrTplTemplate write SetFBoxLabelAttrTplTemplate; property BoxLabelCls : String read FBoxLabelCls write SetFBoxLabelCls; property Checked : Boolean read FChecked write SetFChecked; property CheckedCls : String read FCheckedCls write SetFCheckedCls; @@ -9703,39 +9694,99 @@ TExtFormFieldFileButton = class(TExtButton) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtGridFeatureAbstractSummary = class(TExtGridFeature) - private - FRemoteRoot : String; - procedure SetFRemoteRoot(Value : String); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property RemoteRoot : String read FRemoteRoot write SetFRemoteRoot; - end; + // Procedural types for events TExtChart + TExtChartOnBeforerefresh = procedure(This : TExtChart) of object; + TExtChartOnRefresh = procedure(This : TExtChart) of object; - TExtDdDropTarget = class(TExtDdDDTarget) + TExtChart = class(TExtDrawComponent) private - FDdGroup : String; - FDropAllowed : String; - FDropNotAllowed : String; - FOverClass : String; - procedure SetFDdGroup(Value : String); - procedure SetFDropAllowed(Value : String); - procedure SetFDropNotAllowed(Value : String); - procedure SetFOverClass(Value : String); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property DdGroup : String read FDdGroup write SetFDdGroup; - property DropAllowed : String read FDropAllowed write SetFDropAllowed; - property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; - property OverClass : String read FOverClass write SetFOverClass; - end; - - TExtLayoutComponentAuto = class(TExtLayoutComponent) + FAnimate : Boolean; + FAnimateObject : TExtObject; + FAxes : TExtObjectList; + FBackground : TExtObject; + FBackgroundBoolean : Boolean; + FGradients : TExtObjectList; + FHasListeners : TExtObject; + FInsetPadding : Integer; // 10 + FIsObservable : Boolean; + FLegend : Boolean; + FLegendObject : TExtObject; + FListeners : TExtObject; + FMask : Boolean; + FMaskString : String; + FSeries : TExtObjectList; + FStore : TExtDataStore; + FTheme : String; + FOnBeforerefresh : TExtChartOnBeforerefresh; + FOnRefresh : TExtChartOnRefresh; + procedure SetFAnimate(Value : Boolean); + procedure SetFAnimateObject(Value : TExtObject); + procedure SetFAxes(Value : TExtObjectList); + procedure SetFBackground(Value : TExtObject); + procedure SetFBackgroundBoolean(Value : Boolean); + procedure SetFGradients(Value : TExtObjectList); + procedure SetFHasListeners(Value : TExtObject); + procedure SetFInsetPadding(Value : Integer); + procedure SetFIsObservable(Value : Boolean); + procedure SetFLegend(Value : Boolean); + procedure SetFLegendObject(Value : TExtObject); + procedure SetFListeners(Value : TExtObject); + procedure SetFMask(Value : Boolean); + procedure SetFMaskString(Value : String); + procedure SetFSeries(Value : TExtObjectList); + procedure SetFStore(Value : TExtDataStore); + procedure SetFTheme(Value : String); + procedure SetFOnBeforerefresh(Value : TExtChartOnBeforerefresh); + procedure SetFOnRefresh(Value : TExtChartOnRefresh); + protected + procedure InitDefaults; override; + procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function AddEvents(EventNames : String) : TExtFunction; overload; + function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; + function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; + function BindStore(Store : String = '') : TExtFunction; overload; + function ClearListeners : TExtFunction; + function ClearManagedListeners : TExtFunction; + constructor Create; + function EnableBubble(EventNames : String) : TExtFunction; overload; + function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; + function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; + function GetStore : TExtFunction; + function HasListener(EventName : String) : TExtFunction; + function Redraw(Resize : Boolean = false) : TExtFunction; + function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; + function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; + function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; + function RestoreZoom : TExtFunction; + function ResumeEvent(EventName : String) : TExtFunction; + function ResumeEvents : TExtFunction; + function Save(Config : TExtObject = nil) : TExtFunction; + function SetZoom : TExtFunction; + function SuspendEvent(EventName : String) : TExtFunction; + function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; + destructor Destroy; override; + property Animate : Boolean read FAnimate write SetFAnimate; + property AnimateObject : TExtObject read FAnimateObject write SetFAnimateObject; + property Axes : TExtObjectList read FAxes write SetFAxes; + property Background : TExtObject read FBackground write SetFBackground; + property BackgroundBoolean : Boolean read FBackgroundBoolean write SetFBackgroundBoolean; + property Gradients : TExtObjectList read FGradients write SetFGradients; + property HasListeners : TExtObject read FHasListeners write SetFHasListeners; + property InsetPadding : Integer read FInsetPadding write SetFInsetPadding; + property IsObservable : Boolean read FIsObservable write SetFIsObservable; + property Legend : Boolean read FLegend write SetFLegend; + property LegendObject : TExtObject read FLegendObject write SetFLegendObject; + property Listeners : TExtObject read FListeners write SetFListeners; + property Mask : Boolean read FMask write SetFMask; + property MaskString : String read FMaskString write SetFMaskString; + property Series : TExtObjectList read FSeries write SetFSeries; + property Store : TExtDataStore read FStore write SetFStore; + property Theme : String read FTheme write SetFTheme; + property OnBeforerefresh : TExtChartOnBeforerefresh read FOnBeforerefresh write SetFOnBeforerefresh; + property OnRefresh : TExtChartOnRefresh read FOnRefresh write SetFOnRefresh; end; // Procedural types for events TExtSelectionRowModel @@ -9774,6 +9825,42 @@ TExtSelectionRowModel = class(TExtSelectionModel) property OnSelect : TExtSelectionRowModelOnSelect read FOnSelect write SetFOnSelect; end; + TExtLayoutComponentAuto = class(TExtLayoutComponent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + // Procedural types for events TExtSelectionDataViewModel + TExtSelectionDataViewModelOnBeforedeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; + TExtSelectionDataViewModelOnBeforeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; + TExtSelectionDataViewModelOnDeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; + TExtSelectionDataViewModelOnSelect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; + + TExtSelectionDataViewModel = class(TExtSelectionModel) + private + FEnableKeyNav : Boolean; + FOnBeforedeselect : TExtSelectionDataViewModelOnBeforedeselect; + FOnBeforeselect : TExtSelectionDataViewModelOnBeforeselect; + FOnDeselect : TExtSelectionDataViewModelOnDeselect; + FOnSelect : TExtSelectionDataViewModelOnSelect; + procedure SetFEnableKeyNav(Value : Boolean); + procedure SetFOnBeforedeselect(Value : TExtSelectionDataViewModelOnBeforedeselect); + procedure SetFOnBeforeselect(Value : TExtSelectionDataViewModelOnBeforeselect); + procedure SetFOnDeselect(Value : TExtSelectionDataViewModelOnDeselect); + procedure SetFOnSelect(Value : TExtSelectionDataViewModelOnSelect); + protected + procedure HandleEvent(const AEvtName: string); override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property EnableKeyNav : Boolean read FEnableKeyNav write SetFEnableKeyNav; + property OnBeforedeselect : TExtSelectionDataViewModelOnBeforedeselect read FOnBeforedeselect write SetFOnBeforedeselect; + property OnBeforeselect : TExtSelectionDataViewModelOnBeforeselect read FOnBeforeselect write SetFOnBeforeselect; + property OnDeselect : TExtSelectionDataViewModelOnDeselect read FOnDeselect write SetFOnDeselect; + property OnSelect : TExtSelectionDataViewModelOnSelect read FOnSelect write SetFOnSelect; + end; + // Procedural types for events TExtSliderMulti TExtSliderMultiOnBeforechange = procedure(Slider : TExtSliderMulti; NewValue : Integer; OldValue : Integer) of object; TExtSliderMultiOnChange = procedure(Slider : TExtSliderMulti; NewValue : Integer; Thumb : TExtSliderThumb) of object; @@ -9913,34 +10000,23 @@ TExtDdDDProxy = class(TExtDdDD) property ResizeFrame : Boolean read FResizeFrame write SetFResizeFrame; end; - // Procedural types for events TExtSelectionDataViewModel - TExtSelectionDataViewModelOnBeforedeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; - TExtSelectionDataViewModelOnBeforeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; - TExtSelectionDataViewModelOnDeselect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; - TExtSelectionDataViewModelOnSelect = procedure(This : TExtSelectionDataViewModel; RecordJS : TExtDataModel) of object; - - TExtSelectionDataViewModel = class(TExtSelectionModel) + TExtDdDropTarget = class(TExtDdDDTarget) private - FEnableKeyNav : Boolean; - FOnBeforedeselect : TExtSelectionDataViewModelOnBeforedeselect; - FOnBeforeselect : TExtSelectionDataViewModelOnBeforeselect; - FOnDeselect : TExtSelectionDataViewModelOnDeselect; - FOnSelect : TExtSelectionDataViewModelOnSelect; - procedure SetFEnableKeyNav(Value : Boolean); - procedure SetFOnBeforedeselect(Value : TExtSelectionDataViewModelOnBeforedeselect); - procedure SetFOnBeforeselect(Value : TExtSelectionDataViewModelOnBeforeselect); - procedure SetFOnDeselect(Value : TExtSelectionDataViewModelOnDeselect); - procedure SetFOnSelect(Value : TExtSelectionDataViewModelOnSelect); - protected - procedure HandleEvent(const AEvtName: string); override; + FDdGroup : String; + FDropAllowed : String; + FDropNotAllowed : String; + FOverClass : String; + procedure SetFDdGroup(Value : String); + procedure SetFDropAllowed(Value : String); + procedure SetFDropNotAllowed(Value : String); + procedure SetFOverClass(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property EnableKeyNav : Boolean read FEnableKeyNav write SetFEnableKeyNav; - property OnBeforedeselect : TExtSelectionDataViewModelOnBeforedeselect read FOnBeforedeselect write SetFOnBeforedeselect; - property OnBeforeselect : TExtSelectionDataViewModelOnBeforeselect read FOnBeforeselect write SetFOnBeforeselect; - property OnDeselect : TExtSelectionDataViewModelOnDeselect read FOnDeselect write SetFOnDeselect; - property OnSelect : TExtSelectionDataViewModelOnSelect read FOnSelect write SetFOnSelect; + property DdGroup : String read FDdGroup write SetFDdGroup; + property DropAllowed : String read FDropAllowed write SetFDropAllowed; + property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; + property OverClass : String read FOverClass write SetFOverClass; end; // Procedural types for events TExtDirectRemotingProvider @@ -9957,7 +10033,7 @@ TExtDirectRemotingProvider = class(TExtDirectJsonProvider) FEnableUrlEncode : String; FMaxRetries : Integer; FNamespace : String; - FNamespaceTExtObject : TExtObject; + FNamespaceObject : TExtObject; FTimeout : Integer; FUrl : String; FOnBeforecall : TExtDirectRemotingProviderOnBeforecall; @@ -9970,7 +10046,7 @@ TExtDirectRemotingProvider = class(TExtDirectJsonProvider) procedure SetFEnableUrlEncode(Value : String); procedure SetFMaxRetries(Value : Integer); procedure SetFNamespace(Value : String); - procedure SetFNamespaceTExtObject(Value : TExtObject); + procedure SetFNamespaceObject(Value : TExtObject); procedure SetFTimeout(Value : Integer); procedure SetFUrl(Value : String); procedure SetFOnBeforecall(Value : TExtDirectRemotingProviderOnBeforecall); @@ -9994,7 +10070,7 @@ TExtDirectRemotingProvider = class(TExtDirectJsonProvider) property EnableUrlEncode : String read FEnableUrlEncode write SetFEnableUrlEncode; property MaxRetries : Integer read FMaxRetries write SetFMaxRetries; property Namespace : String read FNamespace write SetFNamespace; - property NamespaceTExtObject : TExtObject read FNamespaceTExtObject write SetFNamespaceTExtObject; + property NamespaceObject : TExtObject read FNamespaceObject write SetFNamespaceObject; property Timeout : Integer read FTimeout write SetFTimeout; property Url : String read FUrl write SetFUrl; property OnBeforecall : TExtDirectRemotingProviderOnBeforecall read FOnBeforecall write SetFOnBeforecall; @@ -10011,13 +10087,13 @@ TExtDirectPollingProvider = class(TExtDirectJsonProvider) FBaseParams : TExtObject; FInterval : Integer; // 3 FUrl : String; - FUrlTExtFunction : TExtFunction; + FUrlFunction : TExtFunction; FOnBeforepoll : TExtDirectPollingProviderOnBeforepoll; FOnPoll : TExtDirectPollingProviderOnPoll; procedure SetFBaseParams(Value : TExtObject); procedure SetFInterval(Value : Integer); procedure SetFUrl(Value : String); - procedure SetFUrlTExtFunction(Value : TExtFunction); + procedure SetFUrlFunction(Value : TExtFunction); procedure SetFOnBeforepoll(Value : TExtDirectPollingProviderOnBeforepoll); procedure SetFOnPoll(Value : TExtDirectPollingProviderOnPoll); protected @@ -10034,7 +10110,7 @@ TExtDirectPollingProvider = class(TExtDirectJsonProvider) property BaseParams : TExtObject read FBaseParams write SetFBaseParams; property Interval : Integer read FInterval write SetFInterval; property Url : String read FUrl write SetFUrl; - property UrlTExtFunction : TExtFunction read FUrlTExtFunction write SetFUrlTExtFunction; + property UrlFunction : TExtFunction read FUrlFunction write SetFUrlFunction; property OnBeforepoll : TExtDirectPollingProviderOnBeforepoll read FOnBeforepoll write SetFOnBeforepoll; property OnPoll : TExtDirectPollingProviderOnPoll read FOnPoll write SetFOnPoll; end; @@ -10062,12 +10138,6 @@ TExtLayoutComponentDock = class(TExtLayoutComponent) function InvalidateAxes : TExtFunction; end; - TExtDirectExceptionEvent = class(TExtDirectRemotingEvent) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - // Procedural types for events TExtSelectionCellModel TExtSelectionCellModelOnDeselect = procedure(This : TExtSelectionCellModel; RecordJS : TExtDataModel; Row : Integer; Column : Integer) of object; TExtSelectionCellModelOnSelect = procedure(This : TExtSelectionCellModel; RecordJS : TExtDataModel; Row : Integer; Column : Integer) of object; @@ -10098,6 +10168,12 @@ TExtSelectionCellModel = class(TExtSelectionModel) property OnSelect : TExtSelectionCellModelOnSelect read FOnSelect write SetFOnSelect; end; + TExtDirectExceptionEvent = class(TExtDirectRemotingEvent) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtGridFeatureRowWrap = class(TExtGridFeature) public function JSClassName : string; override; @@ -10266,6 +10342,16 @@ TExtChartAxisCategory = class(TExtChartAxis) property CategoryNames : String read FCategoryNames write SetFCategoryNames; end; + TExtGridFeatureAbstractSummary = class(TExtGridFeature) + private + FRemoteRoot : String; + procedure SetFRemoteRoot(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property RemoteRoot : String read FRemoteRoot write SetFRemoteRoot; + end; + TExtGridFeatureGrouping = class(TExtGridFeature) private FCollapsible : Boolean; @@ -10274,8 +10360,8 @@ TExtGridFeatureGrouping = class(TExtGridFeature) FEnableNoGroups : Boolean; FGroupByText : String; FGroupHeaderTpl : String; - FGroupHeaderTplTExtObjectList : TExtObjectList; - FGroupHeaderTplTExtTemplate : TExtTemplate; + FGroupHeaderTplList : TExtObjectList; + FGroupHeaderTplTemplate : TExtTemplate; FHideGroupedHeader : Boolean; FRemoteRoot : String; FShowGroupsText : String; @@ -10286,8 +10372,8 @@ TExtGridFeatureGrouping = class(TExtGridFeature) procedure SetFEnableNoGroups(Value : Boolean); procedure SetFGroupByText(Value : String); procedure SetFGroupHeaderTpl(Value : String); - procedure SetFGroupHeaderTplTExtObjectList(Value : TExtObjectList); - procedure SetFGroupHeaderTplTExtTemplate(Value : TExtTemplate); + procedure SetFGroupHeaderTplList(Value : TExtObjectList); + procedure SetFGroupHeaderTplTemplate(Value : TExtTemplate); procedure SetFHideGroupedHeader(Value : Boolean); procedure SetFRemoteRoot(Value : String); procedure SetFShowGroupsText(Value : String); @@ -10311,109 +10397,14 @@ TExtGridFeatureGrouping = class(TExtGridFeature) property EnableNoGroups : Boolean read FEnableNoGroups write SetFEnableNoGroups; property GroupByText : String read FGroupByText write SetFGroupByText; property GroupHeaderTpl : String read FGroupHeaderTpl write SetFGroupHeaderTpl; - property GroupHeaderTplTExtObjectList : TExtObjectList read FGroupHeaderTplTExtObjectList write SetFGroupHeaderTplTExtObjectList; - property GroupHeaderTplTExtTemplate : TExtTemplate read FGroupHeaderTplTExtTemplate write SetFGroupHeaderTplTExtTemplate; + property GroupHeaderTplList : TExtObjectList read FGroupHeaderTplList write SetFGroupHeaderTplList; + property GroupHeaderTplTemplate : TExtTemplate read FGroupHeaderTplTemplate write SetFGroupHeaderTplTemplate; property HideGroupedHeader : Boolean read FHideGroupedHeader write SetFHideGroupedHeader; property RemoteRoot : String read FRemoteRoot write SetFRemoteRoot; property ShowGroupsText : String read FShowGroupsText write SetFShowGroupsText; property StartCollapsed : Boolean read FStartCollapsed write SetFStartCollapsed; end; - // Procedural types for events TExtChart - TExtChartOnBeforerefresh = procedure(This : TExtChart) of object; - TExtChartOnRefresh = procedure(This : TExtChart) of object; - - TExtChart = class(TExtDrawComponent) - private - FAnimate : Boolean; - FAnimateTExtObject : TExtObject; - FAxes : TExtObjectList; - FBackground : TExtObject; - FBackgroundBoolean : Boolean; - FGradients : TExtObjectList; - FHasListeners : TExtObject; - FInsetPadding : Integer; // 10 - FIsObservable : Boolean; - FLegend : Boolean; - FLegendTExtObject : TExtObject; - FListeners : TExtObject; - FMask : Boolean; - FMaskString : String; - FSeries : TExtObjectList; - FStore : TExtDataStore; - FTheme : String; - FOnBeforerefresh : TExtChartOnBeforerefresh; - FOnRefresh : TExtChartOnRefresh; - procedure SetFAnimate(Value : Boolean); - procedure SetFAnimateTExtObject(Value : TExtObject); - procedure SetFAxes(Value : TExtObjectList); - procedure SetFBackground(Value : TExtObject); - procedure SetFBackgroundBoolean(Value : Boolean); - procedure SetFGradients(Value : TExtObjectList); - procedure SetFHasListeners(Value : TExtObject); - procedure SetFInsetPadding(Value : Integer); - procedure SetFIsObservable(Value : Boolean); - procedure SetFLegend(Value : Boolean); - procedure SetFLegendTExtObject(Value : TExtObject); - procedure SetFListeners(Value : TExtObject); - procedure SetFMask(Value : Boolean); - procedure SetFMaskString(Value : String); - procedure SetFSeries(Value : TExtObjectList); - procedure SetFStore(Value : TExtDataStore); - procedure SetFTheme(Value : String); - procedure SetFOnBeforerefresh(Value : TExtChartOnBeforerefresh); - procedure SetFOnRefresh(Value : TExtChartOnRefresh); - protected - procedure InitDefaults; override; - procedure HandleEvent(const AEvtName: string); override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function AddEvents(EventNames : String) : TExtFunction; overload; - function AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; overload; - function AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; overload; - function BindStore(Store : String = '') : TExtFunction; overload; - function ClearListeners : TExtFunction; - function ClearManagedListeners : TExtFunction; - constructor Create; - function EnableBubble(EventNames : String) : TExtFunction; overload; - function FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; - function FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; - function GetStore : TExtFunction; - function HasListener(EventName : String) : TExtFunction; - function Redraw(Resize : Boolean = false) : TExtFunction; - function RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; - function RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; - function RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; overload; - function RestoreZoom : TExtFunction; - function ResumeEvent(EventName : String) : TExtFunction; - function ResumeEvents : TExtFunction; - function Save(Config : TExtObject = nil) : TExtFunction; - function SetZoom : TExtFunction; - function SuspendEvent(EventName : String) : TExtFunction; - function SuspendEvents(QueueSuspended : Boolean) : TExtFunction; - destructor Destroy; override; - property Animate : Boolean read FAnimate write SetFAnimate; - property AnimateTExtObject : TExtObject read FAnimateTExtObject write SetFAnimateTExtObject; - property Axes : TExtObjectList read FAxes write SetFAxes; - property Background : TExtObject read FBackground write SetFBackground; - property BackgroundBoolean : Boolean read FBackgroundBoolean write SetFBackgroundBoolean; - property Gradients : TExtObjectList read FGradients write SetFGradients; - property HasListeners : TExtObject read FHasListeners write SetFHasListeners; - property InsetPadding : Integer read FInsetPadding write SetFInsetPadding; - property IsObservable : Boolean read FIsObservable write SetFIsObservable; - property Legend : Boolean read FLegend write SetFLegend; - property LegendTExtObject : TExtObject read FLegendTExtObject write SetFLegendTExtObject; - property Listeners : TExtObject read FListeners write SetFListeners; - property Mask : Boolean read FMask write SetFMask; - property MaskString : String read FMaskString write SetFMaskString; - property Series : TExtObjectList read FSeries write SetFSeries; - property Store : TExtDataStore read FStore write SetFStore; - property Theme : String read FTheme write SetFTheme; - property OnBeforerefresh : TExtChartOnBeforerefresh read FOnBeforerefresh write SetFOnBeforerefresh; - property OnRefresh : TExtChartOnRefresh read FOnRefresh write SetFOnRefresh; - end; - TExtGridFeatureRowBody = class(TExtGridFeature) public function JSClassName : string; override; @@ -10508,14 +10499,14 @@ TExtDataProxyDirect = class(TExtDataProxyServer) FDirectFnString : String; FExtraParams : TExtObject; FParamOrder : String; - FParamOrderTExtObjectList : TExtObjectList; + FParamOrderList : TExtObjectList; FParamsAsHash : Boolean; procedure SetFApi(Value : TExtObject); procedure SetFDirectFn(Value : TExtFunction); procedure SetFDirectFnString(Value : String); procedure SetFExtraParams(Value : TExtObject); procedure SetFParamOrder(Value : String); - procedure SetFParamOrderTExtObjectList(Value : TExtObjectList); + procedure SetFParamOrderList(Value : TExtObjectList); procedure SetFParamsAsHash(Value : Boolean); protected procedure InitDefaults; override; @@ -10529,7 +10520,7 @@ TExtDataProxyDirect = class(TExtDataProxyServer) property DirectFnString : String read FDirectFnString write SetFDirectFnString; property ExtraParams : TExtObject read FExtraParams write SetFExtraParams; property ParamOrder : String read FParamOrder write SetFParamOrder; - property ParamOrderTExtObjectList : TExtObjectList read FParamOrderTExtObjectList write SetFParamOrderTExtObjectList; + property ParamOrderList : TExtObjectList read FParamOrderList write SetFParamOrderList; property ParamsAsHash : Boolean read FParamsAsHash write SetFParamsAsHash; end; @@ -10581,6 +10572,19 @@ TExtGridPluginCellEditing = class(TExtGridPluginEditing) property OnValidateedit : TExtGridPluginCellEditingOnValidateedit read FOnValidateedit write SetFOnValidateedit; end; + TExtChartAxisRadial = class(TExtChartAxisNumeric) + private + FMaximum : Integer; + FSteps : Integer; + procedure SetFMaximum(Value : Integer); + procedure SetFSteps(Value : Integer); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property Maximum : Integer read FMaximum write SetFMaximum; + property Steps : Integer read FSteps write SetFSteps; + end; + TExtSelectionCheckboxModel = class(TExtSelectionRowModel) private FCheckOnly : Boolean; @@ -10609,12 +10613,6 @@ TExtSelectionCheckboxModel = class(TExtSelectionRowModel) property ShowHeaderCheckbox : Boolean read FShowHeaderCheckbox write SetFShowHeaderCheckbox; end; - TExtSelectionTreeModel = class(TExtSelectionRowModel) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtChartLegendItem = class(TExtDrawCompositeSprite) public function JSClassName : string; override; @@ -10652,17 +10650,10 @@ TExtChartAxisTime = class(TExtChartAxisNumeric) property ToDate : TDateTime read FToDate write SetFToDate; end; - TExtChartAxisRadial = class(TExtChartAxisNumeric) - private - FMaximum : Integer; - FSteps : Integer; - procedure SetFMaximum(Value : Integer); - procedure SetFSteps(Value : Integer); + TExtSelectionTreeModel = class(TExtSelectionRowModel) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property Maximum : Integer read FMaximum write SetFMaximum; - property Steps : Integer read FSteps write SetFSteps; end; // Procedural types for events TExtButtonCycle @@ -10713,14 +10704,14 @@ TExtToolbar = class(TExtContainer) FDefaultButtonUI : String; FEnableOverflow : Boolean; FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; + FLayoutObject : TExtObject; FMenuTriggerCls : String; FVertical : Boolean; FOnOverflowchange : TExtToolbarOnOverflowchange; procedure SetFDefaultButtonUI(Value : String); procedure SetFEnableOverflow(Value : Boolean); procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); + procedure SetFLayoutObject(Value : TExtObject); procedure SetFMenuTriggerCls(Value : String); procedure SetFVertical(Value : Boolean); procedure SetFOnOverflowchange(Value : TExtToolbarOnOverflowchange); @@ -10735,7 +10726,7 @@ TExtToolbar = class(TExtContainer) property DefaultButtonUI : String read FDefaultButtonUI write SetFDefaultButtonUI; property EnableOverflow : Boolean read FEnableOverflow write SetFEnableOverflow; property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; property MenuTriggerCls : String read FMenuTriggerCls write SetFMenuTriggerCls; property Vertical : Boolean read FVertical write SetFVertical; property OnOverflowchange : TExtToolbarOnOverflowchange read FOnOverflowchange write SetFOnOverflowchange; @@ -10745,14 +10736,14 @@ TExtChartSeriesColumn = class(TExtChartSeriesBar) private FAxis : String; FXPadding : Integer; - FXPaddingTExtObject : TExtObject; + FXPaddingObject : TExtObject; FYPadding : Integer; - FYPaddingTExtObject : TExtObject; + FYPaddingObject : TExtObject; procedure SetFAxis(Value : String); procedure SetFXPadding(Value : Integer); - procedure SetFXPaddingTExtObject(Value : TExtObject); + procedure SetFXPaddingObject(Value : TExtObject); procedure SetFYPadding(Value : Integer); - procedure SetFYPaddingTExtObject(Value : TExtObject); + procedure SetFYPaddingObject(Value : TExtObject); protected procedure InitDefaults; override; public @@ -10762,9 +10753,9 @@ TExtChartSeriesColumn = class(TExtChartSeriesBar) destructor Destroy; override; property Axis : String read FAxis write SetFAxis; property XPadding : Integer read FXPadding write SetFXPadding; - property XPaddingTExtObject : TExtObject read FXPaddingTExtObject write SetFXPaddingTExtObject; + property XPaddingObject : TExtObject read FXPaddingObject write SetFXPaddingObject; property YPadding : Integer read FYPadding write SetFYPadding; - property YPaddingTExtObject : TExtObject read FYPaddingTExtObject write SetFYPaddingTExtObject; + property YPaddingObject : TExtObject read FYPaddingObject write SetFYPaddingObject; end; TExtSliderSingle = class(TExtSliderMulti) @@ -10890,7 +10881,7 @@ TExtFormFieldSet = class(TExtContainer) FCollapsible : Boolean; FFieldDefaults : TExtObject; FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; + FLayoutObject : TExtObject; FTitle : String; FToggleCmp : TExtPanelTool; FToggleOnTitleClick : Boolean; @@ -10904,7 +10895,7 @@ TExtFormFieldSet = class(TExtContainer) procedure SetFCollapsible(Value : Boolean); procedure SetFFieldDefaults(Value : TExtObject); procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); + procedure SetFLayoutObject(Value : TExtObject); procedure SetFTitle(Value : String); procedure SetFToggleCmp(Value : TExtPanelTool); procedure SetFToggleOnTitleClick(Value : Boolean); @@ -10930,7 +10921,7 @@ TExtFormFieldSet = class(TExtContainer) property Collapsible : Boolean read FCollapsible write SetFCollapsible; property FieldDefaults : TExtObject read FFieldDefaults write SetFFieldDefaults; property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; property Title : String read FTitle write SetFTitle; property ToggleCmp : TExtPanelTool read FToggleCmp write SetFToggleCmp; property ToggleOnTitleClick : Boolean read FToggleOnTitleClick write SetFToggleOnTitleClick; @@ -10997,7 +10988,7 @@ TExtLayoutComponentBody = class(TExtLayoutComponentAuto) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtDataReaderArray = class(TExtDataReaderJson) + TExtFxTargetCompositeElementCSS = class(TExtFxTargetCompositeElement) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} @@ -11053,6 +11044,12 @@ TExtViewTableLayout = class(TExtLayoutComponentAuto) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + TExtDataReaderArray = class(TExtDataReaderJson) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtDataProxySessionStorage = class(TExtDataProxyWebStorage) public function JSClassName : string; override; @@ -11079,22 +11076,16 @@ TExtDataProxyRest = class(TExtDataProxyAjax) property Format : String read FFormat write SetFFormat; end; - TExtFxTargetCompositeElementCSS = class(TExtFxTargetCompositeElement) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtViewBoundList = class(TExtView) private FDisplayField : String; FPageSize : Integer; FTpl : String; - FTplTExtXTemplate : TExtXTemplate; + FTplTemplate : TExtXTemplate; procedure SetFDisplayField(Value : String); procedure SetFPageSize(Value : Integer); procedure SetFTpl(Value : String); - procedure SetFTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFTplTemplate(Value : TExtXTemplate); protected procedure InitDefaults; override; public @@ -11106,7 +11097,7 @@ TExtViewBoundList = class(TExtView) property DisplayField : String read FDisplayField write SetFDisplayField; property PageSize : Integer read FPageSize write SetFPageSize; property Tpl : String read FTpl write SetFTpl; - property TplTExtXTemplate : TExtXTemplate read FTplTExtXTemplate write SetFTplTExtXTemplate; + property TplTemplate : TExtXTemplate read FTplTemplate write SetFTplTemplate; end; TExtGridFeatureGroupingSummary = class(TExtGridFeatureGrouping) @@ -11222,30 +11213,10 @@ TExtDataDirectStore = class(TExtDataStore) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtDdDragSource = class(TExtDdDDProxy) - private - FAnimRepair : Boolean; - FDdGroup : String; - FDropAllowed : String; - FDropNotAllowed : String; - FRepairHighlightColor : String; - procedure SetFAnimRepair(Value : Boolean); - procedure SetFDdGroup(Value : String); - procedure SetFDropAllowed(Value : String); - procedure SetFDropNotAllowed(Value : String); - procedure SetFRepairHighlightColor(Value : String); + TExtDataBufferStore = class(TExtDataStore) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create(El : String; Config : TExtObject = nil); overload; - function GetDragData : TExtFunction; - function GetProxy : TExtFunction; - function HideProxy : TExtFunction; - property AnimRepair : Boolean read FAnimRepair write SetFAnimRepair; - property DdGroup : String read FDdGroup write SetFDdGroup; - property DropAllowed : String read FDropAllowed write SetFDropAllowed; - property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; - property RepairHighlightColor : String read FRepairHighlightColor write SetFRepairHighlightColor; end; TExtLayoutContainerCard = class(TExtLayoutContainerFit) @@ -11310,34 +11281,58 @@ TExtContainerViewport = class(TExtContainer) property IsViewport : Boolean read FIsViewport write SetFIsViewport; end; + TExtDdDragSource = class(TExtDdDDProxy) + private + FAnimRepair : Boolean; + FDdGroup : String; + FDropAllowed : String; + FDropNotAllowed : String; + FRepairHighlightColor : String; + procedure SetFAnimRepair(Value : Boolean); + procedure SetFDdGroup(Value : String); + procedure SetFDropAllowed(Value : String); + procedure SetFDropNotAllowed(Value : String); + procedure SetFRepairHighlightColor(Value : String); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create(El : String; Config : TExtObject = nil); overload; + function GetDragData : TExtFunction; + function GetProxy : TExtFunction; + function HideProxy : TExtFunction; + property AnimRepair : Boolean read FAnimRepair write SetFAnimRepair; + property DdGroup : String read FDdGroup write SetFDdGroup; + property DropAllowed : String read FDropAllowed write SetFDropAllowed; + property DropNotAllowed : String read FDropNotAllowed write SetFDropNotAllowed; + property RepairHighlightColor : String read FRepairHighlightColor write SetFRepairHighlightColor; + end; + TExtPanelAbstractPanel = class(TExtContainer) private FBaseCls : String; FBodyBorder : Boolean; FBodyCls : String; - FBodyClsTExtObjectList : TExtObjectList; + FBodyClsList : TExtObjectList; FBodyPadding : Integer; FBodyPaddingString : String; FBodyStyle : String; - FBodyStyleTExtFunction : TExtFunction; - FBodyStyleTExtObject : TExtObject; + FBodyStyleFunction : TExtFunction; + FBodyStyleObject : TExtObject; FDefaultDockWeights : TExtObject; - FDockedItems : TExtObject; - FDockedItemsTExtObjectList : TExtObjectList; + FDockedItems : TExtObjectList; FShrinkWrapDock : Boolean; FShrinkWrapDockInteger : Integer; procedure SetFBaseCls(Value : String); procedure SetFBodyBorder(Value : Boolean); procedure SetFBodyCls(Value : String); - procedure SetFBodyClsTExtObjectList(Value : TExtObjectList); + procedure SetFBodyClsList(Value : TExtObjectList); procedure SetFBodyPadding(Value : Integer); procedure SetFBodyPaddingString(Value : String); procedure SetFBodyStyle(Value : String); - procedure SetFBodyStyleTExtFunction(Value : TExtFunction); - procedure SetFBodyStyleTExtObject(Value : TExtObject); + procedure SetFBodyStyleFunction(Value : TExtFunction); + procedure SetFBodyStyleObject(Value : TExtObject); procedure SetFDefaultDockWeights(Value : TExtObject); - procedure SetFDockedItems(Value : TExtObject); - procedure SetFDockedItemsTExtObjectList(Value : TExtObjectList); + procedure SetFDockedItems(Value : TExtObjectList); procedure SetFShrinkWrapDock(Value : Boolean); procedure SetFShrinkWrapDockInteger(Value : Integer); protected @@ -11359,15 +11354,14 @@ TExtPanelAbstractPanel = class(TExtContainer) property BaseCls : String read FBaseCls write SetFBaseCls; property BodyBorder : Boolean read FBodyBorder write SetFBodyBorder; property BodyCls : String read FBodyCls write SetFBodyCls; - property BodyClsTExtObjectList : TExtObjectList read FBodyClsTExtObjectList write SetFBodyClsTExtObjectList; + property BodyClsList : TExtObjectList read FBodyClsList write SetFBodyClsList; property BodyPadding : Integer read FBodyPadding write SetFBodyPadding; property BodyPaddingString : String read FBodyPaddingString write SetFBodyPaddingString; property BodyStyle : String read FBodyStyle write SetFBodyStyle; - property BodyStyleTExtFunction : TExtFunction read FBodyStyleTExtFunction write SetFBodyStyleTExtFunction; - property BodyStyleTExtObject : TExtObject read FBodyStyleTExtObject write SetFBodyStyleTExtObject; + property BodyStyleFunction : TExtFunction read FBodyStyleFunction write SetFBodyStyleFunction; + property BodyStyleObject : TExtObject read FBodyStyleObject write SetFBodyStyleObject; property DefaultDockWeights : TExtObject read FDefaultDockWeights write SetFDefaultDockWeights; - property DockedItems : TExtObject read FDockedItems write SetFDockedItems; - property DockedItemsTExtObjectList : TExtObjectList read FDockedItemsTExtObjectList write SetFDockedItemsTExtObjectList; + property DockedItems : TExtObjectList read FDockedItems write SetFDockedItems; property ShrinkWrapDock : Boolean read FShrinkWrapDock write SetFShrinkWrapDock; property ShrinkWrapDockInteger : Integer read FShrinkWrapDockInteger write SetFShrinkWrapDockInteger; end; @@ -11420,12 +11414,6 @@ TExtPanelHeader = class(TExtContainer) property OnDblclick : TExtPanelHeaderOnDblclick read FOnDblclick write SetFOnDblclick; end; - TExtDataBufferStore = class(TExtDataStore) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtLayoutComponentProgressBar = class(TExtLayoutComponentAuto) public function JSClassName : string; override; @@ -11445,7 +11433,7 @@ TExtEditor = class(TExtContainer) FAlignment : String; FAllowBlur : Boolean; FAutoSize : Boolean; - FAutoSizeTExtObject : TExtObject; + FAutoSizeObject : TExtObject; FCancelOnEsc : Boolean; FCompleteOnEnter : Boolean; FConstrain : Boolean; @@ -11454,7 +11442,7 @@ TExtEditor = class(TExtContainer) FIgnoreNoChange : Boolean; FOffsets : TArrayOfInteger; FParentEl : String; - FParentElTExtElement : TExtElement; + FParentElElement : TExtElement; FParentElTHTMLElement : THTMLElement; FRevertInvalid : Boolean; FShadow : Boolean; @@ -11471,7 +11459,7 @@ TExtEditor = class(TExtContainer) procedure SetFAlignment(Value : String); procedure SetFAllowBlur(Value : Boolean); procedure SetFAutoSize(Value : Boolean); - procedure SetFAutoSizeTExtObject(Value : TExtObject); + procedure SetFAutoSizeObject(Value : TExtObject); procedure SetFCancelOnEsc(Value : Boolean); procedure SetFCompleteOnEnter(Value : Boolean); procedure SetFConstrain(Value : Boolean); @@ -11480,7 +11468,7 @@ TExtEditor = class(TExtContainer) procedure SetFIgnoreNoChange(Value : Boolean); procedure SetFOffsets(Value : TArrayOfInteger); procedure SetFParentEl(Value : String); - procedure SetFParentElTExtElement(Value : TExtElement); + procedure SetFParentElElement(Value : TExtElement); procedure SetFParentElTHTMLElement(Value : THTMLElement); procedure SetFRevertInvalid(Value : Boolean); procedure SetFShadow(Value : Boolean); @@ -11511,7 +11499,7 @@ TExtEditor = class(TExtContainer) property Alignment : String read FAlignment write SetFAlignment; property AllowBlur : Boolean read FAllowBlur write SetFAllowBlur; property AutoSize : Boolean read FAutoSize write SetFAutoSize; - property AutoSizeTExtObject : TExtObject read FAutoSizeTExtObject write SetFAutoSizeTExtObject; + property AutoSizeObject : TExtObject read FAutoSizeObject write SetFAutoSizeObject; property CancelOnEsc : Boolean read FCancelOnEsc write SetFCancelOnEsc; property CompleteOnEnter : Boolean read FCompleteOnEnter write SetFCompleteOnEnter; property Constrain : Boolean read FConstrain write SetFConstrain; @@ -11520,7 +11508,7 @@ TExtEditor = class(TExtContainer) property IgnoreNoChange : Boolean read FIgnoreNoChange write SetFIgnoreNoChange; property Offsets : TArrayOfInteger read FOffsets write SetFOffsets; property ParentEl : String read FParentEl write SetFParentEl; - property ParentElTExtElement : TExtElement read FParentElTExtElement write SetFParentElTExtElement; + property ParentElElement : TExtElement read FParentElElement write SetFParentElElement; property ParentElTHTMLElement : THTMLElement read FParentElTHTMLElement write SetFParentElTHTMLElement; property RevertInvalid : Boolean read FRevertInvalid write SetFRevertInvalid; property Shadow : Boolean read FShadow write SetFShadow; @@ -11545,34 +11533,34 @@ TExtFormFieldContainer = class(TExtContainer) private FActiveError : String; FActiveErrorsTpl : String; - FActiveErrorsTplTExtObjectList : TExtObjectList; - FActiveErrorsTplTExtXTemplate : TExtXTemplate; + FActiveErrorsTplList : TExtObjectList; + FActiveErrorsTplTemplate : TExtXTemplate; FAfterBodyEl : String; - FAfterBodyElTExtObjectList : TExtObjectList; - FAfterBodyElTExtXTemplate : TExtXTemplate; + FAfterBodyElList : TExtObjectList; + FAfterBodyElTemplate : TExtXTemplate; FAfterLabelTextTpl : String; - FAfterLabelTextTplTExtObjectList : TExtObjectList; - FAfterLabelTextTplTExtXTemplate : TExtXTemplate; + FAfterLabelTextTplList : TExtObjectList; + FAfterLabelTextTplTemplate : TExtXTemplate; FAfterLabelTpl : String; - FAfterLabelTplTExtObjectList : TExtObjectList; - FAfterLabelTplTExtXTemplate : TExtXTemplate; + FAfterLabelTplList : TExtObjectList; + FAfterLabelTplTemplate : TExtXTemplate; FAfterSubTpl : String; - FAfterSubTplTExtObjectList : TExtObjectList; - FAfterSubTplTExtXTemplate : TExtXTemplate; + FAfterSubTplList : TExtObjectList; + FAfterSubTplTemplate : TExtXTemplate; FAutoFitErrors : Boolean; FBaseBodyCls : String; FBeforeBodyEl : String; - FBeforeBodyElTExtObjectList : TExtObjectList; - FBeforeBodyElTExtXTemplate : TExtXTemplate; + FBeforeBodyElList : TExtObjectList; + FBeforeBodyElTemplate : TExtXTemplate; FBeforeLabelTextTpl : String; - FBeforeLabelTextTplTExtObjectList : TExtObjectList; - FBeforeLabelTextTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTextTplList : TExtObjectList; + FBeforeLabelTextTplTemplate : TExtXTemplate; FBeforeLabelTpl : String; - FBeforeLabelTplTExtObjectList : TExtObjectList; - FBeforeLabelTplTExtXTemplate : TExtXTemplate; + FBeforeLabelTplList : TExtObjectList; + FBeforeLabelTplTemplate : TExtXTemplate; FBeforeSubTpl : String; - FBeforeSubTplTExtObjectList : TExtObjectList; - FBeforeSubTplTExtXTemplate : TExtXTemplate; + FBeforeSubTplList : TExtObjectList; + FBeforeSubTplTemplate : TExtXTemplate; FClearCls : String; FCombineErrors : Boolean; FCombineLabels : Boolean; @@ -11585,12 +11573,12 @@ TExtFormFieldContainer = class(TExtContainer) FHideLabel : Boolean; FInvalidCls : String; FLabelableRenderTpl : String; - FLabelableRenderTplTExtObjectList : TExtObjectList; - FLabelableRenderTplTExtXTemplate : TExtXTemplate; + FLabelableRenderTplList : TExtObjectList; + FLabelableRenderTplTemplate : TExtXTemplate; FLabelAlign : String; FLabelAttrTpl : String; - FLabelAttrTplTExtObjectList : TExtObjectList; - FLabelAttrTplTExtXTemplate : TExtXTemplate; + FLabelAttrTplList : TExtObjectList; + FLabelAttrTplTemplate : TExtXTemplate; FLabelCls : String; FLabelClsExtra : String; FLabelConnector : String; // ',' @@ -11605,34 +11593,34 @@ TExtFormFieldContainer = class(TExtContainer) FOnFieldvaliditychange : TExtFormFieldContainerOnFieldvaliditychange; procedure SetFActiveError(Value : String); procedure SetFActiveErrorsTpl(Value : String); - procedure SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); - procedure SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFActiveErrorsTplList(Value : TExtObjectList); + procedure SetFActiveErrorsTplTemplate(Value : TExtXTemplate); procedure SetFAfterBodyEl(Value : String); - procedure SetFAfterBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterBodyElList(Value : TExtObjectList); + procedure SetFAfterBodyElTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTextTpl(Value : String); - procedure SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTextTplList(Value : TExtObjectList); + procedure SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFAfterLabelTpl(Value : String); - procedure SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterLabelTplList(Value : TExtObjectList); + procedure SetFAfterLabelTplTemplate(Value : TExtXTemplate); procedure SetFAfterSubTpl(Value : String); - procedure SetFAfterSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterSubTplList(Value : TExtObjectList); + procedure SetFAfterSubTplTemplate(Value : TExtXTemplate); procedure SetFAutoFitErrors(Value : Boolean); procedure SetFBaseBodyCls(Value : String); procedure SetFBeforeBodyEl(Value : String); - procedure SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeBodyElList(Value : TExtObjectList); + procedure SetFBeforeBodyElTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTextTpl(Value : String); - procedure SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTextTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); procedure SetFBeforeLabelTpl(Value : String); - procedure SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeLabelTplList(Value : TExtObjectList); + procedure SetFBeforeLabelTplTemplate(Value : TExtXTemplate); procedure SetFBeforeSubTpl(Value : String); - procedure SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeSubTplList(Value : TExtObjectList); + procedure SetFBeforeSubTplTemplate(Value : TExtXTemplate); procedure SetFClearCls(Value : String); procedure SetFCombineErrors(Value : Boolean); procedure SetFCombineLabels(Value : Boolean); @@ -11645,12 +11633,12 @@ TExtFormFieldContainer = class(TExtContainer) procedure SetFHideLabel(Value : Boolean); procedure SetFInvalidCls(Value : String); procedure SetFLabelableRenderTpl(Value : String); - procedure SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelableRenderTplList(Value : TExtObjectList); + procedure SetFLabelableRenderTplTemplate(Value : TExtXTemplate); procedure SetFLabelAlign(Value : String); procedure SetFLabelAttrTpl(Value : String); - procedure SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFLabelAttrTplList(Value : TExtObjectList); + procedure SetFLabelAttrTplTemplate(Value : TExtXTemplate); procedure SetFLabelCls(Value : String); procedure SetFLabelClsExtra(Value : String); procedure SetFLabelConnector(Value : String); @@ -11685,34 +11673,34 @@ TExtFormFieldContainer = class(TExtContainer) function UnsetActiveError : TExtFunction; property ActiveError : String read FActiveError write SetFActiveError; property ActiveErrorsTpl : String read FActiveErrorsTpl write SetFActiveErrorsTpl; - property ActiveErrorsTplTExtObjectList : TExtObjectList read FActiveErrorsTplTExtObjectList write SetFActiveErrorsTplTExtObjectList; - property ActiveErrorsTplTExtXTemplate : TExtXTemplate read FActiveErrorsTplTExtXTemplate write SetFActiveErrorsTplTExtXTemplate; + property ActiveErrorsTplList : TExtObjectList read FActiveErrorsTplList write SetFActiveErrorsTplList; + property ActiveErrorsTplTemplate : TExtXTemplate read FActiveErrorsTplTemplate write SetFActiveErrorsTplTemplate; property AfterBodyEl : String read FAfterBodyEl write SetFAfterBodyEl; - property AfterBodyElTExtObjectList : TExtObjectList read FAfterBodyElTExtObjectList write SetFAfterBodyElTExtObjectList; - property AfterBodyElTExtXTemplate : TExtXTemplate read FAfterBodyElTExtXTemplate write SetFAfterBodyElTExtXTemplate; + property AfterBodyElList : TExtObjectList read FAfterBodyElList write SetFAfterBodyElList; + property AfterBodyElTemplate : TExtXTemplate read FAfterBodyElTemplate write SetFAfterBodyElTemplate; property AfterLabelTextTpl : String read FAfterLabelTextTpl write SetFAfterLabelTextTpl; - property AfterLabelTextTplTExtObjectList : TExtObjectList read FAfterLabelTextTplTExtObjectList write SetFAfterLabelTextTplTExtObjectList; - property AfterLabelTextTplTExtXTemplate : TExtXTemplate read FAfterLabelTextTplTExtXTemplate write SetFAfterLabelTextTplTExtXTemplate; + property AfterLabelTextTplList : TExtObjectList read FAfterLabelTextTplList write SetFAfterLabelTextTplList; + property AfterLabelTextTplTemplate : TExtXTemplate read FAfterLabelTextTplTemplate write SetFAfterLabelTextTplTemplate; property AfterLabelTpl : String read FAfterLabelTpl write SetFAfterLabelTpl; - property AfterLabelTplTExtObjectList : TExtObjectList read FAfterLabelTplTExtObjectList write SetFAfterLabelTplTExtObjectList; - property AfterLabelTplTExtXTemplate : TExtXTemplate read FAfterLabelTplTExtXTemplate write SetFAfterLabelTplTExtXTemplate; + property AfterLabelTplList : TExtObjectList read FAfterLabelTplList write SetFAfterLabelTplList; + property AfterLabelTplTemplate : TExtXTemplate read FAfterLabelTplTemplate write SetFAfterLabelTplTemplate; property AfterSubTpl : String read FAfterSubTpl write SetFAfterSubTpl; - property AfterSubTplTExtObjectList : TExtObjectList read FAfterSubTplTExtObjectList write SetFAfterSubTplTExtObjectList; - property AfterSubTplTExtXTemplate : TExtXTemplate read FAfterSubTplTExtXTemplate write SetFAfterSubTplTExtXTemplate; + property AfterSubTplList : TExtObjectList read FAfterSubTplList write SetFAfterSubTplList; + property AfterSubTplTemplate : TExtXTemplate read FAfterSubTplTemplate write SetFAfterSubTplTemplate; property AutoFitErrors : Boolean read FAutoFitErrors write SetFAutoFitErrors; property BaseBodyCls : String read FBaseBodyCls write SetFBaseBodyCls; property BeforeBodyEl : String read FBeforeBodyEl write SetFBeforeBodyEl; - property BeforeBodyElTExtObjectList : TExtObjectList read FBeforeBodyElTExtObjectList write SetFBeforeBodyElTExtObjectList; - property BeforeBodyElTExtXTemplate : TExtXTemplate read FBeforeBodyElTExtXTemplate write SetFBeforeBodyElTExtXTemplate; + property BeforeBodyElList : TExtObjectList read FBeforeBodyElList write SetFBeforeBodyElList; + property BeforeBodyElTemplate : TExtXTemplate read FBeforeBodyElTemplate write SetFBeforeBodyElTemplate; property BeforeLabelTextTpl : String read FBeforeLabelTextTpl write SetFBeforeLabelTextTpl; - property BeforeLabelTextTplTExtObjectList : TExtObjectList read FBeforeLabelTextTplTExtObjectList write SetFBeforeLabelTextTplTExtObjectList; - property BeforeLabelTextTplTExtXTemplate : TExtXTemplate read FBeforeLabelTextTplTExtXTemplate write SetFBeforeLabelTextTplTExtXTemplate; + property BeforeLabelTextTplList : TExtObjectList read FBeforeLabelTextTplList write SetFBeforeLabelTextTplList; + property BeforeLabelTextTplTemplate : TExtXTemplate read FBeforeLabelTextTplTemplate write SetFBeforeLabelTextTplTemplate; property BeforeLabelTpl : String read FBeforeLabelTpl write SetFBeforeLabelTpl; - property BeforeLabelTplTExtObjectList : TExtObjectList read FBeforeLabelTplTExtObjectList write SetFBeforeLabelTplTExtObjectList; - property BeforeLabelTplTExtXTemplate : TExtXTemplate read FBeforeLabelTplTExtXTemplate write SetFBeforeLabelTplTExtXTemplate; + property BeforeLabelTplList : TExtObjectList read FBeforeLabelTplList write SetFBeforeLabelTplList; + property BeforeLabelTplTemplate : TExtXTemplate read FBeforeLabelTplTemplate write SetFBeforeLabelTplTemplate; property BeforeSubTpl : String read FBeforeSubTpl write SetFBeforeSubTpl; - property BeforeSubTplTExtObjectList : TExtObjectList read FBeforeSubTplTExtObjectList write SetFBeforeSubTplTExtObjectList; - property BeforeSubTplTExtXTemplate : TExtXTemplate read FBeforeSubTplTExtXTemplate write SetFBeforeSubTplTExtXTemplate; + property BeforeSubTplList : TExtObjectList read FBeforeSubTplList write SetFBeforeSubTplList; + property BeforeSubTplTemplate : TExtXTemplate read FBeforeSubTplTemplate write SetFBeforeSubTplTemplate; property ClearCls : String read FClearCls write SetFClearCls; property CombineErrors : Boolean read FCombineErrors write SetFCombineErrors; property CombineLabels : Boolean read FCombineLabels write SetFCombineLabels; @@ -11725,12 +11713,12 @@ TExtFormFieldContainer = class(TExtContainer) property HideLabel : Boolean read FHideLabel write SetFHideLabel; property InvalidCls : String read FInvalidCls write SetFInvalidCls; property LabelableRenderTpl : String read FLabelableRenderTpl write SetFLabelableRenderTpl; - property LabelableRenderTplTExtObjectList : TExtObjectList read FLabelableRenderTplTExtObjectList write SetFLabelableRenderTplTExtObjectList; - property LabelableRenderTplTExtXTemplate : TExtXTemplate read FLabelableRenderTplTExtXTemplate write SetFLabelableRenderTplTExtXTemplate; + property LabelableRenderTplList : TExtObjectList read FLabelableRenderTplList write SetFLabelableRenderTplList; + property LabelableRenderTplTemplate : TExtXTemplate read FLabelableRenderTplTemplate write SetFLabelableRenderTplTemplate; property LabelAlign : String read FLabelAlign write SetFLabelAlign; property LabelAttrTpl : String read FLabelAttrTpl write SetFLabelAttrTpl; - property LabelAttrTplTExtObjectList : TExtObjectList read FLabelAttrTplTExtObjectList write SetFLabelAttrTplTExtObjectList; - property LabelAttrTplTExtXTemplate : TExtXTemplate read FLabelAttrTplTExtXTemplate write SetFLabelAttrTplTExtXTemplate; + property LabelAttrTplList : TExtObjectList read FLabelAttrTplList write SetFLabelAttrTplList; + property LabelAttrTplTemplate : TExtXTemplate read FLabelAttrTplTemplate write SetFLabelAttrTplTemplate; property LabelCls : String read FLabelCls write SetFLabelCls; property LabelClsExtra : String read FLabelClsExtra write SetFLabelClsExtra; property LabelConnector : String read FLabelConnector write SetFLabelConnector; @@ -11755,11 +11743,11 @@ TExtLayoutContainerAnchor = class(TExtLayoutContainerAuto) private FAnchor : String; FAnchorSize : Integer; - FAnchorSizeTExtObject : TExtObject; + FAnchorSizeObject : TExtObject; FDefaultAnchor : String; procedure SetFAnchor(Value : String); procedure SetFAnchorSize(Value : Integer); - procedure SetFAnchorSizeTExtObject(Value : TExtObject); + procedure SetFAnchorSizeObject(Value : TExtObject); procedure SetFDefaultAnchor(Value : String); protected procedure InitDefaults; override; @@ -11770,7 +11758,7 @@ TExtLayoutContainerAnchor = class(TExtLayoutContainerAuto) destructor Destroy; override; property Anchor : String read FAnchor write SetFAnchor; property AnchorSize : Integer read FAnchorSize write SetFAnchorSize; - property AnchorSizeTExtObject : TExtObject read FAnchorSizeTExtObject write SetFAnchorSizeTExtObject; + property AnchorSizeObject : TExtObject read FAnchorSizeObject write SetFAnchorSizeObject; property DefaultAnchor : String read FDefaultAnchor write SetFDefaultAnchor; end; @@ -11796,38 +11784,74 @@ TExtDataXmlStore = class(TExtDataStore) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtFormFieldFile = class(TExtFormFieldTrigger) + // Procedural types for events TExtToolbarPaging + TExtToolbarPagingOnBeforechange = procedure(This : TExtToolbarPaging; Page : Integer) of object; + TExtToolbarPagingOnChange = procedure(This : TExtToolbarPaging; PageData : TExtObject) of object; + + TExtToolbarPaging = class(TExtToolbar) private - FButtonConfig : TExtObject; - FButtonMargin : Integer; - FButtonOnly : Boolean; - FButtonText : String; - FClearOnSubmit : Boolean; - FFieldBodyCls : String; - FReadOnly : Boolean; - procedure SetFButtonConfig(Value : TExtObject); - procedure SetFButtonMargin(Value : Integer); - procedure SetFButtonOnly(Value : Boolean); - procedure SetFButtonText(Value : String); - procedure SetFClearOnSubmit(Value : Boolean); - procedure SetFFieldBodyCls(Value : String); - procedure SetFReadOnly(Value : Boolean); + FAfterPageText : String; + FBeforePageText : String; + FDisplayInfo : Boolean; + FDisplayMsg : String; + FEmptyMsg : String; + FFirstText : String; + FInputItemWidth : Integer; + FLastText : String; + FNextText : String; + FPrependButtons : Boolean; + FPrevText : String; + FRefreshText : String; + FStore : TExtDataStore; + FOnBeforechange : TExtToolbarPagingOnBeforechange; + FOnChange : TExtToolbarPagingOnChange; + procedure SetFAfterPageText(Value : String); + procedure SetFBeforePageText(Value : String); + procedure SetFDisplayInfo(Value : Boolean); + procedure SetFDisplayMsg(Value : String); + procedure SetFEmptyMsg(Value : String); + procedure SetFFirstText(Value : String); + procedure SetFInputItemWidth(Value : Integer); + procedure SetFLastText(Value : String); + procedure SetFNextText(Value : String); + procedure SetFPrependButtons(Value : Boolean); + procedure SetFPrevText(Value : String); + procedure SetFRefreshText(Value : String); + procedure SetFStore(Value : TExtDataStore); + procedure SetFOnBeforechange(Value : TExtToolbarPagingOnBeforechange); + procedure SetFOnChange(Value : TExtToolbarPagingOnChange); protected procedure InitDefaults; override; + procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Bind(Store : TExtDataStore) : TExtFunction; + function BindStore(Store : String = '') : TExtFunction; overload; constructor Create; - function GetTriggerMarkup : TExtFunction; - function SetValueExtEmptyFnReset : TExtFunction; + function DoRefresh : TExtFunction; + function GetStore : TExtFunction; + function MoveFirst : TExtFunction; + function MoveLast : TExtFunction; + function MoveNext : TExtFunction; + function MovePrevious : TExtFunction; + function Unbind(Store : TExtDataStore) : TExtFunction; destructor Destroy; override; - property ButtonConfig : TExtObject read FButtonConfig write SetFButtonConfig; - property ButtonMargin : Integer read FButtonMargin write SetFButtonMargin; - property ButtonOnly : Boolean read FButtonOnly write SetFButtonOnly; - property ButtonText : String read FButtonText write SetFButtonText; - property ClearOnSubmit : Boolean read FClearOnSubmit write SetFClearOnSubmit; - property FieldBodyCls : String read FFieldBodyCls write SetFFieldBodyCls; - property ReadOnly : Boolean read FReadOnly write SetFReadOnly; + property AfterPageText : String read FAfterPageText write SetFAfterPageText; + property BeforePageText : String read FBeforePageText write SetFBeforePageText; + property DisplayInfo : Boolean read FDisplayInfo write SetFDisplayInfo; + property DisplayMsg : String read FDisplayMsg write SetFDisplayMsg; + property EmptyMsg : String read FEmptyMsg write SetFEmptyMsg; + property FirstText : String read FFirstText write SetFFirstText; + property InputItemWidth : Integer read FInputItemWidth write SetFInputItemWidth; + property LastText : String read FLastText write SetFLastText; + property NextText : String read FNextText write SetFNextText; + property PrependButtons : Boolean read FPrependButtons write SetFPrependButtons; + property PrevText : String read FPrevText write SetFPrevText; + property RefreshText : String read FRefreshText write SetFRefreshText; + property Store : TExtDataStore read FStore write SetFStore; + property OnBeforechange : TExtToolbarPagingOnBeforechange read FOnBeforechange write SetFOnBeforechange; + property OnChange : TExtToolbarPagingOnChange read FOnChange write SetFOnChange; end; // Procedural types for events TExtFormFieldHtmlEditor @@ -11843,17 +11867,17 @@ TExtFormFieldFile = class(TExtFormFieldTrigger) TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) private FAfterIFrameTpl : String; - FAfterIFrameTplTExtObjectList : TExtObjectList; - FAfterIFrameTplTExtXTemplate : TExtXTemplate; + FAfterIFrameTplList : TExtObjectList; + FAfterIFrameTplTemplate : TExtXTemplate; FAfterTextAreaTpl : String; - FAfterTextAreaTplTExtObjectList : TExtObjectList; - FAfterTextAreaTplTExtXTemplate : TExtXTemplate; + FAfterTextAreaTplList : TExtObjectList; + FAfterTextAreaTplTemplate : TExtXTemplate; FBeforeIFrameTpl : String; - FBeforeIFrameTplTExtObjectList : TExtObjectList; - FBeforeIFrameTplTExtXTemplate : TExtXTemplate; + FBeforeIFrameTplList : TExtObjectList; + FBeforeIFrameTplTemplate : TExtXTemplate; FBeforeTextAreaTpl : String; - FBeforeTextAreaTplTExtObjectList : TExtObjectList; - FBeforeTextAreaTplTExtXTemplate : TExtXTemplate; + FBeforeTextAreaTplList : TExtObjectList; + FBeforeTextAreaTplTemplate : TExtXTemplate; FCreateLinkText : String; FDefaultButtonUI : String; FDefaultLinkValue : String; @@ -11869,8 +11893,8 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) FEnableSourceEdit : Boolean; FFontFamilies : TExtObjectList; FIframeAttrTpl : String; - FIframeAttrTplTExtObjectList : TExtObjectList; - FIframeAttrTplTExtXTemplate : TExtXTemplate; + FIframeAttrTplList : TExtObjectList; + FIframeAttrTplTemplate : TExtXTemplate; FName : String; FOriginalValue : TExtObject; FSubmitValue : Boolean; @@ -11885,17 +11909,17 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) FOnPush : TExtFormFieldHtmlEditorOnPush; FOnSync : TExtFormFieldHtmlEditorOnSync; procedure SetFAfterIFrameTpl(Value : String); - procedure SetFAfterIFrameTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterIFrameTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterIFrameTplList(Value : TExtObjectList); + procedure SetFAfterIFrameTplTemplate(Value : TExtXTemplate); procedure SetFAfterTextAreaTpl(Value : String); - procedure SetFAfterTextAreaTplTExtObjectList(Value : TExtObjectList); - procedure SetFAfterTextAreaTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFAfterTextAreaTplList(Value : TExtObjectList); + procedure SetFAfterTextAreaTplTemplate(Value : TExtXTemplate); procedure SetFBeforeIFrameTpl(Value : String); - procedure SetFBeforeIFrameTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeIFrameTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeIFrameTplList(Value : TExtObjectList); + procedure SetFBeforeIFrameTplTemplate(Value : TExtXTemplate); procedure SetFBeforeTextAreaTpl(Value : String); - procedure SetFBeforeTextAreaTplTExtObjectList(Value : TExtObjectList); - procedure SetFBeforeTextAreaTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFBeforeTextAreaTplList(Value : TExtObjectList); + procedure SetFBeforeTextAreaTplTemplate(Value : TExtXTemplate); procedure SetFCreateLinkText(Value : String); procedure SetFDefaultButtonUI(Value : String); procedure SetFDefaultLinkValue(Value : String); @@ -11911,8 +11935,8 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) procedure SetFEnableSourceEdit(Value : Boolean); procedure SetFFontFamilies(Value : TExtObjectList); procedure SetFIframeAttrTpl(Value : String); - procedure SetFIframeAttrTplTExtObjectList(Value : TExtObjectList); - procedure SetFIframeAttrTplTExtXTemplate(Value : TExtXTemplate); + procedure SetFIframeAttrTplList(Value : TExtObjectList); + procedure SetFIframeAttrTplTemplate(Value : TExtXTemplate); procedure SetFName(Value : String); procedure SetFOriginalValue(Value : TExtObject); procedure SetFSubmitValue(Value : Boolean); @@ -11954,17 +11978,17 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) function Validate : TExtFunction; destructor Destroy; override; property AfterIFrameTpl : String read FAfterIFrameTpl write SetFAfterIFrameTpl; - property AfterIFrameTplTExtObjectList : TExtObjectList read FAfterIFrameTplTExtObjectList write SetFAfterIFrameTplTExtObjectList; - property AfterIFrameTplTExtXTemplate : TExtXTemplate read FAfterIFrameTplTExtXTemplate write SetFAfterIFrameTplTExtXTemplate; + property AfterIFrameTplList : TExtObjectList read FAfterIFrameTplList write SetFAfterIFrameTplList; + property AfterIFrameTplTemplate : TExtXTemplate read FAfterIFrameTplTemplate write SetFAfterIFrameTplTemplate; property AfterTextAreaTpl : String read FAfterTextAreaTpl write SetFAfterTextAreaTpl; - property AfterTextAreaTplTExtObjectList : TExtObjectList read FAfterTextAreaTplTExtObjectList write SetFAfterTextAreaTplTExtObjectList; - property AfterTextAreaTplTExtXTemplate : TExtXTemplate read FAfterTextAreaTplTExtXTemplate write SetFAfterTextAreaTplTExtXTemplate; + property AfterTextAreaTplList : TExtObjectList read FAfterTextAreaTplList write SetFAfterTextAreaTplList; + property AfterTextAreaTplTemplate : TExtXTemplate read FAfterTextAreaTplTemplate write SetFAfterTextAreaTplTemplate; property BeforeIFrameTpl : String read FBeforeIFrameTpl write SetFBeforeIFrameTpl; - property BeforeIFrameTplTExtObjectList : TExtObjectList read FBeforeIFrameTplTExtObjectList write SetFBeforeIFrameTplTExtObjectList; - property BeforeIFrameTplTExtXTemplate : TExtXTemplate read FBeforeIFrameTplTExtXTemplate write SetFBeforeIFrameTplTExtXTemplate; + property BeforeIFrameTplList : TExtObjectList read FBeforeIFrameTplList write SetFBeforeIFrameTplList; + property BeforeIFrameTplTemplate : TExtXTemplate read FBeforeIFrameTplTemplate write SetFBeforeIFrameTplTemplate; property BeforeTextAreaTpl : String read FBeforeTextAreaTpl write SetFBeforeTextAreaTpl; - property BeforeTextAreaTplTExtObjectList : TExtObjectList read FBeforeTextAreaTplTExtObjectList write SetFBeforeTextAreaTplTExtObjectList; - property BeforeTextAreaTplTExtXTemplate : TExtXTemplate read FBeforeTextAreaTplTExtXTemplate write SetFBeforeTextAreaTplTExtXTemplate; + property BeforeTextAreaTplList : TExtObjectList read FBeforeTextAreaTplList write SetFBeforeTextAreaTplList; + property BeforeTextAreaTplTemplate : TExtXTemplate read FBeforeTextAreaTplTemplate write SetFBeforeTextAreaTplTemplate; property CreateLinkText : String read FCreateLinkText write SetFCreateLinkText; property DefaultButtonUI : String read FDefaultButtonUI write SetFDefaultButtonUI; property DefaultLinkValue : String read FDefaultLinkValue write SetFDefaultLinkValue; @@ -11980,8 +12004,8 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) property EnableSourceEdit : Boolean read FEnableSourceEdit write SetFEnableSourceEdit; property FontFamilies : TExtObjectList read FFontFamilies write SetFFontFamilies; property IframeAttrTpl : String read FIframeAttrTpl write SetFIframeAttrTpl; - property IframeAttrTplTExtObjectList : TExtObjectList read FIframeAttrTplTExtObjectList write SetFIframeAttrTplTExtObjectList; - property IframeAttrTplTExtXTemplate : TExtXTemplate read FIframeAttrTplTExtXTemplate write SetFIframeAttrTplTExtXTemplate; + property IframeAttrTplList : TExtObjectList read FIframeAttrTplList write SetFIframeAttrTplList; + property IframeAttrTplTemplate : TExtXTemplate read FIframeAttrTplTemplate write SetFIframeAttrTplTemplate; property Name : String read FName write SetFName; property OriginalValue : TExtObject read FOriginalValue write SetFOriginalValue; property SubmitValue : Boolean read FSubmitValue write SetFSubmitValue; @@ -11997,17 +12021,51 @@ TExtFormFieldHtmlEditor = class(TExtFormFieldContainer) property OnSync : TExtFormFieldHtmlEditorOnSync read FOnSync write SetFOnSync; end; + TExtFormFieldFile = class(TExtFormFieldTrigger) + private + FButtonConfig : TExtObject; + FButtonMargin : Integer; + FButtonOnly : Boolean; + FButtonText : String; + FClearOnSubmit : Boolean; + FFieldBodyCls : String; + FReadOnly : Boolean; + procedure SetFButtonConfig(Value : TExtObject); + procedure SetFButtonMargin(Value : Integer); + procedure SetFButtonOnly(Value : Boolean); + procedure SetFButtonText(Value : String); + procedure SetFClearOnSubmit(Value : Boolean); + procedure SetFFieldBodyCls(Value : String); + procedure SetFReadOnly(Value : Boolean); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function GetTriggerMarkup : TExtFunction; + function SetValueExtEmptyFnReset : TExtFunction; + destructor Destroy; override; + property ButtonConfig : TExtObject read FButtonConfig write SetFButtonConfig; + property ButtonMargin : Integer read FButtonMargin write SetFButtonMargin; + property ButtonOnly : Boolean read FButtonOnly write SetFButtonOnly; + property ButtonText : String read FButtonText write SetFButtonText; + property ClearOnSubmit : Boolean read FClearOnSubmit write SetFClearOnSubmit; + property FieldBodyCls : String read FFieldBodyCls write SetFFieldBodyCls; + property ReadOnly : Boolean read FReadOnly write SetFReadOnly; + end; + TExtDdDragZone = class(TExtDdDragSource) private FContainerScroll : TExtObject; FContainerScrollBoolean : Boolean; FScrollEl : String; - FScrollElTExtDomElement : TExtDomElement; + FScrollElElement : TExtDomElement; FScrollElTHTMLElement : THTMLElement; procedure SetFContainerScroll(Value : TExtObject); procedure SetFContainerScrollBoolean(Value : Boolean); procedure SetFScrollEl(Value : String); - procedure SetFScrollElTExtDomElement(Value : TExtDomElement); + procedure SetFScrollElElement(Value : TExtDomElement); procedure SetFScrollElTHTMLElement(Value : THTMLElement); protected procedure InitDefaults; override; @@ -12020,7 +12078,7 @@ TExtDdDragZone = class(TExtDdDragSource) property ContainerScroll : TExtObject read FContainerScroll write SetFContainerScroll; property ContainerScrollBoolean : Boolean read FContainerScrollBoolean write SetFContainerScrollBoolean; property ScrollEl : String read FScrollEl write SetFScrollEl; - property ScrollElTExtDomElement : TExtDomElement read FScrollElTExtDomElement write SetFScrollElTExtDomElement; + property ScrollElElement : TExtDomElement read FScrollElElement write SetFScrollElElement; property ScrollElTHTMLElement : THTMLElement read FScrollElTHTMLElement write SetFScrollElTHTMLElement; end; @@ -12030,6 +12088,42 @@ TExtDrawSpriteDD = class(TExtDdDragSource) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + // Procedural types for events TExtTreeView + TExtTreeViewOnAfteritemcollapse = procedure(Node : TExtDataNodeInterface; Index : Integer; Item : THTMLElement) of object; + TExtTreeViewOnAfteritemexpand = procedure(Node : TExtDataNodeInterface; Index : Integer; Item : THTMLElement) of object; + TExtTreeViewOnNodedragover = procedure(TargetNode : TExtDataNodeInterface; Position : String; DragData : TExtObject; E : TExtEventObject) of object; + + TExtTreeView = class(TExtViewTable) + private + FAnimate : Boolean; + FDeferInitialRefresh : Boolean; + FRootVisible : Boolean; + FOnAfteritemcollapse : TExtTreeViewOnAfteritemcollapse; + FOnAfteritemexpand : TExtTreeViewOnAfteritemexpand; + FOnNodedragover : TExtTreeViewOnNodedragover; + procedure SetFAnimate(Value : Boolean); + procedure SetFDeferInitialRefresh(Value : Boolean); + procedure SetFRootVisible(Value : Boolean); + procedure SetFOnAfteritemcollapse(Value : TExtTreeViewOnAfteritemcollapse); + procedure SetFOnAfteritemexpand(Value : TExtTreeViewOnAfteritemexpand); + procedure SetFOnNodedragover(Value : TExtTreeViewOnNodedragover); + protected + procedure HandleEvent(const AEvtName: string); override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function Collapse(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; + function Expand(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; + function GetTreeStore : TExtFunction; + function Toggle(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; + property Animate : Boolean read FAnimate write SetFAnimate; + property DeferInitialRefresh : Boolean read FDeferInitialRefresh write SetFDeferInitialRefresh; + property RootVisible : Boolean read FRootVisible write SetFRootVisible; + property OnAfteritemcollapse : TExtTreeViewOnAfteritemcollapse read FOnAfteritemcollapse write SetFOnAfteritemcollapse; + property OnAfteritemexpand : TExtTreeViewOnAfteritemexpand read FOnAfteritemexpand write SetFOnAfteritemexpand; + property OnNodedragover : TExtTreeViewOnNodedragover read FOnNodedragover write SetFOnNodedragover; + end; + TExtFormFieldSpinner = class(TExtFormFieldTrigger) private FKeyNavEnabled : Boolean; // true @@ -12067,42 +12161,6 @@ TExtFormFieldSpinner = class(TExtFormFieldTrigger) property SpinUpEnabled : Boolean read FSpinUpEnabled write SetFSpinUpEnabled; end; - // Procedural types for events TExtTreeView - TExtTreeViewOnAfteritemcollapse = procedure(Node : TExtDataNodeInterface; Index : Integer; Item : THTMLElement) of object; - TExtTreeViewOnAfteritemexpand = procedure(Node : TExtDataNodeInterface; Index : Integer; Item : THTMLElement) of object; - TExtTreeViewOnNodedragover = procedure(TargetNode : TExtDataNodeInterface; Position : String; DragData : TExtObject; E : TExtEventObject) of object; - - TExtTreeView = class(TExtViewTable) - private - FAnimate : Boolean; - FDeferInitialRefresh : Boolean; - FRootVisible : Boolean; - FOnAfteritemcollapse : TExtTreeViewOnAfteritemcollapse; - FOnAfteritemexpand : TExtTreeViewOnAfteritemexpand; - FOnNodedragover : TExtTreeViewOnNodedragover; - procedure SetFAnimate(Value : Boolean); - procedure SetFDeferInitialRefresh(Value : Boolean); - procedure SetFRootVisible(Value : Boolean); - procedure SetFOnAfteritemcollapse(Value : TExtTreeViewOnAfteritemcollapse); - procedure SetFOnAfteritemexpand(Value : TExtTreeViewOnAfteritemexpand); - procedure SetFOnNodedragover(Value : TExtTreeViewOnNodedragover); - protected - procedure HandleEvent(const AEvtName: string); override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Collapse(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; - function Expand(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; - function GetTreeStore : TExtFunction; - function Toggle(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; - property Animate : Boolean read FAnimate write SetFAnimate; - property DeferInitialRefresh : Boolean read FDeferInitialRefresh write SetFDeferInitialRefresh; - property RootVisible : Boolean read FRootVisible write SetFRootVisible; - property OnAfteritemcollapse : TExtTreeViewOnAfteritemcollapse read FOnAfteritemcollapse write SetFOnAfteritemcollapse; - property OnAfteritemexpand : TExtTreeViewOnAfteritemexpand read FOnAfteritemexpand write SetFOnAfteritemexpand; - property OnNodedragover : TExtTreeViewOnNodedragover read FOnNodedragover write SetFOnNodedragover; - end; - // Procedural types for events TExtFormFieldPicker TExtFormFieldPickerOnCollapse = procedure(Field : TExtFormFieldPicker) of object; TExtFormFieldPickerOnExpand = procedure(Field : TExtFormFieldPicker) of object; @@ -12153,7 +12211,7 @@ TExtFormCheckboxGroup = class(TExtFormFieldContainer) FDisabled : Boolean; FFieldBodyCls : String; FItems : TExtObjectList; - FItemsTExtObjectList : TExtObjectList; + FItemsList : TExtObjectList; FName : String; FOriginalValue : TExtObject; FSubmitValue : Boolean; @@ -12168,7 +12226,7 @@ TExtFormCheckboxGroup = class(TExtFormFieldContainer) procedure SetFDisabled(Value : Boolean); procedure SetFFieldBodyCls(Value : String); procedure SetFItems(Value : TExtObjectList); - procedure SetFItemsTExtObjectList(Value : TExtObjectList); + procedure SetFItemsList(Value : TExtObjectList); procedure SetFName(Value : String); procedure SetFOriginalValue(Value : TExtObject); procedure SetFSubmitValue(Value : Boolean); @@ -12208,7 +12266,7 @@ TExtFormCheckboxGroup = class(TExtFormFieldContainer) property Disabled : Boolean read FDisabled write SetFDisabled; property FieldBodyCls : String read FFieldBodyCls write SetFFieldBodyCls; property Items : TExtObjectList read FItems write SetFItems; - property ItemsTExtObjectList : TExtObjectList read FItemsTExtObjectList write SetFItemsTExtObjectList; + property ItemsList : TExtObjectList read FItemsList write SetFItemsList; property Name : String read FName write SetFName; property OriginalValue : TExtObject read FOriginalValue write SetFOriginalValue; property SubmitValue : Boolean read FSubmitValue write SetFSubmitValue; @@ -12217,76 +12275,6 @@ TExtFormCheckboxGroup = class(TExtFormFieldContainer) property Vertical : Boolean read FVertical write SetFVertical; end; - // Procedural types for events TExtToolbarPaging - TExtToolbarPagingOnBeforechange = procedure(This : TExtToolbarPaging; Page : Integer) of object; - TExtToolbarPagingOnChange = procedure(This : TExtToolbarPaging; PageData : TExtObject) of object; - - TExtToolbarPaging = class(TExtToolbar) - private - FAfterPageText : String; - FBeforePageText : String; - FDisplayInfo : Boolean; - FDisplayMsg : String; - FEmptyMsg : String; - FFirstText : String; - FInputItemWidth : Integer; - FLastText : String; - FNextText : String; - FPrependButtons : Boolean; - FPrevText : String; - FRefreshText : String; - FStore : TExtDataStore; - FOnBeforechange : TExtToolbarPagingOnBeforechange; - FOnChange : TExtToolbarPagingOnChange; - procedure SetFAfterPageText(Value : String); - procedure SetFBeforePageText(Value : String); - procedure SetFDisplayInfo(Value : Boolean); - procedure SetFDisplayMsg(Value : String); - procedure SetFEmptyMsg(Value : String); - procedure SetFFirstText(Value : String); - procedure SetFInputItemWidth(Value : Integer); - procedure SetFLastText(Value : String); - procedure SetFNextText(Value : String); - procedure SetFPrependButtons(Value : Boolean); - procedure SetFPrevText(Value : String); - procedure SetFRefreshText(Value : String); - procedure SetFStore(Value : TExtDataStore); - procedure SetFOnBeforechange(Value : TExtToolbarPagingOnBeforechange); - procedure SetFOnChange(Value : TExtToolbarPagingOnChange); - protected - procedure InitDefaults; override; - procedure HandleEvent(const AEvtName: string); override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function Bind(Store : TExtDataStore) : TExtFunction; - function BindStore(Store : String = '') : TExtFunction; overload; - constructor Create; - function DoRefresh : TExtFunction; - function GetStore : TExtFunction; - function MoveFirst : TExtFunction; - function MoveLast : TExtFunction; - function MoveNext : TExtFunction; - function MovePrevious : TExtFunction; - function Unbind(Store : TExtDataStore) : TExtFunction; - destructor Destroy; override; - property AfterPageText : String read FAfterPageText write SetFAfterPageText; - property BeforePageText : String read FBeforePageText write SetFBeforePageText; - property DisplayInfo : Boolean read FDisplayInfo write SetFDisplayInfo; - property DisplayMsg : String read FDisplayMsg write SetFDisplayMsg; - property EmptyMsg : String read FEmptyMsg write SetFEmptyMsg; - property FirstText : String read FFirstText write SetFFirstText; - property InputItemWidth : Integer read FInputItemWidth write SetFInputItemWidth; - property LastText : String read FLastText write SetFLastText; - property NextText : String read FNextText write SetFNextText; - property PrependButtons : Boolean read FPrependButtons write SetFPrependButtons; - property PrevText : String read FPrevText write SetFPrevText; - property RefreshText : String read FRefreshText write SetFRefreshText; - property Store : TExtDataStore read FStore write SetFStore; - property OnBeforechange : TExtToolbarPagingOnBeforechange read FOnBeforechange write SetFOnBeforechange; - property OnChange : TExtToolbarPagingOnChange read FOnChange write SetFOnChange; - end; - TExtLayoutComponentFieldText = class(TExtLayoutComponentField) public function JSClassName : string; override; @@ -12351,11 +12339,9 @@ TExtPickerTime = class(TExtViewBoundList) TExtPanel = class(TExtPanelAbstractPanel) private FAnimCollapse : Boolean; - FBbar : TExtObject; - FBbarTExtObjectList : TExtObjectList; + FBbar : TExtObjectList; FButtonAlign : String; - FButtons : TExtObject; - FButtonsTExtObjectList : TExtObjectList; + FButtons : TExtObjectList; FClosable : Boolean; FCloseAction : String; FCollapsed : Boolean; @@ -12366,46 +12352,39 @@ TExtPanel = class(TExtPanelAbstractPanel) FCollapsible : Boolean; FConstrain : Boolean; FConstrainHeader : Boolean; - FDockedItems : TExtObject; - FDockedItemsTExtObjectList : TExtObjectList; - FFbar : TExtObject; - FFbarTExtObjectList : TExtObjectList; + FDockedItems : TExtObjectList; + FFbar : TExtObjectList; FFloatable : Boolean; FFrame : Boolean; FFrameHeader : Boolean; FGlyph : Integer; FGlyphString : String; FHeader : Boolean; + FHeaderObject : TExtObject; FHeaderOverCls : String; FHeaderPosition : String; - FHeaderTExtObject : TExtObject; FHideCollapseTool : Boolean; FIcon : String; FIconCls : String; - FLbar : TExtObject; - FLbarTExtObjectList : TExtObjectList; + FLbar : TExtObjectList; FManageHeight : Boolean; FMinButtonWidth : Integer; FOverlapHeader : Boolean; FPlaceholder : TExtComponent; FPlaceholderCollapseHideMode : Integer; - FPlaceholderTExtObject : TExtObject; - FRbar : TExtObject; - FRbarTExtObjectList : TExtObjectList; + FPlaceholderObject : TExtObject; + FRbar : TExtObjectList; FSimpleDrag : Boolean; - FTbar : TExtObject; - FTbarTExtObjectList : TExtObjectList; + FTbar : TExtObjectList; FTitle : String; FTitleAlign : String; // 's natural * behavior depending on the css direction property - `' FTitleCollapse : Boolean; FTools : TExtObjectList; - FToolsTExtObjectList : TExtObjectList; + FToolsList : TExtObjectList; procedure SetFAnimCollapse(Value : Boolean); - procedure SetFBbar(Value : TExtObject); - procedure SetFBbarTExtObjectList(Value : TExtObjectList); + procedure SetFBbar(Value : TExtObjectList); procedure SetFButtonAlign(Value : String); - procedure SetFButtons(Value : TExtObject); - procedure SetFButtonsTExtObjectList(Value : TExtObjectList); + procedure SetFButtons(Value : TExtObjectList); procedure SetFClosable(Value : Boolean); procedure SetFCloseAction(Value : String); procedure SetFCollapsed(Value : Boolean); @@ -12416,40 +12395,35 @@ TExtPanel = class(TExtPanelAbstractPanel) procedure SetFCollapsible(Value : Boolean); procedure SetFConstrain(Value : Boolean); procedure SetFConstrainHeader(Value : Boolean); - procedure SetFDockedItems(Value : TExtObject); - procedure SetFDockedItemsTExtObjectList(Value : TExtObjectList); - procedure SetFFbar(Value : TExtObject); - procedure SetFFbarTExtObjectList(Value : TExtObjectList); + procedure SetFDockedItems(Value : TExtObjectList); + procedure SetFFbar(Value : TExtObjectList); procedure SetFFloatable(Value : Boolean); procedure SetFFrame(Value : Boolean); procedure SetFFrameHeader(Value : Boolean); procedure SetFGlyph(Value : Integer); procedure SetFGlyphString(Value : String); procedure SetFHeader(Value : Boolean); + procedure SetFHeaderObject(Value : TExtObject); procedure SetFHeaderOverCls(Value : String); procedure SetFHeaderPosition(Value : String); - procedure SetFHeaderTExtObject(Value : TExtObject); procedure SetFHideCollapseTool(Value : Boolean); procedure SetFIcon(Value : String); procedure SetFIconCls(Value : String); - procedure SetFLbar(Value : TExtObject); - procedure SetFLbarTExtObjectList(Value : TExtObjectList); + procedure SetFLbar(Value : TExtObjectList); procedure SetFManageHeight(Value : Boolean); procedure SetFMinButtonWidth(Value : Integer); procedure SetFOverlapHeader(Value : Boolean); procedure SetFPlaceholder(Value : TExtComponent); procedure SetFPlaceholderCollapseHideMode(Value : Integer); - procedure SetFPlaceholderTExtObject(Value : TExtObject); - procedure SetFRbar(Value : TExtObject); - procedure SetFRbarTExtObjectList(Value : TExtObjectList); + procedure SetFPlaceholderObject(Value : TExtObject); + procedure SetFRbar(Value : TExtObjectList); procedure SetFSimpleDrag(Value : Boolean); - procedure SetFTbar(Value : TExtObject); - procedure SetFTbarTExtObjectList(Value : TExtObjectList); + procedure SetFTbar(Value : TExtObjectList); procedure SetFTitle(Value : String); procedure SetFTitleAlign(Value : String); procedure SetFTitleCollapse(Value : Boolean); procedure SetFTools(Value : TExtObjectList); - procedure SetFToolsTExtObjectList(Value : TExtObjectList); + procedure SetFToolsList(Value : TExtObjectList); protected procedure InitDefaults; override; public @@ -12465,11 +12439,9 @@ TExtPanel = class(TExtPanelAbstractPanel) function ToggleCollapse : TExtFunction; destructor Destroy; override; property AnimCollapse : Boolean read FAnimCollapse write SetFAnimCollapse; - property Bbar : TExtObject read FBbar write SetFBbar; - property BbarTExtObjectList : TExtObjectList read FBbarTExtObjectList write SetFBbarTExtObjectList; + property Bbar : TExtObjectList read FBbar write SetFBbar; property ButtonAlign : String read FButtonAlign write SetFButtonAlign; - property Buttons : TExtObject read FButtons write SetFButtons; - property ButtonsTExtObjectList : TExtObjectList read FButtonsTExtObjectList write SetFButtonsTExtObjectList; + property Buttons : TExtObjectList read FButtons write SetFButtons; property Closable : Boolean read FClosable write SetFClosable; property CloseAction : String read FCloseAction write SetFCloseAction; property Collapsed : Boolean read FCollapsed write SetFCollapsed; @@ -12480,40 +12452,35 @@ TExtPanel = class(TExtPanelAbstractPanel) property Collapsible : Boolean read FCollapsible write SetFCollapsible; property Constrain : Boolean read FConstrain write SetFConstrain; property ConstrainHeader : Boolean read FConstrainHeader write SetFConstrainHeader; - property DockedItems : TExtObject read FDockedItems write SetFDockedItems; - property DockedItemsTExtObjectList : TExtObjectList read FDockedItemsTExtObjectList write SetFDockedItemsTExtObjectList; - property Fbar : TExtObject read FFbar write SetFFbar; - property FbarTExtObjectList : TExtObjectList read FFbarTExtObjectList write SetFFbarTExtObjectList; + property DockedItems : TExtObjectList read FDockedItems write SetFDockedItems; + property Fbar : TExtObjectList read FFbar write SetFFbar; property Floatable : Boolean read FFloatable write SetFFloatable; property Frame : Boolean read FFrame write SetFFrame; property FrameHeader : Boolean read FFrameHeader write SetFFrameHeader; property Glyph : Integer read FGlyph write SetFGlyph; property GlyphString : String read FGlyphString write SetFGlyphString; property Header : Boolean read FHeader write SetFHeader; + property HeaderObject : TExtObject read FHeaderObject write SetFHeaderObject; property HeaderOverCls : String read FHeaderOverCls write SetFHeaderOverCls; property HeaderPosition : String read FHeaderPosition write SetFHeaderPosition; - property HeaderTExtObject : TExtObject read FHeaderTExtObject write SetFHeaderTExtObject; property HideCollapseTool : Boolean read FHideCollapseTool write SetFHideCollapseTool; property Icon : String read FIcon write SetFIcon; property IconCls : String read FIconCls write SetFIconCls; - property Lbar : TExtObject read FLbar write SetFLbar; - property LbarTExtObjectList : TExtObjectList read FLbarTExtObjectList write SetFLbarTExtObjectList; + property Lbar : TExtObjectList read FLbar write SetFLbar; property ManageHeight : Boolean read FManageHeight write SetFManageHeight; property MinButtonWidth : Integer read FMinButtonWidth write SetFMinButtonWidth; property OverlapHeader : Boolean read FOverlapHeader write SetFOverlapHeader; property Placeholder : TExtComponent read FPlaceholder write SetFPlaceholder; property PlaceholderCollapseHideMode : Integer read FPlaceholderCollapseHideMode write SetFPlaceholderCollapseHideMode; - property PlaceholderTExtObject : TExtObject read FPlaceholderTExtObject write SetFPlaceholderTExtObject; - property Rbar : TExtObject read FRbar write SetFRbar; - property RbarTExtObjectList : TExtObjectList read FRbarTExtObjectList write SetFRbarTExtObjectList; + property PlaceholderObject : TExtObject read FPlaceholderObject write SetFPlaceholderObject; + property Rbar : TExtObjectList read FRbar write SetFRbar; property SimpleDrag : Boolean read FSimpleDrag write SetFSimpleDrag; - property Tbar : TExtObject read FTbar write SetFTbar; - property TbarTExtObjectList : TExtObjectList read FTbarTExtObjectList write SetFTbarTExtObjectList; + property Tbar : TExtObjectList read FTbar write SetFTbar; property Title : String read FTitle write SetFTitle; property TitleAlign : String read FTitleAlign write SetFTitleAlign; property TitleCollapse : Boolean read FTitleCollapse write SetFTitleCollapse; property Tools : TExtObjectList read FTools write SetFTools; - property ToolsTExtObjectList : TExtObjectList read FToolsTExtObjectList write SetFToolsTExtObjectList; + property ToolsList : TExtObjectList read FToolsList write SetFToolsList; end; TExtLayoutContainerAbsolute = class(TExtLayoutContainerAnchor) @@ -12569,10 +12536,25 @@ TExtViewDropZone = class(TExtDdDropZone) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtGridColumnLayout = class(TExtLayoutContainerHBox) + // Procedural types for events TExtTabBar + TExtTabBarOnChange = procedure(TabBar : TExtTabBar; Tab : TExtTab; Card : TExtComponent) of object; + + TExtTabBar = class(TExtPanelHeader) + private + FPlain : Boolean; + FTitle : String; + FOnChange : TExtTabBarOnChange; + procedure SetFPlain(Value : Boolean); + procedure SetFTitle(Value : String); + procedure SetFOnChange(Value : TExtTabBarOnChange); + protected + procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + property Plain : Boolean read FPlain write SetFPlain; + property Title : String read FTitle write SetFTitle; + property OnChange : TExtTabBarOnChange read FOnChange write SetFOnChange; end; TExtGridCellEditor = class(TExtEditor) @@ -12692,25 +12674,10 @@ TExtGridHeaderDropZone = class(TExtDdDropZone) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - // Procedural types for events TExtTabBar - TExtTabBarOnChange = procedure(TabBar : TExtTabBar; Tab : TExtTab; Card : TExtComponent) of object; - - TExtTabBar = class(TExtPanelHeader) - private - FPlain : Boolean; - FTitle : String; - FOnChange : TExtTabBarOnChange; - procedure SetFPlain(Value : Boolean); - procedure SetFTitle(Value : String); - procedure SetFOnChange(Value : TExtTabBarOnChange); - protected - procedure HandleEvent(const AEvtName: string); override; + TExtGridColumnLayout = class(TExtLayoutContainerHBox) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property Plain : Boolean read FPlain write SetFPlain; - property Title : String read FTitle write SetFTitle; - property OnChange : TExtTabBarOnChange read FOnChange write SetFOnChange; end; TExtGridPropertyHeaderContainer = class(TExtGridHeaderContainer) @@ -12723,7 +12690,7 @@ TExtGridPropertyHeaderContainer = class(TExtGridHeaderContainer) TExtWindow = class(TExtPanel) private FAnimateTarget : String; - FAnimateTargetTExtElement : TExtElement; + FAnimateTargetElement : TExtElement; FBaseCls : String; FClosable : Boolean; FCollapsed : Boolean; @@ -12731,12 +12698,12 @@ TExtWindow = class(TExtPanel) FConstrainHeader : Boolean; FDd : TExtUtilComponentDragger; FDefaultFocus : String; + FDefaultFocusComponent : TExtComponent; FDefaultFocusInteger : Integer; - FDefaultFocusTExtComponent : TExtComponent; FDraggable : Boolean; FExpandOnShow : Boolean; FGhost : Boolean; - FGhostTExtFunction : TExtFunction; + FGhostFunction : TExtFunction; FHidden : Boolean; FHideShadowOnDeactivate : Boolean; FIsWindow : Boolean; @@ -12747,11 +12714,11 @@ TExtWindow = class(TExtPanel) FOnEsc : TExtFunction; FPlain : Boolean; FResizable : Boolean; - FResizableTExtObject : TExtObject; + FResizableObject : TExtObject; FX : Integer; FY : Integer; procedure SetFAnimateTarget(Value : String); - procedure SetFAnimateTargetTExtElement(Value : TExtElement); + procedure SetFAnimateTargetElement(Value : TExtElement); procedure SetFBaseCls(Value : String); procedure SetFClosable(Value : Boolean); procedure SetFCollapsed(Value : Boolean); @@ -12759,12 +12726,12 @@ TExtWindow = class(TExtPanel) procedure SetFConstrainHeader(Value : Boolean); procedure SetFDd(Value : TExtUtilComponentDragger); procedure SetFDefaultFocus(Value : String); + procedure SetFDefaultFocusComponent(Value : TExtComponent); procedure SetFDefaultFocusInteger(Value : Integer); - procedure SetFDefaultFocusTExtComponent(Value : TExtComponent); procedure SetFDraggable(Value : Boolean); procedure SetFExpandOnShow(Value : Boolean); procedure SetFGhost(Value : Boolean); - procedure SetFGhostTExtFunction(Value : TExtFunction); + procedure SetFGhostFunction(Value : TExtFunction); procedure SetFHidden(Value : Boolean); procedure SetFHideShadowOnDeactivate(Value : Boolean); procedure SetFIsWindow(Value : Boolean); @@ -12775,7 +12742,7 @@ TExtWindow = class(TExtPanel) procedure SetFOnEsc(Value : TExtFunction); procedure SetFPlain(Value : Boolean); procedure SetFResizable(Value : Boolean); - procedure SetFResizableTExtObject(Value : TExtObject); + procedure SetFResizableObject(Value : TExtObject); procedure SetFX(Value : Integer); procedure SetFY(Value : Integer); protected @@ -12791,7 +12758,7 @@ TExtWindow = class(TExtPanel) function ToggleMaximize : TExtFunction; destructor Destroy; override; property AnimateTarget : String read FAnimateTarget write SetFAnimateTarget; - property AnimateTargetTExtElement : TExtElement read FAnimateTargetTExtElement write SetFAnimateTargetTExtElement; + property AnimateTargetElement : TExtElement read FAnimateTargetElement write SetFAnimateTargetElement; property BaseCls : String read FBaseCls write SetFBaseCls; property Closable : Boolean read FClosable write SetFClosable; property Collapsed : Boolean read FCollapsed write SetFCollapsed; @@ -12799,12 +12766,12 @@ TExtWindow = class(TExtPanel) property ConstrainHeader : Boolean read FConstrainHeader write SetFConstrainHeader; property Dd : TExtUtilComponentDragger read FDd write SetFDd; property DefaultFocus : String read FDefaultFocus write SetFDefaultFocus; + property DefaultFocusComponent : TExtComponent read FDefaultFocusComponent write SetFDefaultFocusComponent; property DefaultFocusInteger : Integer read FDefaultFocusInteger write SetFDefaultFocusInteger; - property DefaultFocusTExtComponent : TExtComponent read FDefaultFocusTExtComponent write SetFDefaultFocusTExtComponent; property Draggable : Boolean read FDraggable write SetFDraggable; property ExpandOnShow : Boolean read FExpandOnShow write SetFExpandOnShow; property Ghost : Boolean read FGhost write SetFGhost; - property GhostTExtFunction : TExtFunction read FGhostTExtFunction write SetFGhostTExtFunction; + property GhostFunction : TExtFunction read FGhostFunction write SetFGhostFunction; property Hidden : Boolean read FHidden write SetFHidden; property HideShadowOnDeactivate : Boolean read FHideShadowOnDeactivate write SetFHideShadowOnDeactivate; property IsWindow : Boolean read FIsWindow write SetFIsWindow; @@ -12815,7 +12782,7 @@ TExtWindow = class(TExtPanel) property OnEsc : TExtFunction read FOnEsc write SetFOnEsc; property Plain : Boolean read FPlain write SetFPlain; property Resizable : Boolean read FResizable write SetFResizable; - property ResizableTExtObject : TExtObject read FResizableTExtObject write SetFResizableTExtObject; + property ResizableObject : TExtObject read FResizableObject write SetFResizableObject; property X : Integer read FX write SetFX; property Y : Integer read FY write SetFY; end; @@ -12836,14 +12803,21 @@ TExtGridColumnNumber = class(TExtGridColumn) property Format : String read FFormat write SetFFormat; end; - TExtGridColumnDate = class(TExtGridColumn) + TExtGridColumnTemplate = class(TExtGridColumn) private - FFormat : String; - procedure SetFFormat(Value : String); + FTpl : String; + FTplTemplate : TExtXTemplate; + procedure SetFTpl(Value : String); + procedure SetFTplTemplate(Value : TExtXTemplate); + protected + procedure InitDefaults; override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property Format : String read FFormat write SetFFormat; + constructor Create; + destructor Destroy; override; + property Tpl : String read FTpl write SetFTpl; + property TplTemplate : TExtXTemplate read FTplTemplate write SetFTplTemplate; end; // Procedural types for events TExtGridColumnCheckColumn @@ -12870,21 +12844,14 @@ TExtGridColumnCheckColumn = class(TExtGridColumn) property OnCheckchange : TExtGridColumnCheckColumnOnCheckchange read FOnCheckchange write SetFOnCheckchange; end; - TExtGridColumnTemplate = class(TExtGridColumn) + TExtGridColumnDate = class(TExtGridColumn) private - FTpl : String; - FTplTExtXTemplate : TExtXTemplate; - procedure SetFTpl(Value : String); - procedure SetFTplTExtXTemplate(Value : TExtXTemplate); - protected - procedure InitDefaults; override; + FFormat : String; + procedure SetFFormat(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property Tpl : String read FTpl write SetFTpl; - property TplTExtXTemplate : TExtXTemplate read FTplTExtXTemplate write SetFTplTExtXTemplate; + property Format : String read FFormat write SetFFormat; end; TExtGridViewDropZone = class(TExtViewDropZone) @@ -12893,20 +12860,10 @@ TExtGridViewDropZone = class(TExtViewDropZone) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtGridRowNumberer = class(TExtGridColumn) - private - FDraggable : Boolean; - FText : String; - FWidth : Integer; - procedure SetFDraggable(Value : Boolean); - procedure SetFText(Value : String); - procedure SetFWidth(Value : Integer); + TExtLayoutComponentFieldComboBox = class(TExtLayoutComponentFieldTrigger) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property Draggable : Boolean read FDraggable write SetFDraggable; - property Text : String read FText write SetFText; - property Width : Integer read FWidth write SetFWidth; end; TExtGridHeaderDragZone = class(TExtDdDragZone) @@ -12915,20 +12872,20 @@ TExtGridHeaderDragZone = class(TExtDdDragZone) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtGridColumnBoolean = class(TExtGridColumn) + TExtGridRowNumberer = class(TExtGridColumn) private - FFalseText : String; - FTrueText : String; - FUndefinedText : String; - procedure SetFFalseText(Value : String); - procedure SetFTrueText(Value : String); - procedure SetFUndefinedText(Value : String); + FDraggable : Boolean; + FText : String; + FWidth : Integer; + procedure SetFDraggable(Value : Boolean); + procedure SetFText(Value : String); + procedure SetFWidth(Value : Integer); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - property FalseText : String read FFalseText write SetFFalseText; - property TrueText : String read FTrueText write SetFTrueText; - property UndefinedText : String read FUndefinedText write SetFUndefinedText; + property Draggable : Boolean read FDraggable write SetFDraggable; + property Text : String read FText write SetFText; + property Width : Integer read FWidth write SetFWidth; end; TExtFormFieldDate = class(TExtFormFieldPicker) @@ -12999,6 +12956,84 @@ TExtFormFieldDate = class(TExtFormFieldPicker) property UseStrict : Boolean read FUseStrict write SetFUseStrict; end; + TExtFormFieldNumber = class(TExtFormFieldSpinner) + private + FAllowDecimals : Boolean; + FAutoStripChars : Boolean; + FBaseChars : String; + FDecimalPrecision : Integer; + FDecimalSeparator : String; + FMaxText : String; + FMaxValue : Integer; + FMinText : String; + FMinValue : Integer; + FNanText : String; + FNegativeText : String; + FStep : Integer; + FSubmitLocaleSeparator : Boolean; + procedure SetFAllowDecimals(Value : Boolean); + procedure SetFAutoStripChars(Value : Boolean); + procedure SetFBaseChars(Value : String); + procedure SetFDecimalPrecision(Value : Integer); + procedure SetFDecimalSeparator(Value : String); + procedure SetFMaxText(Value : String); + procedure SetFMaxValue(Value : Integer); + procedure SetFMinText(Value : String); + procedure SetFMinValue(Value : Integer); + procedure SetFNanText(Value : String); + procedure SetFNegativeText(Value : String); + procedure SetFStep(Value : Integer); + procedure SetFSubmitLocaleSeparator(Value : Boolean); + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function GetErrors(Value : TExtObject = nil) : TExtFunction; + function SetMaxValue(Value : Integer) : TExtFunction; + function SetMinValue(Value : Integer) : TExtFunction; + property AllowDecimals : Boolean read FAllowDecimals write SetFAllowDecimals; + property AutoStripChars : Boolean read FAutoStripChars write SetFAutoStripChars; + property BaseChars : String read FBaseChars write SetFBaseChars; + property DecimalPrecision : Integer read FDecimalPrecision write SetFDecimalPrecision; + property DecimalSeparator : String read FDecimalSeparator write SetFDecimalSeparator; + property MaxText : String read FMaxText write SetFMaxText; + property MaxValue : Integer read FMaxValue write SetFMaxValue; + property MinText : String read FMinText write SetFMinText; + property MinValue : Integer read FMinValue write SetFMinValue; + property NanText : String read FNanText write SetFNanText; + property NegativeText : String read FNegativeText write SetFNegativeText; + property Step : Integer read FStep write SetFStep; + property SubmitLocaleSeparator : Boolean read FSubmitLocaleSeparator write SetFSubmitLocaleSeparator; + end; + + TExtContainerButtonGroup = class(TExtPanel) + private + FBaseCls : String; + FColumns : Integer; + FDefaultButtonUI : String; + FFrame : Boolean; + FLayout : TExtEnumsLayout; + FLayoutObject : TExtObject; + procedure SetFBaseCls(Value : String); + procedure SetFColumns(Value : Integer); + procedure SetFDefaultButtonUI(Value : String); + procedure SetFFrame(Value : Boolean); + procedure SetFLayout(Value : TExtEnumsLayout); + procedure SetFLayoutObject(Value : TExtObject); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + destructor Destroy; override; + property BaseCls : String read FBaseCls write SetFBaseCls; + property Columns : Integer read FColumns write SetFColumns; + property DefaultButtonUI : String read FDefaultButtonUI write SetFDefaultButtonUI; + property Frame : Boolean read FFrame write SetFFrame; + property Layout : TExtEnumsLayout read FLayout write SetFLayout; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; + end; + // Procedural types for events TExtFormFieldComboBox TExtFormFieldComboBoxOnBeforedeselect = procedure(Combo : TExtFormFieldComboBox; RecordJS : TExtDataRecord; Index : Integer) of object; TExtFormFieldComboBoxOnBeforequery = procedure(QueryEvent : TExtObject) of object; @@ -13025,10 +13060,10 @@ TExtFormFieldComboBox = class(TExtFormFieldPicker) FQueryParam : String; FSelectOnTab : Boolean; FStore : TExtDataStore; + FStoreList : TExtObjectList; FStoreString : String; - FStoreTExtObjectList : TExtObjectList; FTransform : String; - FTransformTExtElement : TExtElement; + FTransformElement : TExtElement; FTransformTHTMLElement : THTMLElement; FTriggerAction : String; FTriggerCls : String; @@ -13058,10 +13093,10 @@ TExtFormFieldComboBox = class(TExtFormFieldPicker) procedure SetFQueryParam(Value : String); procedure SetFSelectOnTab(Value : Boolean); procedure SetFStore(Value : TExtDataStore); + procedure SetFStoreList(Value : TExtObjectList); procedure SetFStoreString(Value : String); - procedure SetFStoreTExtObjectList(Value : TExtObjectList); procedure SetFTransform(Value : String); - procedure SetFTransformTExtElement(Value : TExtElement); + procedure SetFTransformElement(Value : TExtElement); procedure SetFTransformTHTMLElement(Value : THTMLElement); procedure SetFTriggerAction(Value : String); procedure SetFTriggerCls(Value : String); @@ -13108,10 +13143,10 @@ TExtFormFieldComboBox = class(TExtFormFieldPicker) property QueryParam : String read FQueryParam write SetFQueryParam; property SelectOnTab : Boolean read FSelectOnTab write SetFSelectOnTab; property Store : TExtDataStore read FStore write SetFStore; + property StoreList : TExtObjectList read FStoreList write SetFStoreList; property StoreString : String read FStoreString write SetFStoreString; - property StoreTExtObjectList : TExtObjectList read FStoreTExtObjectList write SetFStoreTExtObjectList; property Transform : String read FTransform write SetFTransform; - property TransformTExtElement : TExtElement read FTransformTExtElement write SetFTransformTExtElement; + property TransformElement : TExtElement read FTransformElement write SetFTransformElement; property TransformTHTMLElement : THTMLElement read FTransformTHTMLElement write SetFTransformTHTMLElement; property TriggerAction : String read FTriggerAction write SetFTriggerAction; property TriggerCls : String read FTriggerCls write SetFTriggerCls; @@ -13125,84 +13160,6 @@ TExtFormFieldComboBox = class(TExtFormFieldPicker) property OnSelect : TExtFormFieldComboBoxOnSelect read FOnSelect write SetFOnSelect; end; - TExtContainerButtonGroup = class(TExtPanel) - private - FBaseCls : String; - FColumns : Integer; - FDefaultButtonUI : String; - FFrame : Boolean; - FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; - procedure SetFBaseCls(Value : String); - procedure SetFColumns(Value : Integer); - procedure SetFDefaultButtonUI(Value : String); - procedure SetFFrame(Value : Boolean); - procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property BaseCls : String read FBaseCls write SetFBaseCls; - property Columns : Integer read FColumns write SetFColumns; - property DefaultButtonUI : String read FDefaultButtonUI write SetFDefaultButtonUI; - property Frame : Boolean read FFrame write SetFFrame; - property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; - end; - - TExtFormFieldNumber = class(TExtFormFieldSpinner) - private - FAllowDecimals : Boolean; - FAutoStripChars : Boolean; - FBaseChars : String; - FDecimalPrecision : Integer; - FDecimalSeparator : String; - FMaxText : String; - FMaxValue : Integer; - FMinText : String; - FMinValue : Integer; - FNanText : String; - FNegativeText : String; - FStep : Integer; - FSubmitLocaleSeparator : Boolean; - procedure SetFAllowDecimals(Value : Boolean); - procedure SetFAutoStripChars(Value : Boolean); - procedure SetFBaseChars(Value : String); - procedure SetFDecimalPrecision(Value : Integer); - procedure SetFDecimalSeparator(Value : String); - procedure SetFMaxText(Value : String); - procedure SetFMaxValue(Value : Integer); - procedure SetFMinText(Value : String); - procedure SetFMinValue(Value : Integer); - procedure SetFNanText(Value : String); - procedure SetFNegativeText(Value : String); - procedure SetFStep(Value : Integer); - procedure SetFSubmitLocaleSeparator(Value : Boolean); - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function GetErrors(Value : TExtObject = nil) : TExtFunction; - function SetMaxValue(Value : Integer) : TExtFunction; - function SetMinValue(Value : Integer) : TExtFunction; - property AllowDecimals : Boolean read FAllowDecimals write SetFAllowDecimals; - property AutoStripChars : Boolean read FAutoStripChars write SetFAutoStripChars; - property BaseChars : String read FBaseChars write SetFBaseChars; - property DecimalPrecision : Integer read FDecimalPrecision write SetFDecimalPrecision; - property DecimalSeparator : String read FDecimalSeparator write SetFDecimalSeparator; - property MaxText : String read FMaxText write SetFMaxText; - property MaxValue : Integer read FMaxValue write SetFMaxValue; - property MinText : String read FMinText write SetFMinText; - property MinValue : Integer read FMinValue write SetFMinValue; - property NanText : String read FNanText write SetFNanText; - property NegativeText : String read FNegativeText write SetFNegativeText; - property Step : Integer read FStep write SetFStep; - property SubmitLocaleSeparator : Boolean read FSubmitLocaleSeparator write SetFSubmitLocaleSeparator; - end; - TExtGridColumnAction = class(TExtGridColumn) private FAltText : String; @@ -13255,28 +13212,20 @@ TExtGridColumnAction = class(TExtGridColumn) property Tooltip : String read FTooltip write SetFTooltip; end; - TExtFormRadioGroup = class(TExtFormCheckboxGroup) + TExtGridColumnBoolean = class(TExtGridColumn) private - FAllowBlank : Boolean; - FBlankText : String; - FItems : TExtObjectList; - FItemsTExtObjectList : TExtObjectList; - procedure SetFAllowBlank(Value : Boolean); - procedure SetFBlankText(Value : String); - procedure SetFItems(Value : TExtObjectList); - procedure SetFItemsTExtObjectList(Value : TExtObjectList); - protected - procedure InitDefaults; override; + FFalseText : String; + FTrueText : String; + FUndefinedText : String; + procedure SetFFalseText(Value : String); + procedure SetFTrueText(Value : String); + procedure SetFUndefinedText(Value : String); public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function SetValue(Value : TExtObject) : TExtFunction; - destructor Destroy; override; - property AllowBlank : Boolean read FAllowBlank write SetFAllowBlank; - property BlankText : String read FBlankText write SetFBlankText; - property Items : TExtObjectList read FItems write SetFItems; - property ItemsTExtObjectList : TExtObjectList read FItemsTExtObjectList write SetFItemsTExtObjectList; + property FalseText : String read FFalseText write SetFFalseText; + property TrueText : String read FTrueText write SetFTrueText; + property UndefinedText : String read FUndefinedText write SetFUndefinedText; end; // Procedural types for events TExtFormPanel @@ -13292,7 +13241,7 @@ TExtFormPanel = class(TExtPanel) private FFieldDefaults : TExtObject; FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; + FLayoutObject : TExtObject; FPollForChanges : Boolean; FPollInterval : Integer; // 500 FOnActioncomplete : TExtFormPanelOnActioncomplete; @@ -13304,7 +13253,7 @@ TExtFormPanel = class(TExtPanel) FOnValiditychange : TExtFormPanelOnValiditychange; procedure SetFFieldDefaults(Value : TExtObject); procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); + procedure SetFLayoutObject(Value : TExtObject); procedure SetFPollForChanges(Value : Boolean); procedure SetFPollInterval(Value : Integer); procedure SetFOnActioncomplete(Value : TExtFormPanelOnActioncomplete); @@ -13336,7 +13285,7 @@ TExtFormPanel = class(TExtPanel) destructor Destroy; override; property FieldDefaults : TExtObject read FFieldDefaults write SetFFieldDefaults; property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; property PollForChanges : Boolean read FPollForChanges write SetFPollForChanges; property PollInterval : Integer read FPollInterval write SetFPollInterval; property OnActioncomplete : TExtFormPanelOnActioncomplete read FOnActioncomplete write SetFOnActioncomplete; @@ -13348,78 +13297,28 @@ TExtFormPanel = class(TExtPanel) property OnValiditychange : TExtFormPanelOnValiditychange read FOnValiditychange write SetFOnValiditychange; end; - TExtLayoutComponentFieldComboBox = class(TExtLayoutComponentFieldTrigger) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - TExtTreeColumn = class(TExtGridColumn) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - - // Procedural types for events TExtMenu - TExtMenuOnClick = procedure(Menu : TExtMenu; Item : TExtComponent; E : TExtEventObject) of object; - TExtMenuOnMouseenter = procedure(Menu : TExtMenu; E : TExtEventObject) of object; - TExtMenuOnMouseleave = procedure(Menu : TExtMenu; E : TExtEventObject) of object; - TExtMenuOnMouseover = procedure(Menu : TExtMenu; Item : TExtComponent; E : TExtEventObject) of object; - - TExtMenu = class(TExtPanel) + TExtFormRadioGroup = class(TExtFormCheckboxGroup) private - FAllowOtherMenus : Boolean; - FEnableKeyNav : Boolean; - FFloating : Boolean; - FHidden : Boolean; // true - FIgnoreParentClicks : Boolean; - FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; - FMinWidth : Integer; - FPlain : Boolean; - FShowSeparator : Boolean; - FOnClick : TExtMenuOnClick; - FOnMouseenter : TExtMenuOnMouseenter; - FOnMouseleave : TExtMenuOnMouseleave; - FOnMouseover : TExtMenuOnMouseover; - procedure SetFAllowOtherMenus(Value : Boolean); - procedure SetFEnableKeyNav(Value : Boolean); - procedure SetFFloating(Value : Boolean); - procedure SetFHidden(Value : Boolean); - procedure SetFIgnoreParentClicks(Value : Boolean); - procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); - procedure SetFMinWidth(Value : Integer); - procedure SetFPlain(Value : Boolean); - procedure SetFShowSeparator(Value : Boolean); - procedure SetFOnClick(Value : TExtMenuOnClick); - procedure SetFOnMouseenter(Value : TExtMenuOnMouseenter); - procedure SetFOnMouseleave(Value : TExtMenuOnMouseleave); - procedure SetFOnMouseover(Value : TExtMenuOnMouseover); + FAllowBlank : Boolean; + FBlankText : String; + FItems : TExtObjectList; + FItemsList : TExtObjectList; + procedure SetFAllowBlank(Value : Boolean); + procedure SetFBlankText(Value : String); + procedure SetFItems(Value : TExtObjectList); + procedure SetFItemsList(Value : TExtObjectList); protected procedure InitDefaults; override; - procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - function CanActivateItem : TExtFunction; constructor Create; - function DeactivateActiveItem : TExtFunction; + function SetValue(Value : TExtObject) : TExtFunction; destructor Destroy; override; - property AllowOtherMenus : Boolean read FAllowOtherMenus write SetFAllowOtherMenus; - property EnableKeyNav : Boolean read FEnableKeyNav write SetFEnableKeyNav; - property Floating : Boolean read FFloating write SetFFloating; - property Hidden : Boolean read FHidden write SetFHidden; - property IgnoreParentClicks : Boolean read FIgnoreParentClicks write SetFIgnoreParentClicks; - property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; - property MinWidth : Integer read FMinWidth write SetFMinWidth; - property Plain : Boolean read FPlain write SetFPlain; - property ShowSeparator : Boolean read FShowSeparator write SetFShowSeparator; - property OnClick : TExtMenuOnClick read FOnClick write SetFOnClick; - property OnMouseenter : TExtMenuOnMouseenter read FOnMouseenter write SetFOnMouseenter; - property OnMouseleave : TExtMenuOnMouseleave read FOnMouseleave write SetFOnMouseleave; - property OnMouseover : TExtMenuOnMouseover read FOnMouseover write SetFOnMouseover; + property AllowBlank : Boolean read FAllowBlank write SetFAllowBlank; + property BlankText : String read FBlankText write SetFBlankText; + property Items : TExtObjectList read FItems write SetFItems; + property ItemsList : TExtObjectList read FItemsList write SetFItemsList; end; // Procedural types for events TExtPanelTable @@ -13484,7 +13383,7 @@ TExtPanelTable = class(TExtPanel) FAllowDeselect : Boolean; FColumnLines : Boolean; FColumns : TExtObjectList; - FColumnsTExtObject : TExtObject; + FColumnsObject : TExtObject; FDeferRowRender : Boolean; // true FDisableSelection : Boolean; FEmptyText : String; @@ -13493,7 +13392,7 @@ TExtPanelTable = class(TExtPanel) FEnableColumnResize : Boolean; FEnableLocking : Boolean; FFeatures : TExtObjectList; - FFeaturesTExtObjectList : TExtObjectList; + FFeaturesList : TExtObjectList; FForceFit : Boolean; FHideHeaders : Boolean; FOptimizedColumnMove : Boolean; @@ -13502,7 +13401,7 @@ TExtPanelTable = class(TExtPanel) FScrollBoolean : Boolean; FSealedColumns : Boolean; FSelModel : TExtSelectionModel; - FSelModelTExtObject : TExtObject; + FSelModelObject : TExtObject; FSelType : String; // 'rowmodel' FSortableColumns : Boolean; FStore : TExtDataStore; @@ -13568,7 +13467,7 @@ TExtPanelTable = class(TExtPanel) procedure SetFAllowDeselect(Value : Boolean); procedure SetFColumnLines(Value : Boolean); procedure SetFColumns(Value : TExtObjectList); - procedure SetFColumnsTExtObject(Value : TExtObject); + procedure SetFColumnsObject(Value : TExtObject); procedure SetFDeferRowRender(Value : Boolean); procedure SetFDisableSelection(Value : Boolean); procedure SetFEmptyText(Value : String); @@ -13577,7 +13476,7 @@ TExtPanelTable = class(TExtPanel) procedure SetFEnableColumnResize(Value : Boolean); procedure SetFEnableLocking(Value : Boolean); procedure SetFFeatures(Value : TExtObjectList); - procedure SetFFeaturesTExtObjectList(Value : TExtObjectList); + procedure SetFFeaturesList(Value : TExtObjectList); procedure SetFForceFit(Value : Boolean); procedure SetFHideHeaders(Value : Boolean); procedure SetFOptimizedColumnMove(Value : Boolean); @@ -13586,7 +13485,7 @@ TExtPanelTable = class(TExtPanel) procedure SetFScrollBoolean(Value : Boolean); procedure SetFSealedColumns(Value : Boolean); procedure SetFSelModel(Value : TExtSelectionModel); - procedure SetFSelModelTExtObject(Value : TExtObject); + procedure SetFSelModelObject(Value : TExtObject); procedure SetFSelType(Value : String); procedure SetFSortableColumns(Value : Boolean); procedure SetFStore(Value : TExtDataStore); @@ -13660,7 +13559,7 @@ TExtPanelTable = class(TExtPanel) property AllowDeselect : Boolean read FAllowDeselect write SetFAllowDeselect; property ColumnLines : Boolean read FColumnLines write SetFColumnLines; property Columns : TExtObjectList read FColumns write SetFColumns; - property ColumnsTExtObject : TExtObject read FColumnsTExtObject write SetFColumnsTExtObject; + property ColumnsObject : TExtObject read FColumnsObject write SetFColumnsObject; property DeferRowRender : Boolean read FDeferRowRender write SetFDeferRowRender; property DisableSelection : Boolean read FDisableSelection write SetFDisableSelection; property EmptyText : String read FEmptyText write SetFEmptyText; @@ -13669,7 +13568,7 @@ TExtPanelTable = class(TExtPanel) property EnableColumnResize : Boolean read FEnableColumnResize write SetFEnableColumnResize; property EnableLocking : Boolean read FEnableLocking write SetFEnableLocking; property Features : TExtObjectList read FFeatures write SetFFeatures; - property FeaturesTExtObjectList : TExtObjectList read FFeaturesTExtObjectList write SetFFeaturesTExtObjectList; + property FeaturesList : TExtObjectList read FFeaturesList write SetFFeaturesList; property ForceFit : Boolean read FForceFit write SetFForceFit; property HideHeaders : Boolean read FHideHeaders write SetFHideHeaders; property OptimizedColumnMove : Boolean read FOptimizedColumnMove write SetFOptimizedColumnMove; @@ -13678,7 +13577,7 @@ TExtPanelTable = class(TExtPanel) property ScrollBoolean : Boolean read FScrollBoolean write SetFScrollBoolean; property SealedColumns : Boolean read FSealedColumns write SetFSealedColumns; property SelModel : TExtSelectionModel read FSelModel write SetFSelModel; - property SelModelTExtObject : TExtObject read FSelModelTExtObject write SetFSelModelTExtObject; + property SelModelObject : TExtObject read FSelModelObject write SetFSelModelObject; property SelType : String read FSelType write SetFSelType; property SortableColumns : Boolean read FSortableColumns write SetFSortableColumns; property Store : TExtDataStore read FStore write SetFStore; @@ -13743,6 +13642,12 @@ TExtPanelTable = class(TExtPanel) property OnViewready : TExtPanelTableOnViewready read FOnViewready write SetFOnViewready; end; + TExtTreeColumn = class(TExtGridColumn) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + TExtTip = class(TExtPanel) private FClosable : Boolean; @@ -13787,12 +13692,12 @@ TExtTabPanel = class(TExtPanel) FActiveItem : String; FActiveItemInteger : Integer; FActiveTab : String; + FActiveTabComponent : TExtComponent; FActiveTabInteger : Integer; - FActiveTabTExtComponent : TExtComponent; FDeferredRender : Boolean; FItemCls : String; FLayout : TExtEnumsLayout; - FLayoutTExtObject : TExtObject; + FLayoutObject : TExtObject; FMaxTabWidth : Integer; FMinTabWidth : Integer; FPlain : Boolean; @@ -13803,12 +13708,12 @@ TExtTabPanel = class(TExtPanel) procedure SetFActiveItem(Value : String); procedure SetFActiveItemInteger(Value : Integer); procedure SetFActiveTab(Value : String); + procedure SetFActiveTabComponent(Value : TExtComponent); procedure SetFActiveTabInteger(Value : Integer); - procedure SetFActiveTabTExtComponent(Value : TExtComponent); procedure SetFDeferredRender(Value : Boolean); procedure SetFItemCls(Value : String); procedure SetFLayout(Value : TExtEnumsLayout); - procedure SetFLayoutTExtObject(Value : TExtObject); + procedure SetFLayoutObject(Value : TExtObject); procedure SetFMaxTabWidth(Value : Integer); procedure SetFMinTabWidth(Value : Integer); procedure SetFPlain(Value : Boolean); @@ -13829,12 +13734,12 @@ TExtTabPanel = class(TExtPanel) property ActiveItem : String read FActiveItem write SetFActiveItem; property ActiveItemInteger : Integer read FActiveItemInteger write SetFActiveItemInteger; property ActiveTab : String read FActiveTab write SetFActiveTab; + property ActiveTabComponent : TExtComponent read FActiveTabComponent write SetFActiveTabComponent; property ActiveTabInteger : Integer read FActiveTabInteger write SetFActiveTabInteger; - property ActiveTabTExtComponent : TExtComponent read FActiveTabTExtComponent write SetFActiveTabTExtComponent; property DeferredRender : Boolean read FDeferredRender write SetFDeferredRender; property ItemCls : String read FItemCls write SetFItemCls; property Layout : TExtEnumsLayout read FLayout write SetFLayout; - property LayoutTExtObject : TExtObject read FLayoutTExtObject write SetFLayoutTExtObject; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; property MaxTabWidth : Integer read FMaxTabWidth write SetFMaxTabWidth; property MinTabWidth : Integer read FMinTabWidth write SetFMinTabWidth; property Plain : Boolean read FPlain write SetFPlain; @@ -13863,10 +13768,66 @@ TExtTreeViewDropZone = class(TExtViewDropZone) property ExpandDelay : String read FExpandDelay write SetFExpandDelay; end; - TExtLayoutComponentFieldTextArea = class(TExtLayoutComponentFieldText) + // Procedural types for events TExtMenu + TExtMenuOnClick = procedure(Menu : TExtMenu; Item : TExtComponent; E : TExtEventObject) of object; + TExtMenuOnMouseenter = procedure(Menu : TExtMenu; E : TExtEventObject) of object; + TExtMenuOnMouseleave = procedure(Menu : TExtMenu; E : TExtEventObject) of object; + TExtMenuOnMouseover = procedure(Menu : TExtMenu; Item : TExtComponent; E : TExtEventObject) of object; + + TExtMenu = class(TExtPanel) + private + FAllowOtherMenus : Boolean; + FEnableKeyNav : Boolean; + FFloating : Boolean; + FHidden : Boolean; // true + FIgnoreParentClicks : Boolean; + FLayout : TExtEnumsLayout; + FLayoutObject : TExtObject; + FMinWidth : Integer; + FPlain : Boolean; + FShowSeparator : Boolean; + FOnClick : TExtMenuOnClick; + FOnMouseenter : TExtMenuOnMouseenter; + FOnMouseleave : TExtMenuOnMouseleave; + FOnMouseover : TExtMenuOnMouseover; + procedure SetFAllowOtherMenus(Value : Boolean); + procedure SetFEnableKeyNav(Value : Boolean); + procedure SetFFloating(Value : Boolean); + procedure SetFHidden(Value : Boolean); + procedure SetFIgnoreParentClicks(Value : Boolean); + procedure SetFLayout(Value : TExtEnumsLayout); + procedure SetFLayoutObject(Value : TExtObject); + procedure SetFMinWidth(Value : Integer); + procedure SetFPlain(Value : Boolean); + procedure SetFShowSeparator(Value : Boolean); + procedure SetFOnClick(Value : TExtMenuOnClick); + procedure SetFOnMouseenter(Value : TExtMenuOnMouseenter); + procedure SetFOnMouseleave(Value : TExtMenuOnMouseleave); + procedure SetFOnMouseover(Value : TExtMenuOnMouseover); + protected + procedure InitDefaults; override; + procedure HandleEvent(const AEvtName: string); override; public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + function CanActivateItem : TExtFunction; + constructor Create; + function DeactivateActiveItem : TExtFunction; + destructor Destroy; override; + property AllowOtherMenus : Boolean read FAllowOtherMenus write SetFAllowOtherMenus; + property EnableKeyNav : Boolean read FEnableKeyNav write SetFEnableKeyNav; + property Floating : Boolean read FFloating write SetFFloating; + property Hidden : Boolean read FHidden write SetFHidden; + property IgnoreParentClicks : Boolean read FIgnoreParentClicks write SetFIgnoreParentClicks; + property Layout : TExtEnumsLayout read FLayout write SetFLayout; + property LayoutObject : TExtObject read FLayoutObject write SetFLayoutObject; + property MinWidth : Integer read FMinWidth write SetFMinWidth; + property Plain : Boolean read FPlain write SetFPlain; + property ShowSeparator : Boolean read FShowSeparator write SetFShowSeparator; + property OnClick : TExtMenuOnClick read FOnClick write SetFOnClick; + property OnMouseenter : TExtMenuOnMouseenter read FOnMouseenter write SetFOnMouseenter; + property OnMouseleave : TExtMenuOnMouseleave read FOnMouseleave write SetFOnMouseleave; + property OnMouseover : TExtMenuOnMouseover read FOnMouseover write SetFOnMouseover; end; TExtLayoutComponentFieldHtmlEditor = class(TExtLayoutComponentFieldFieldContainer) @@ -13875,6 +13836,65 @@ TExtLayoutComponentFieldHtmlEditor = class(TExtLayoutComponentFieldFieldContai {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; + TExtLayoutComponentFieldTextArea = class(TExtLayoutComponentFieldText) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + + TExtTipToolTip = class(TExtTip) + private + FAnchor : String; + FAnchorOffset : Integer; + FAnchorToTarget : Boolean; + FAutoHide : Boolean; + FDelegate : String; + FDismissDelay : Integer; + FHideDelay : Integer; + FMouseOffset : TArrayOfInteger; + FShowDelay : Integer; + FTarget : THTMLElement; + FTargetElement : TExtElement; + FTargetString : String; + FTrackMouse : Boolean; + procedure SetFAnchor(Value : String); + procedure SetFAnchorOffset(Value : Integer); + procedure SetFAnchorToTarget(Value : Boolean); + procedure SetFAutoHide(Value : Boolean); + procedure SetFDelegate(Value : String); + procedure SetFDismissDelay(Value : Integer); + procedure SetFHideDelay(Value : Integer); + procedure SetFMouseOffset(Value : TArrayOfInteger); + procedure SetFShowDelay(Value : Integer); + procedure SetFTarget(Value : THTMLElement); + procedure SetFTargetElement(Value : TExtElement); + procedure SetFTargetString(Value : String); + procedure SetFTrackMouse(Value : Boolean); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + function Hide : TExtFunction; + function SetTarget(T : String) : TExtFunction; overload; + function Show : TExtFunction; + destructor Destroy; override; + property Anchor : String read FAnchor write SetFAnchor; + property AnchorOffset : Integer read FAnchorOffset write SetFAnchorOffset; + property AnchorToTarget : Boolean read FAnchorToTarget write SetFAnchorToTarget; + property AutoHide : Boolean read FAutoHide write SetFAutoHide; + property Delegate : String read FDelegate write SetFDelegate; + property DismissDelay : Integer read FDismissDelay write SetFDismissDelay; + property HideDelay : Integer read FHideDelay write SetFHideDelay; + property MouseOffset : TArrayOfInteger read FMouseOffset write SetFMouseOffset; + property ShowDelay : Integer read FShowDelay write SetFShowDelay; + property Target : THTMLElement read FTarget write SetFTarget; + property TargetElement : TExtElement read FTargetElement write SetFTargetElement; + property TargetString : String read FTargetString write SetFTargetString; + property TrackMouse : Boolean read FTrackMouse write SetFTrackMouse; + end; + // Procedural types for events TExtTreePanel TExtTreePanelOnAfteritemcollapse = procedure of object; TExtTreePanelOnAfteritemexpand = procedure of object; @@ -13902,8 +13922,8 @@ TExtTreePanel = class(TExtPanelTable) FHideHeaders : Boolean; FLines : Boolean; FRoot : TExtDataModel; - FRootTExtDataNodeInterface : TExtDataNodeInterface; - FRootTExtObject : TExtObject; + FRootInterface : TExtDataNodeInterface; + FRootObject : TExtObject; FRootVisible : Boolean; FRowLines : Boolean; FSingleExpand : Boolean; @@ -13932,8 +13952,8 @@ TExtTreePanel = class(TExtPanelTable) procedure SetFHideHeaders(Value : Boolean); procedure SetFLines(Value : Boolean); procedure SetFRoot(Value : TExtDataModel); - procedure SetFRootTExtDataNodeInterface(Value : TExtDataNodeInterface); - procedure SetFRootTExtObject(Value : TExtObject); + procedure SetFRootInterface(Value : TExtDataNodeInterface); + procedure SetFRootObject(Value : TExtObject); procedure SetFRootVisible(Value : Boolean); procedure SetFRowLines(Value : Boolean); procedure SetFSingleExpand(Value : Boolean); @@ -13979,8 +13999,8 @@ TExtTreePanel = class(TExtPanelTable) property HideHeaders : Boolean read FHideHeaders write SetFHideHeaders; property Lines : Boolean read FLines write SetFLines; property Root : TExtDataModel read FRoot write SetFRoot; - property RootTExtDataNodeInterface : TExtDataNodeInterface read FRootTExtDataNodeInterface write SetFRootTExtDataNodeInterface; - property RootTExtObject : TExtObject read FRootTExtObject write SetFRootTExtObject; + property RootInterface : TExtDataNodeInterface read FRootInterface write SetFRootInterface; + property RootObject : TExtObject read FRootObject write SetFRootObject; property RootVisible : Boolean read FRootVisible write SetFRootVisible; property RowLines : Boolean read FRowLines write SetFRowLines; property SingleExpand : Boolean read FSingleExpand write SetFSingleExpand; @@ -14005,71 +14025,12 @@ TExtTreePanel = class(TExtPanelTable) property OnLoad : TExtTreePanelOnLoad read FOnLoad write SetFOnLoad; end; - TExtTipToolTip = class(TExtTip) - private - FAnchor : String; - FAnchorOffset : Integer; - FAnchorToTarget : Boolean; - FAutoHide : Boolean; - FDelegate : String; - FDismissDelay : Integer; - FHideDelay : Integer; - FMouseOffset : TArrayOfInteger; - FShowDelay : Integer; - FTarget : THTMLElement; - FTargetString : String; - FTargetTExtElement : TExtElement; - FTrackMouse : Boolean; - procedure SetFAnchor(Value : String); - procedure SetFAnchorOffset(Value : Integer); - procedure SetFAnchorToTarget(Value : Boolean); - procedure SetFAutoHide(Value : Boolean); - procedure SetFDelegate(Value : String); - procedure SetFDismissDelay(Value : Integer); - procedure SetFHideDelay(Value : Integer); - procedure SetFMouseOffset(Value : TArrayOfInteger); - procedure SetFShowDelay(Value : Integer); - procedure SetFTarget(Value : THTMLElement); - procedure SetFTargetString(Value : String); - procedure SetFTargetTExtElement(Value : TExtElement); - procedure SetFTrackMouse(Value : Boolean); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - function Hide : TExtFunction; - function SetTarget(T : String) : TExtFunction; overload; - function Show : TExtFunction; - destructor Destroy; override; - property Anchor : String read FAnchor write SetFAnchor; - property AnchorOffset : Integer read FAnchorOffset write SetFAnchorOffset; - property AnchorToTarget : Boolean read FAnchorToTarget write SetFAnchorToTarget; - property AutoHide : Boolean read FAutoHide write SetFAutoHide; - property Delegate : String read FDelegate write SetFDelegate; - property DismissDelay : Integer read FDismissDelay write SetFDismissDelay; - property HideDelay : Integer read FHideDelay write SetFHideDelay; - property MouseOffset : TArrayOfInteger read FMouseOffset write SetFMouseOffset; - property ShowDelay : Integer read FShowDelay write SetFShowDelay; - property Target : THTMLElement read FTarget write SetFTarget; - property TargetString : String read FTargetString write SetFTargetString; - property TargetTExtElement : TExtElement read FTargetTExtElement write SetFTargetTExtElement; - property TrackMouse : Boolean read FTrackMouse write SetFTrackMouse; - end; - TExtTreeViewDragZone = class(TExtViewDragZone) public function JSClassName : string; override; {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtWindowMessageBox = class(TExtWindow) - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - end; - TExtFormFieldTime = class(TExtFormFieldComboBox) private FAltFormats : String; @@ -14128,6 +14089,12 @@ TExtFormFieldTime = class(TExtFormFieldComboBox) property TriggerCls : String read FTriggerCls write SetFTriggerCls; end; + TExtWindowMessageBox = class(TExtWindow) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + // Procedural types for events TExtMenuColorPicker TExtMenuColorPickerOnSelect = procedure of object; @@ -14162,12 +14129,12 @@ TExtMenuColorPicker = class(TExtMenu) TExtGridPanel = class(TExtPanelTable) private FColumns : TExtObjectList; - FColumnsTExtObject : TExtObject; + FColumnsObject : TExtObject; FRowLines : Boolean; FOnBeforereconfigure : TExtGridPanelOnBeforereconfigure; FOnReconfigure : TExtGridPanelOnReconfigure; procedure SetFColumns(Value : TExtObjectList); - procedure SetFColumnsTExtObject(Value : TExtObject); + procedure SetFColumnsObject(Value : TExtObject); procedure SetFRowLines(Value : Boolean); procedure SetFOnBeforereconfigure(Value : TExtGridPanelOnBeforereconfigure); procedure SetFOnReconfigure(Value : TExtGridPanelOnReconfigure); @@ -14180,7 +14147,7 @@ TExtGridPanel = class(TExtPanelTable) constructor Create; destructor Destroy; override; property Columns : TExtObjectList read FColumns write SetFColumns; - property ColumnsTExtObject : TExtObject read FColumnsTExtObject write SetFColumnsTExtObject; + property ColumnsObject : TExtObject read FColumnsObject write SetFColumnsObject; property RowLines : Boolean read FRowLines write SetFRowLines; property OnBeforereconfigure : TExtGridPanelOnBeforereconfigure read FOnBeforereconfigure write SetFOnBeforereconfigure; property OnReconfigure : TExtGridPanelOnReconfigure read FOnReconfigure write SetFOnReconfigure; @@ -14192,26 +14159,6 @@ TExtGridRowEditor = class(TExtFormPanel) {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} end; - TExtSliderTip = class(TExtTip) - private - FAlign : String; - FOffsets : TExtObjectList; - FPosition : String; - procedure SetFAlign(Value : String); - procedure SetFOffsets(Value : TExtObjectList); - procedure SetFPosition(Value : String); - protected - procedure InitDefaults; override; - public - function JSClassName : string; override; - {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} - constructor Create; - destructor Destroy; override; - property Align : String read FAlign write SetFAlign; - property Offsets : TExtObjectList read FOffsets write SetFOffsets; - property Position : String read FPosition write SetFPosition; - end; - // Procedural types for events TExtMenuDatePicker TExtMenuDatePickerOnSelect = procedure of object; @@ -14239,15 +14186,35 @@ TExtMenuDatePicker = class(TExtMenu) property OnSelect : TExtMenuDatePickerOnSelect read FOnSelect write SetFOnSelect; end; + TExtSliderTip = class(TExtTip) + private + FAlign : String; + FOffsets : TExtObjectList; + FPosition : String; + procedure SetFAlign(Value : String); + procedure SetFOffsets(Value : TExtObjectList); + procedure SetFPosition(Value : String); + protected + procedure InitDefaults; override; + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + constructor Create; + destructor Destroy; override; + property Align : String read FAlign write SetFAlign; + property Offsets : TExtObjectList read FOffsets write SetFOffsets; + property Position : String read FPosition write SetFPosition; + end; + TExtTipQuickTip = class(TExtTipToolTip) private FInterceptTitles : Boolean; FTarget : String; - FTargetTExtElement : TExtElement; + FTargetElement : TExtElement; FTargetTHTMLElement : THTMLElement; procedure SetFInterceptTitles(Value : Boolean); procedure SetFTarget(Value : String); - procedure SetFTargetTExtElement(Value : TExtElement); + procedure SetFTargetElement(Value : TExtElement); procedure SetFTargetTHTMLElement(Value : THTMLElement); protected procedure InitDefaults; override; @@ -14261,7 +14228,7 @@ TExtTipQuickTip = class(TExtTipToolTip) destructor Destroy; override; property InterceptTitles : Boolean read FInterceptTitles write SetFInterceptTitles; property Target : String read FTarget write SetFTarget; - property TargetTExtElement : TExtElement read FTargetTExtElement write SetFTargetTExtElement; + property TargetElement : TExtElement read FTargetElement write SetFTargetElement; property TargetTHTMLElement : THTMLElement read FTargetTHTMLElement write SetFTargetTHTMLElement; end; @@ -14300,6 +14267,12 @@ TExtGridPropertyGrid = class(TExtGridPanel) property ValueField : String read FValueField write SetFValueField; end; + TExtMessageBoxSingleton = class(TExtWindowMessageBox) + public + function JSClassName : string; override; + {$IFDEF FPC}constructor AddTo(List : TExtObjectList);{$ENDIF} + end; + var ExtFormFieldVTypes : TExtFormFieldVTypesSingleton; ExtFxManager : TExtFxManagerSingleton; @@ -14321,20 +14294,20 @@ TExtGridPropertyGrid = class(TExtGridPanel) ExtPerfMonitor : TExtPerfMonitorSingleton; ExtDataValidations : TExtDataValidationsSingleton; ExtDataTypes : TExtDataTypesSingleton; - ExtButtonManager : TExtButtonManagerSingleton; - ExtChartShape : TExtChartShapeSingleton; ExtDataSortTypes : TExtDataSortTypesSingleton; + ExtChartShape : TExtChartShapeSingleton; + ExtButtonManager : TExtButtonManagerSingleton; ExtAppEventBus : TExtAppEventBusSingleton; - ExtDdScrollManager : TExtDdScrollManagerSingleton; ExtDdRegistry : TExtDdRegistrySingleton; + ExtDdScrollManager : TExtDdScrollManagerSingleton; ExtDdDragDropManager : TExtDdDragDropManagerSingleton; ExtDirectManager : TExtDirectManagerSingleton; ExtComponentQuery : TExtComponentQuerySingleton; ExtDataJsonP : TExtDataJsonPSingleton; ExtModelManager : TExtModelManagerSingleton; ExtUtilTaskManager : TExtUtilTaskManagerSingleton; - ExtAjax : TExtAjaxSingleton; ExtComponentManager : TExtComponentManagerSingleton; + ExtAjax : TExtAjaxSingleton; ExtDomHelper : TExtDomHelperSingleton; ExtAppDomainStore : TExtAppDomainStoreSingleton; ExtPluginManager : TExtPluginManagerSingleton; @@ -14345,6 +14318,7 @@ TExtGridPropertyGrid = class(TExtGridPanel) ExtFormRadioManager : TExtFormRadioManagerSingleton; ExtFormCheckboxManager : TExtFormCheckboxManagerSingleton; ExtDataStoreManager : TExtDataStoreManagerSingleton; + ExtMessageBox : TExtMessageBoxSingleton; implementation @@ -14353,8 +14327,8 @@ procedure TExtAbstractComponent.SetFAutoEl(Value : String); begin JSCode('autoEl:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFAutoElTExtObject(Value : TExtObject); begin - FAutoElTExtObject := Value; +procedure TExtAbstractComponent.SetFAutoElObject(Value : TExtObject); begin + FAutoElObject := Value; Value.DeleteFromGarbage; JSCode('autoEl:' + VarToJSON([Value, false])); end; @@ -14364,17 +14338,17 @@ procedure TExtAbstractComponent.SetFAutoRender(Value : Boolean); begin JSCode('autoRender:' + VarToJSON([Value])); end; +procedure TExtAbstractComponent.SetFAutoRenderElement(Value : TExtElement); begin + FAutoRenderElement := Value; + Value.DeleteFromGarbage; + JSCode('autoRender:' + VarToJSON([Value, false])); +end; + procedure TExtAbstractComponent.SetFAutoRenderString(Value : String); begin FAutoRenderString := Value; JSCode('autoRender:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFAutoRenderTExtElement(Value : TExtElement); begin - FAutoRenderTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('autoRender:' + VarToJSON([Value, false])); -end; - procedure TExtAbstractComponent.SetFAutoRenderTHTMLElement(Value : THTMLElement); begin FAutoRenderTHTMLElement := Value; Value.DeleteFromGarbage; @@ -14430,8 +14404,8 @@ procedure TExtAbstractComponent.SetFComponentLayout(Value : String); begin JSCode('componentLayout:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFComponentLayoutTExtObject(Value : TExtObject); begin - FComponentLayoutTExtObject := Value; +procedure TExtAbstractComponent.SetFComponentLayoutObject(Value : TExtObject); begin + FComponentLayoutObject := Value; Value.DeleteFromGarbage; JSCode('componentLayout:' + VarToJSON([Value, false])); end; @@ -14509,8 +14483,8 @@ procedure TExtAbstractComponent.SetFHtml(Value : String); begin JSCode('html:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFHtmlTExtObject(Value : TExtObject); begin - FHtmlTExtObject := Value; +procedure TExtAbstractComponent.SetFHtmlObject(Value : TExtObject); begin + FHtmlObject := Value; Value.DeleteFromGarbage; JSCode('html:' + VarToJSON([Value, false])); end; @@ -14542,8 +14516,8 @@ procedure TExtAbstractComponent.SetFLoader(Value : TExtComponentLoader); begin JSCode('loader:' + VarToJSON([Value, false])); end; -procedure TExtAbstractComponent.SetFLoaderTExtObject(Value : TExtObject); begin - FLoaderTExtObject := Value; +procedure TExtAbstractComponent.SetFLoaderObject(Value : TExtObject); begin + FLoaderObject := Value; Value.DeleteFromGarbage; JSCode('loader:' + VarToJSON([Value, false])); end; @@ -14607,26 +14581,20 @@ procedure TExtAbstractComponent.SetFPlugins(Value : TExtObjectList); begin JSCode('plugins:' + VarToJSON([Value, false])); end; -procedure TExtAbstractComponent.SetFPluginsTExtAbstractPlugin(Value : TExtAbstractPlugin); begin - FPluginsTExtAbstractPlugin := Value; - Value.DeleteFromGarbage; - JSCode('plugins:' + VarToJSON([Value, false])); -end; - -procedure TExtAbstractComponent.SetFPluginsTExtEnumsPlugin(Value : TExtEnumsPlugin); begin - FPluginsTExtEnumsPlugin := Value; +procedure TExtAbstractComponent.SetFPluginsList(Value : TExtObjectList); begin + FPluginsList := Value; Value.DeleteFromGarbage; JSCode('plugins:' + VarToJSON([Value, false])); end; -procedure TExtAbstractComponent.SetFPluginsTExtObject(Value : TExtObject); begin - FPluginsTExtObject := Value; +procedure TExtAbstractComponent.SetFPluginsObject(Value : TExtObject); begin + FPluginsObject := Value; Value.DeleteFromGarbage; JSCode('plugins:' + VarToJSON([Value, false])); end; -procedure TExtAbstractComponent.SetFPluginsTExtObjectList(Value : TExtObjectList); begin - FPluginsTExtObjectList := Value; +procedure TExtAbstractComponent.SetFPluginsPlugin(Value : TExtAbstractPlugin); begin + FPluginsPlugin := Value; Value.DeleteFromGarbage; JSCode('plugins:' + VarToJSON([Value, false])); end; @@ -14648,8 +14616,8 @@ procedure TExtAbstractComponent.SetFRenderTo(Value : String); begin JSCode('renderTo:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFRenderToTExtElement(Value : TExtElement); begin - FRenderToTExtElement := Value; +procedure TExtAbstractComponent.SetFRenderToElement(Value : TExtElement); begin + FRenderToElement := Value; Value.DeleteFromGarbage; JSCode('renderTo:' + VarToJSON([Value, false])); end; @@ -14696,8 +14664,8 @@ procedure TExtAbstractComponent.SetFStyle(Value : String); begin JSCode('style:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFStyleTExtObject(Value : TExtObject); begin - FStyleTExtObject := Value; +procedure TExtAbstractComponent.SetFStyleObject(Value : TExtObject); begin + FStyleObject := Value; Value.DeleteFromGarbage; JSCode('style:' + VarToJSON([Value, false])); end; @@ -14708,19 +14676,19 @@ procedure TExtAbstractComponent.SetFTpl(Value : TExtXTemplate); begin JSCode('tpl:' + VarToJSON([Value, false])); end; +procedure TExtAbstractComponent.SetFTplList(Value : TExtObjectList); begin + FTplList := Value; + Value.DeleteFromGarbage; + JSCode('tpl:' + VarToJSON([Value, false])); +end; + procedure TExtAbstractComponent.SetFTplString(Value : String); begin FTplString := Value; JSCode('tpl:' + VarToJSON([Value])); end; -procedure TExtAbstractComponent.SetFTplTExtObjectList(Value : TExtObjectList); begin - FTplTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('tpl:' + VarToJSON([Value, false])); -end; - -procedure TExtAbstractComponent.SetFTplTExtTemplate(Value : TExtTemplate); begin - FTplTExtTemplate := Value; +procedure TExtAbstractComponent.SetFTplTemplate(Value : TExtTemplate); begin + FTplTemplate := Value; Value.DeleteFromGarbage; JSCode('tpl:' + VarToJSON([Value, false])); end; @@ -14966,29 +14934,28 @@ function TExtAbstractComponent.JSClassName : string; begin procedure TExtAbstractComponent.InitDefaults; begin inherited; - FAutoElTExtObject := TExtObject.CreateInternal(Self, 'autoEl'); - FAutoRenderTExtElement := TExtElement.CreateInternal(Self, 'autoRender'); + FAutoElObject := TExtObject.CreateInternal(Self, 'autoEl'); + FAutoRenderElement := TExtElement.CreateInternal(Self, 'autoRender'); FChildEls := TExtObjectList.Create(Self, 'childEls'); - FComponentLayoutTExtObject := TExtObject.CreateInternal(Self, 'componentLayout'); + FComponentLayoutObject := TExtObject.CreateInternal(Self, 'componentLayout'); FData := TExtObject.CreateInternal(Self, 'data'); FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); - FHtmlTExtObject := TExtObject.CreateInternal(Self, 'html'); + FHtmlObject := TExtObject.CreateInternal(Self, 'html'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); FLoader := TExtComponentLoader.CreateInternal(Self, 'loader'); - FLoaderTExtObject := TExtObject.CreateInternal(Self, 'loader'); + FLoaderObject := TExtObject.CreateInternal(Self, 'loader'); FPlugins := TExtObjectList.Create(Self, 'plugins'); - FPluginsTExtAbstractPlugin := TExtAbstractPlugin.CreateInternal(Self, 'plugins'); - FPluginsTExtEnumsPlugin := TExtEnumsPlugin.CreateInternal(Self, 'plugins'); - FPluginsTExtObject := TExtObject.CreateInternal(Self, 'plugins'); - FPluginsTExtObjectList := TExtObjectList.Create(Self, 'plugins'); + FPluginsList := TExtObjectList.Create(Self, 'plugins'); + FPluginsObject := TExtObject.CreateInternal(Self, 'plugins'); + FPluginsPlugin := TExtAbstractPlugin.CreateInternal(Self, 'plugins'); FRenderData := TExtObject.CreateInternal(Self, 'renderData'); FRenderSelectors := TExtObject.CreateInternal(Self, 'renderSelectors'); - FRenderToTExtElement := TExtElement.CreateInternal(Self, 'renderTo'); + FRenderToElement := TExtElement.CreateInternal(Self, 'renderTo'); FStateEvents := TExtObjectList.Create(Self, 'stateEvents'); - FStyleTExtObject := TExtObject.CreateInternal(Self, 'style'); + FStyleObject := TExtObject.CreateInternal(Self, 'style'); FTpl := TExtXTemplate.CreateInternal(Self, 'tpl'); - FTplTExtObjectList := TExtObjectList.Create(Self, 'tpl'); - FTplTExtTemplate := TExtTemplate.CreateInternal(Self, 'tpl'); + FTplList := TExtObjectList.Create(Self, 'tpl'); + FTplTemplate := TExtTemplate.CreateInternal(Self, 'tpl'); FXtype := TExtEnumsWidget.CreateInternal(Self, 'xtype'); end; @@ -15546,29 +15513,28 @@ function TExtAbstractComponent.UpdateLayout(Options : TExtObject = nil; OptionsD destructor TExtAbstractComponent.Destroy; begin try - FAutoElTExtObject.Free; - FAutoRenderTExtElement.Free; + FAutoElObject.Free; + FAutoRenderElement.Free; FChildEls.Free; - FComponentLayoutTExtObject.Free; + FComponentLayoutObject.Free; FData.Free; FHasListeners.Free; - FHtmlTExtObject.Free; + FHtmlObject.Free; FListeners.Free; FLoader.Free; - FLoaderTExtObject.Free; + FLoaderObject.Free; FPlugins.Free; - FPluginsTExtAbstractPlugin.Free; - FPluginsTExtEnumsPlugin.Free; - FPluginsTExtObject.Free; - FPluginsTExtObjectList.Free; + FPluginsList.Free; + FPluginsObject.Free; + FPluginsPlugin.Free; FRenderData.Free; FRenderSelectors.Free; - FRenderToTExtElement.Free; + FRenderToElement.Free; FStateEvents.Free; - FStyleTExtObject.Free; + FStyleObject.Free; FTpl.Free; - FTplTExtObjectList.Free; - FTplTExtTemplate.Free; + FTplList.Free; + FTplTemplate.Free; FXtype.Free; except end; inherited; @@ -16050,8 +16016,8 @@ procedure TExtFxAnim.SetFTarget(Value : String); begin JSCode('target:' + VarToJSON([Value])); end; -procedure TExtFxAnim.SetFTargetTExtObject(Value : TExtObject); begin - FTargetTExtObject := Value; +procedure TExtFxAnim.SetFTargetObject(Value : TExtObject); begin + FTargetObject := Value; Value.DeleteFromGarbage; JSCode('target:' + VarToJSON([Value, false])); end; @@ -16096,7 +16062,7 @@ procedure TExtFxAnim.InitDefaults; begin FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FKeyframes := TExtObject.CreateInternal(Self, 'keyframes'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); - FTargetTExtObject := TExtObject.CreateInternal(Self, 'target'); + FTargetObject := TExtObject.CreateInternal(Self, 'target'); FToJS := TExtObject.CreateInternal(Self, 'toJS'); end; @@ -16198,7 +16164,7 @@ destructor TExtFxAnim.Destroy; begin FHasListeners.Free; FKeyframes.Free; FListeners.Free; - FTargetTExtObject.Free; + FTargetObject.Free; FToJS.Free; except end; inherited; @@ -16471,14 +16437,14 @@ procedure TExtFormLabelable.SetFActiveErrorsTpl(Value : String); begin JSCode('activeErrorsTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); begin - FActiveErrorsTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFActiveErrorsTplList(Value : TExtObjectList); begin + FActiveErrorsTplList := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); begin - FActiveErrorsTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFActiveErrorsTplTemplate(Value : TExtXTemplate); begin + FActiveErrorsTplTemplate := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; @@ -16488,14 +16454,14 @@ procedure TExtFormLabelable.SetFAfterBodyEl(Value : String); begin JSCode('afterBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFAfterBodyElTExtObjectList(Value : TExtObjectList); begin - FAfterBodyElTExtObjectList := Value; +procedure TExtFormLabelable.SetFAfterBodyElList(Value : TExtObjectList); begin + FAfterBodyElList := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); begin - FAfterBodyElTExtXTemplate := Value; +procedure TExtFormLabelable.SetFAfterBodyElTemplate(Value : TExtXTemplate); begin + FAfterBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; @@ -16505,14 +16471,14 @@ procedure TExtFormLabelable.SetFAfterLabelTextTpl(Value : String); begin JSCode('afterLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTextTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFAfterLabelTextTplList(Value : TExtObjectList); begin + FAfterLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTextTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -16522,14 +16488,14 @@ procedure TExtFormLabelable.SetFAfterLabelTpl(Value : String); begin JSCode('afterLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFAfterLabelTplList(Value : TExtObjectList); begin + FAfterLabelTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFAfterLabelTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; @@ -16539,14 +16505,14 @@ procedure TExtFormLabelable.SetFAfterSubTpl(Value : String); begin JSCode('afterSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFAfterSubTplTExtObjectList(Value : TExtObjectList); begin - FAfterSubTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFAfterSubTplList(Value : TExtObjectList); begin + FAfterSubTplList := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterSubTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFAfterSubTplTemplate(Value : TExtXTemplate); begin + FAfterSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; @@ -16566,14 +16532,14 @@ procedure TExtFormLabelable.SetFBeforeBodyEl(Value : String); begin JSCode('beforeBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); begin - FBeforeBodyElTExtObjectList := Value; +procedure TExtFormLabelable.SetFBeforeBodyElList(Value : TExtObjectList); begin + FBeforeBodyElList := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); begin - FBeforeBodyElTExtXTemplate := Value; +procedure TExtFormLabelable.SetFBeforeBodyElTemplate(Value : TExtXTemplate); begin + FBeforeBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; @@ -16583,14 +16549,14 @@ procedure TExtFormLabelable.SetFBeforeLabelTextTpl(Value : String); begin JSCode('beforeLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTextTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFBeforeLabelTextTplList(Value : TExtObjectList); begin + FBeforeLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTextTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -16600,14 +16566,14 @@ procedure TExtFormLabelable.SetFBeforeLabelTpl(Value : String); begin JSCode('beforeLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFBeforeLabelTplList(Value : TExtObjectList); begin + FBeforeLabelTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFBeforeLabelTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; @@ -16617,14 +16583,14 @@ procedure TExtFormLabelable.SetFBeforeSubTpl(Value : String); begin JSCode('beforeSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); begin - FBeforeSubTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFBeforeSubTplList(Value : TExtObjectList); begin + FBeforeSubTplList := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeSubTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFBeforeSubTplTemplate(Value : TExtXTemplate); begin + FBeforeSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; @@ -16677,14 +16643,14 @@ procedure TExtFormLabelable.SetFLabelableRenderTpl(Value : String); begin JSCode('labelableRenderTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); begin - FLabelableRenderTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFLabelableRenderTplList(Value : TExtObjectList); begin + FLabelableRenderTplList := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelableRenderTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFLabelableRenderTplTemplate(Value : TExtXTemplate); begin + FLabelableRenderTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; @@ -16699,14 +16665,14 @@ procedure TExtFormLabelable.SetFLabelAttrTpl(Value : String); begin JSCode('labelAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormLabelable.SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); begin - FLabelAttrTplTExtObjectList := Value; +procedure TExtFormLabelable.SetFLabelAttrTplList(Value : TExtObjectList); begin + FLabelAttrTplList := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormLabelable.SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelAttrTplTExtXTemplate := Value; +procedure TExtFormLabelable.SetFLabelAttrTplTemplate(Value : TExtXTemplate); begin + FLabelAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; @@ -16765,28 +16731,28 @@ function TExtFormLabelable.JSClassName : string; begin procedure TExtFormLabelable.InitDefaults; begin inherited; - FActiveErrorsTplTExtObjectList := TExtObjectList.Create(Self, 'activeErrorsTpl'); - FActiveErrorsTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); - FAfterBodyElTExtObjectList := TExtObjectList.Create(Self, 'afterBodyEl'); - FAfterBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); - FAfterLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); - FAfterLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); - FAfterLabelTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTpl'); - FAfterLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); - FAfterSubTplTExtObjectList := TExtObjectList.Create(Self, 'afterSubTpl'); - FAfterSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); - FBeforeBodyElTExtObjectList := TExtObjectList.Create(Self, 'beforeBodyEl'); - FBeforeBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); - FBeforeLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); - FBeforeLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); - FBeforeLabelTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTpl'); - FBeforeLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); - FBeforeSubTplTExtObjectList := TExtObjectList.Create(Self, 'beforeSubTpl'); - FBeforeSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); - FLabelableRenderTplTExtObjectList := TExtObjectList.Create(Self, 'labelableRenderTpl'); - FLabelableRenderTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); - FLabelAttrTplTExtObjectList := TExtObjectList.Create(Self, 'labelAttrTpl'); - FLabelAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); + FActiveErrorsTplList := TExtObjectList.Create(Self, 'activeErrorsTpl'); + FActiveErrorsTplTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); + FAfterBodyElList := TExtObjectList.Create(Self, 'afterBodyEl'); + FAfterBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); + FAfterLabelTextTplList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); + FAfterLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); + FAfterLabelTplList := TExtObjectList.Create(Self, 'afterLabelTpl'); + FAfterLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); + FAfterSubTplList := TExtObjectList.Create(Self, 'afterSubTpl'); + FAfterSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); + FBeforeBodyElList := TExtObjectList.Create(Self, 'beforeBodyEl'); + FBeforeBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); + FBeforeLabelTextTplList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); + FBeforeLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); + FBeforeLabelTplList := TExtObjectList.Create(Self, 'beforeLabelTpl'); + FBeforeLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); + FBeforeSubTplList := TExtObjectList.Create(Self, 'beforeSubTpl'); + FBeforeSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); + FLabelableRenderTplList := TExtObjectList.Create(Self, 'labelableRenderTpl'); + FLabelableRenderTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); + FLabelAttrTplList := TExtObjectList.Create(Self, 'labelAttrTpl'); + FLabelAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); end; {$IFDEF FPC}constructor TExtFormLabelable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -16858,28 +16824,28 @@ function TExtFormLabelable.UnsetActiveError : TExtFunction; begin destructor TExtFormLabelable.Destroy; begin try - FActiveErrorsTplTExtObjectList.Free; - FActiveErrorsTplTExtXTemplate.Free; - FAfterBodyElTExtObjectList.Free; - FAfterBodyElTExtXTemplate.Free; - FAfterLabelTextTplTExtObjectList.Free; - FAfterLabelTextTplTExtXTemplate.Free; - FAfterLabelTplTExtObjectList.Free; - FAfterLabelTplTExtXTemplate.Free; - FAfterSubTplTExtObjectList.Free; - FAfterSubTplTExtXTemplate.Free; - FBeforeBodyElTExtObjectList.Free; - FBeforeBodyElTExtXTemplate.Free; - FBeforeLabelTextTplTExtObjectList.Free; - FBeforeLabelTextTplTExtXTemplate.Free; - FBeforeLabelTplTExtObjectList.Free; - FBeforeLabelTplTExtXTemplate.Free; - FBeforeSubTplTExtObjectList.Free; - FBeforeSubTplTExtXTemplate.Free; - FLabelableRenderTplTExtObjectList.Free; - FLabelableRenderTplTExtXTemplate.Free; - FLabelAttrTplTExtObjectList.Free; - FLabelAttrTplTExtXTemplate.Free; + FActiveErrorsTplList.Free; + FActiveErrorsTplTemplate.Free; + FAfterBodyElList.Free; + FAfterBodyElTemplate.Free; + FAfterLabelTextTplList.Free; + FAfterLabelTextTplTemplate.Free; + FAfterLabelTplList.Free; + FAfterLabelTplTemplate.Free; + FAfterSubTplList.Free; + FAfterSubTplTemplate.Free; + FBeforeBodyElList.Free; + FBeforeBodyElTemplate.Free; + FBeforeLabelTextTplList.Free; + FBeforeLabelTextTplTemplate.Free; + FBeforeLabelTplList.Free; + FBeforeLabelTplTemplate.Free; + FBeforeSubTplList.Free; + FBeforeSubTplTemplate.Free; + FLabelableRenderTplList.Free; + FLabelableRenderTplTemplate.Free; + FLabelAttrTplList.Free; + FLabelAttrTplTemplate.Free; except end; inherited; end; @@ -17251,51 +17217,11 @@ function TExtMenuManagerSingleton.HideAll : TExtFunction; begin Result := Self; end; -procedure TExtPanelProxy.SetFInsertProxy(Value : Boolean); begin - FInsertProxy := Value; - JSCode('insertProxy:' + VarToJSON([Value])); -end; - -procedure TExtPanelProxy.SetFMoveOnDrag(Value : Boolean); begin - FMoveOnDrag := Value; - JSCode('moveOnDrag:' + VarToJSON([Value])); -end; - -function TExtPanelProxy.JSClassName : string; begin - Result := 'Ext.panel.Proxy'; -end; - -{$IFDEF FPC}constructor TExtPanelProxy.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtPanelProxy.GetEl : TExtFunction; begin - JSCode(JSName + '.getEl();', 'TExtPanelProxy'); - Result := Self; -end; - -function TExtPanelProxy.GetGhost : TExtFunction; begin - JSCode(JSName + '.getGhost();', 'TExtPanelProxy'); - Result := Self; -end; - -function TExtPanelProxy.GetProxy : TExtFunction; begin - JSCode(JSName + '.getProxy();', 'TExtPanelProxy'); - Result := Self; -end; - -function TExtPanelProxy.Hide : TExtFunction; begin - JSCode(JSName + '.hide();', 'TExtPanelProxy'); - Result := Self; -end; - -function TExtPanelProxy.MoveProxy(ParentNode : THTMLElement; Before : THTMLElement = nil) : TExtFunction; begin - JSCode(JSName + '.moveProxy(' + VarToJSON([ParentNode, false, Before, false]) + ');', 'TExtPanelProxy'); - Result := Self; +function TExtUtilOffset.JSClassName : string; begin + Result := 'Ext.util.Offset'; end; -function TExtPanelProxy.Show : TExtFunction; begin - JSCode(JSName + '.show();', 'TExtPanelProxy'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtUtilOffset.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtUtilProtoElement.JSClassName : string; begin Result := 'Ext.util.ProtoElement'; @@ -17497,8 +17423,8 @@ procedure TExtUtilSortable.SetFSorters_(Value : TExtObjectList); begin JSCode(JSName + '.sorters=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtUtilSortable.SetFSortersTExtObjectList(Value : TExtObjectList); begin - FSortersTExtObjectList := Value; +procedure TExtUtilSortable.SetFSortersList(Value : TExtObjectList); begin + FSortersList := Value; Value.DeleteFromGarbage; JSCode('sorters:' + VarToJSON([Value, false])); end; @@ -17516,7 +17442,7 @@ procedure TExtUtilSortable.InitDefaults; begin inherited; FSorters := TExtObjectList.Create(Self, 'sorters'); FSorters_ := TExtObjectList.Create(Self, 'sorters'); - FSortersTExtObjectList := TExtObjectList.Create(Self, 'sorters'); + FSortersList := TExtObjectList.Create(Self, 'sorters'); end; {$IFDEF FPC}constructor TExtUtilSortable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -17540,7 +17466,7 @@ destructor TExtUtilSortable.Destroy; begin try FSorters.Free; FSorters_.Free; - FSortersTExtObjectList.Free; + FSortersList.Free; except end; inherited; end; @@ -19225,8 +19151,8 @@ procedure TExtElementLoader.SetFAutoLoad(Value : Boolean); begin JSCode('autoLoad:' + VarToJSON([Value])); end; -procedure TExtElementLoader.SetFAutoLoadTExtObject(Value : TExtObject); begin - FAutoLoadTExtObject := Value; +procedure TExtElementLoader.SetFAutoLoadObject(Value : TExtObject); begin + FAutoLoadObject := Value; Value.DeleteFromGarbage; JSCode('autoLoad:' + VarToJSON([Value, false])); end; @@ -19312,17 +19238,17 @@ procedure TExtElementLoader.SetFTarget(Value : THTMLElement); begin JSCode('target:' + VarToJSON([Value, false])); end; +procedure TExtElementLoader.SetFTargetElement(Value : TExtElement); begin + FTargetElement := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + procedure TExtElementLoader.SetFTargetString(Value : String); begin FTargetString := Value; JSCode('target:' + VarToJSON([Value])); end; -procedure TExtElementLoader.SetFTargetTExtElement(Value : TExtElement); begin - FTargetTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - procedure TExtElementLoader.SetFUrl(Value : String); begin FUrl := Value; JSCode('url:' + VarToJSON([Value])); @@ -19359,13 +19285,13 @@ function TExtElementLoader.JSClassName : string; begin procedure TExtElementLoader.InitDefaults; begin inherited; FAjaxOptions := TExtObject.CreateInternal(Self, 'ajaxOptions'); - FAutoLoadTExtObject := TExtObject.CreateInternal(Self, 'autoLoad'); + FAutoLoadObject := TExtObject.CreateInternal(Self, 'autoLoad'); FBaseParams := TExtObject.CreateInternal(Self, 'baseParams'); FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); FParams := TExtObject.CreateInternal(Self, 'params'); FScope := TExtObject.CreateInternal(Self, 'scope'); - FTargetTExtElement := TExtElement.CreateInternal(Self, 'target'); + FTargetElement := TExtElement.CreateInternal(Self, 'target'); end; {$IFDEF FPC}constructor TExtElementLoader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -19493,13 +19419,13 @@ function TExtElementLoader.SuspendEvents(QueueSuspended : Boolean) : TExtFunctio destructor TExtElementLoader.Destroy; begin try FAjaxOptions.Free; - FAutoLoadTExtObject.Free; + FAutoLoadObject.Free; FBaseParams.Free; FHasListeners.Free; FListeners.Free; FParams.Free; FScope.Free; - FTargetTExtElement.Free; + FTargetElement.Free; except end; inherited; end; @@ -20207,8 +20133,8 @@ procedure TExtDrawSprite.SetFGroup(Value : String); begin JSCode('group:' + VarToJSON([Value])); end; -procedure TExtDrawSprite.SetFGroupTExtObjectList(Value : TExtObjectList); begin - FGroupTExtObjectList := Value; +procedure TExtDrawSprite.SetFGroupList(Value : TExtObjectList); begin + FGroupList := Value; Value.DeleteFromGarbage; JSCode('group:' + VarToJSON([Value, false])); end; @@ -20312,7 +20238,7 @@ function TExtDrawSprite.JSClassName : string; begin procedure TExtDrawSprite.InitDefaults; begin inherited; FDd := TExtDdDragSource.CreateInternal(Self, 'dd'); - FGroupTExtObjectList := TExtObjectList.Create(Self, 'group'); + FGroupList := TExtObjectList.Create(Self, 'group'); FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); end; @@ -20477,7 +20403,7 @@ function TExtDrawSprite.SyncFx : TExtFunction; begin destructor TExtDrawSprite.Destroy; begin try FDd.Free; - FGroupTExtObjectList.Free; + FGroupList.Free; FHasListeners.Free; FListeners.Free; except end; @@ -20501,6 +20427,12 @@ function TExtDrawMatrix.JSClassName : string; begin {$IFDEF FPC}constructor TExtDrawMatrix.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtShadowPoolSingleton.JSClassName : string; begin + Result := 'Ext.ShadowPool'; +end; + +{$IFDEF FPC}constructor TExtShadowPoolSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtSliderThumb.SetFConstrain(Value : Boolean); begin FConstrain := Value; JSCode('constrain:' + VarToJSON([Value])); @@ -20555,127 +20487,11 @@ destructor TExtSliderThumb.Destroy; begin inherited; end; -procedure TExtUtilObservable.SetFHasListeners(Value : TExtObject); begin - FHasListeners := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtUtilObservable.SetFIsObservable(Value : Boolean); begin - FIsObservable := Value; - JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtUtilObservable.SetFListeners(Value : TExtObject); begin - FListeners := Value; - Value.DeleteFromGarbage; - JSCode('listeners:' + VarToJSON([Value, false])); -end; - -function TExtUtilObservable.JSClassName : string; begin - Result := 'Ext.util.Observable'; -end; - -procedure TExtUtilObservable.InitDefaults; begin - inherited; - FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); - FListeners := TExtObject.CreateInternal(Self, 'listeners'); -end; - -{$IFDEF FPC}constructor TExtUtilObservable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtUtilObservable.AddEvents(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin - JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.ClearListeners : TExtFunction; begin - JSCode(JSName + '.clearListeners();', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.ClearManagedListeners : TExtFunction; begin - JSCode(JSName + '.clearManagedListeners();', 'TExtUtilObservable'); - Result := Self; -end; - -constructor TExtUtilObservable.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtUtilObservable.EnableBubble(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.HasListener(EventName : String) : TExtFunction; begin - JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin - JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.ResumeEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.ResumeEvents : TExtFunction; begin - JSCode(JSName + '.resumeEvents();', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.SuspendEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); - Result := Self; -end; - -function TExtUtilObservable.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin - JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtUtilObservable'); - Result := Self; +function TExtRtlViewTable.JSClassName : string; begin + Result := 'Ext.rtl.view.Table'; end; -destructor TExtUtilObservable.Destroy; begin - try - FHasListeners.Free; - FListeners.Free; - except end; - inherited; -end; +{$IFDEF FPC}constructor TExtRtlViewTable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtShadow.SetFMode(Value : String); begin FMode := Value; @@ -20723,12 +20539,6 @@ function TExtShadow.Show(TargetEl : String) : TExtFunction; begin Result := Self; end; -function TExtShadowPoolSingleton.JSClassName : string; begin - Result := 'Ext.ShadowPool'; -end; - -{$IFDEF FPC}constructor TExtShadowPoolSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtStateStateful.SetFHasListeners(Value : TExtObject); begin FHasListeners := Value; Value.DeleteFromGarbage; @@ -20948,69 +20758,29 @@ procedure TExtStateStateful.HandleEvent(const AEvtName : string); begin FOnStatesave(TExtStateStateful(ParamAsObject('This')), TExtObject(ParamAsObject('State'))); end; -procedure TExtTemplate.SetFCompiled(Value : Boolean); begin - FCompiled := Value; - JSCode('compiled:' + VarToJSON([Value])); -end; - -procedure TExtTemplate.SetFDisableFormats(Value : Boolean); begin - FDisableFormats := Value; - JSCode('disableFormats:' + VarToJSON([Value])); -end; - -function TExtTemplate.JSClassName : string; begin - Result := 'Ext.Template'; -end; - -{$IFDEF FPC}constructor TExtTemplate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtTemplate.Append(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.append(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); - Result := Self; -end; - -function TExtTemplate.Apply(Values : TExtObject) : TExtFunction; begin - JSCode(JSName + '.apply(' + VarToJSON([Values, false]) + ');', 'TExtTemplate'); - Result := Self; -end; - -function TExtTemplate.ApplyOut(Values : TExtObject; OutJS : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.applyOut(' + VarToJSON([Values, false]) + ',' + VarToJSON(OutJS) + ');', 'TExtTemplate'); - Result := Self; -end; - -function TExtTemplate.ApplyTemplate : TExtFunction; begin - JSCode(JSName + '.applyTemplate();', 'TExtTemplate'); - Result := Self; -end; - -function TExtTemplate.Compile : TExtFunction; begin - JSCode(JSName + '.compile();', 'TExtTemplate'); - Result := Self; +function TExtUtilMemento.JSClassName : string; begin + Result := 'Ext.util.Memento'; end; -function TExtTemplate.InsertAfter(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.insertAfter(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtUtilMemento.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtTemplate.InsertBefore(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.insertBefore(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); +function TExtUtilMemento.Capture(Props : String; Target : TExtObject) : TExtFunction; begin + JSCode(JSName + '.capture(' + VarToJSON([Props, Target, false]) + ');', 'TExtUtilMemento'); Result := Self; end; -function TExtTemplate.InsertFirst(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.insertFirst(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); +function TExtUtilMemento.Remove(Props : String) : TExtFunction; begin + JSCode(JSName + '.remove(' + VarToJSON([Props]) + ');', 'TExtUtilMemento'); Result := Self; end; -function TExtTemplate.Overwrite(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.overwrite(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); +function TExtUtilMemento.Restore(Props : String; Clear : Boolean; Target : TExtObject) : TExtFunction; begin + JSCode(JSName + '.restore(' + VarToJSON([Props, Clear, Target, false]) + ');', 'TExtUtilMemento'); Result := Self; end; -function TExtTemplate.SetJS(Html : String; Compile : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.set(' + VarToJSON([Html, Compile]) + ');', 'TExtTemplate'); +function TExtUtilMemento.RestoreAll(Clear : Boolean; Target : TExtObject) : TExtFunction; begin + JSCode(JSName + '.restoreAll(' + VarToJSON([Clear, Target, false]) + ');', 'TExtUtilMemento'); Result := Self; end; @@ -21190,17 +20960,23 @@ function TExtStateProvider.SuspendEvents(QueueSuspended : Boolean) : TExtFunctio Result := Self; end; +function TExtRtlResizerSplitterTracker.JSClassName : string; begin + Result := 'Ext.rtl.resizer.SplitterTracker'; +end; + +{$IFDEF FPC}constructor TExtRtlResizerSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + function TExtRtlSliderMulti.JSClassName : string; begin Result := 'Ext.rtl.slider.Multi'; end; {$IFDEF FPC}constructor TExtRtlSliderMulti.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlTabBar.JSClassName : string; begin - Result := 'Ext.rtl.tab.Bar'; +function TExtRtlResizerBorderSplitterTracker.JSClassName : string; begin + Result := 'Ext.rtl.resizer.BorderSplitterTracker'; end; -{$IFDEF FPC}constructor TExtRtlTabBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlResizerBorderSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlResizerResizeTracker.JSClassName : string; begin Result := 'Ext.rtl.resizer.ResizeTracker'; @@ -21208,11 +20984,11 @@ function TExtRtlResizerResizeTracker.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlResizerResizeTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlResizerSplitterTracker.JSClassName : string; begin - Result := 'Ext.rtl.resizer.SplitterTracker'; +function TExtRtlUtilFloating.JSClassName : string; begin + Result := 'Ext.rtl.util.Floating'; end; -{$IFDEF FPC}constructor TExtRtlResizerSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlUtilFloating.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlUtilRenderable.JSClassName : string; begin Result := 'Ext.rtl.util.Renderable'; @@ -21220,11 +20996,11 @@ function TExtRtlUtilRenderable.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlUtilRenderable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlViewTable.JSClassName : string; begin - Result := 'Ext.rtl.view.Table'; +function TExtRtlTabBar.JSClassName : string; begin + Result := 'Ext.rtl.tab.Bar'; end; -{$IFDEF FPC}constructor TExtRtlViewTable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlTabBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlTreeColumn.JSClassName : string; begin Result := 'Ext.rtl.tree.Column'; @@ -21232,12 +21008,6 @@ function TExtRtlTreeColumn.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlTreeColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlUtilFloating.JSClassName : string; begin - Result := 'Ext.rtl.util.Floating'; -end; - -{$IFDEF FPC}constructor TExtRtlUtilFloating.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - function TExtUtilCookiesSingleton.JSClassName : string; begin Result := 'Ext.util.Cookies'; end; @@ -21518,6 +21288,227 @@ function TExtUtilEvent.JSClassName : string; begin {$IFDEF FPC}constructor TExtUtilEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtTipQuickTipManagerSingleton.JSClassName : string; begin + Result := 'Ext.tip.QuickTipManager'; +end; + +{$IFDEF FPC}constructor TExtTipQuickTipManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtTipQuickTipManagerSingleton.Disable : TExtFunction; begin + JSCode(JSName + '.disable();', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.Enable : TExtFunction; begin + JSCode(JSName + '.enable();', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.GetQuickTip : TExtFunction; begin + JSCode(JSName + '.getQuickTip();', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.Init(AutoRender : Boolean = false; Config : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.init(' + VarToJSON([AutoRender, Config, false]) + ');', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.IsEnabled : TExtFunction; begin + JSCode(JSName + '.isEnabled();', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.Register(Config : TExtObject) : TExtFunction; begin + JSCode(JSName + '.register(' + VarToJSON([Config, false]) + ');', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.Tips : TExtFunction; begin + JSCode(JSName + '.tips();', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +function TExtTipQuickTipManagerSingleton.Unregister(El : String) : TExtFunction; begin + JSCode(JSName + '.unregister(' + VarToJSON([El]) + ');', 'TExtTipQuickTipManagerSingleton'); + Result := Self; +end; + +procedure TExtUtilKeyMap.SetFBinding(Value : TExtObjectList); begin + FBinding := Value; + Value.DeleteFromGarbage; + JSCode('binding:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilKeyMap.SetFEventName(Value : String); begin + FEventName := Value; + JSCode('eventName:' + VarToJSON([Value])); +end; + +procedure TExtUtilKeyMap.SetFIgnoreInputFields(Value : Boolean); begin + FIgnoreInputFields := Value; + JSCode('ignoreInputFields:' + VarToJSON([Value])); +end; + +procedure TExtUtilKeyMap.SetFProcessEvent(Value : TExtFunction); begin + FProcessEvent := Value; + JSCode('processEvent:' + VarToJSON([Value, true])); +end; + +procedure TExtUtilKeyMap.SetFProcessEventScope(Value : TExtObject); begin + FProcessEventScope := Value; + Value.DeleteFromGarbage; + JSCode('processEventScope:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilKeyMap.SetFTarget(Value : TExtComponent); begin + FTarget := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilKeyMap.SetFTargetElement(Value : TExtElement); begin + FTargetElement := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilKeyMap.SetFTargetString(Value : String); begin + FTargetString := Value; + JSCode('target:' + VarToJSON([Value])); +end; + +procedure TExtUtilKeyMap.SetFTargetTHTMLElement(Value : THTMLElement); begin + FTargetTHTMLElement := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +function TExtUtilKeyMap.JSClassName : string; begin + Result := 'Ext.util.KeyMap'; +end; + +procedure TExtUtilKeyMap.InitDefaults; begin + inherited; + FBinding := TExtObjectList.Create(Self, 'binding'); + FProcessEventScope := TExtObject.CreateInternal(Self, 'processEventScope'); + FTarget := TExtComponent.CreateInternal(Self, 'target'); + FTargetElement := TExtElement.CreateInternal(Self, 'target'); +end; + +{$IFDEF FPC}constructor TExtUtilKeyMap.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtUtilKeyMap.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtUtilKeyMap.Disable : TExtFunction; begin + JSCode(JSName + '.disable();', 'TExtUtilKeyMap'); + Result := Self; +end; + +function TExtUtilKeyMap.Enable : TExtFunction; begin + JSCode(JSName + '.enable();', 'TExtUtilKeyMap'); + Result := Self; +end; + +function TExtUtilKeyMap.IsEnabled : TExtFunction; begin + JSCode(JSName + '.isEnabled();', 'TExtUtilKeyMap'); + Result := Self; +end; + +function TExtUtilKeyMap.On(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.on(' + VarToJSON([Key, Fn, true, Scope, false]) + ');', 'TExtUtilKeyMap'); + Result := Self; +end; + +function TExtUtilKeyMap.SetDisabled(Disabled : Boolean) : TExtFunction; begin + JSCode(JSName + '.setDisabled(' + VarToJSON([Disabled]) + ');', 'TExtUtilKeyMap'); + Result := Self; +end; + +function TExtUtilKeyMap.Un(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.un(' + VarToJSON([Key, Fn, true, Scope, false]) + ');', 'TExtUtilKeyMap'); + Result := Self; +end; + +destructor TExtUtilKeyMap.Destroy; begin + try + FBinding.Free; + FProcessEventScope.Free; + FTarget.Free; + FTargetElement.Free; + except end; + inherited; +end; + +procedure TExtTemplate.SetFCompiled(Value : Boolean); begin + FCompiled := Value; + JSCode('compiled:' + VarToJSON([Value])); +end; + +procedure TExtTemplate.SetFDisableFormats(Value : Boolean); begin + FDisableFormats := Value; + JSCode('disableFormats:' + VarToJSON([Value])); +end; + +function TExtTemplate.JSClassName : string; begin + Result := 'Ext.Template'; +end; + +{$IFDEF FPC}constructor TExtTemplate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtTemplate.Append(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.append(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.Apply(Values : TExtObject) : TExtFunction; begin + JSCode(JSName + '.apply(' + VarToJSON([Values, false]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.ApplyOut(Values : TExtObject; OutJS : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.applyOut(' + VarToJSON([Values, false]) + ',' + VarToJSON(OutJS) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.ApplyTemplate : TExtFunction; begin + JSCode(JSName + '.applyTemplate();', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.Compile : TExtFunction; begin + JSCode(JSName + '.compile();', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.InsertAfter(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.insertAfter(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.InsertBefore(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.insertBefore(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.InsertFirst(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.insertFirst(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.Overwrite(El : String; Values : TExtObject; ReturnElement : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.overwrite(' + VarToJSON([El, Values, false, ReturnElement]) + ');', 'TExtTemplate'); + Result := Self; +end; + +function TExtTemplate.SetJS(Html : String; Compile : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.set(' + VarToJSON([Html, Compile]) + ');', 'TExtTemplate'); + Result := Self; +end; + procedure TExtUtilKeyNav.SetFDefaultEventAction(Value : String); begin FDefaultEventAction := Value; JSCode('defaultEventAction:' + VarToJSON([Value])); @@ -21569,17 +21560,17 @@ procedure TExtUtilKeyNav.SetFTarget(Value : TExtComponent); begin JSCode('target:' + VarToJSON([Value, false])); end; +procedure TExtUtilKeyNav.SetFTargetElement(Value : TExtElement); begin + FTargetElement := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + procedure TExtUtilKeyNav.SetFTargetString(Value : String); begin FTargetString := Value; JSCode('target:' + VarToJSON([Value])); end; -procedure TExtUtilKeyNav.SetFTargetTExtElement(Value : TExtElement); begin - FTargetTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - procedure TExtUtilKeyNav.SetFTargetTHTMLElement(Value : THTMLElement); begin FTargetTHTMLElement := Value; Value.DeleteFromGarbage; @@ -21595,7 +21586,7 @@ procedure TExtUtilKeyNav.InitDefaults; begin FKeyMap := TExtUtilKeyMap.CreateInternal(Self, 'keyMap'); FProcessEventScope := TExtObject.CreateInternal(Self, 'processEventScope'); FTarget := TExtComponent.CreateInternal(Self, 'target'); - FTargetTExtElement := TExtElement.CreateInternal(Self, 'target'); + FTargetElement := TExtElement.CreateInternal(Self, 'target'); end; {$IFDEF FPC}constructor TExtUtilKeyNav.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -21625,200 +21616,11 @@ destructor TExtUtilKeyNav.Destroy; begin FKeyMap.Free; FProcessEventScope.Free; FTarget.Free; - FTargetTExtElement.Free; - except end; - inherited; -end; - -procedure TExtUtilKeyMap.SetFBinding(Value : TExtObject); begin - FBinding := Value; - Value.DeleteFromGarbage; - JSCode('binding:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilKeyMap.SetFBindingTExtObjectList(Value : TExtObjectList); begin - FBindingTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('binding:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilKeyMap.SetFEventName(Value : String); begin - FEventName := Value; - JSCode('eventName:' + VarToJSON([Value])); -end; - -procedure TExtUtilKeyMap.SetFIgnoreInputFields(Value : Boolean); begin - FIgnoreInputFields := Value; - JSCode('ignoreInputFields:' + VarToJSON([Value])); -end; - -procedure TExtUtilKeyMap.SetFProcessEvent(Value : TExtFunction); begin - FProcessEvent := Value; - JSCode('processEvent:' + VarToJSON([Value, true])); -end; - -procedure TExtUtilKeyMap.SetFProcessEventScope(Value : TExtObject); begin - FProcessEventScope := Value; - Value.DeleteFromGarbage; - JSCode('processEventScope:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilKeyMap.SetFTarget(Value : TExtComponent); begin - FTarget := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilKeyMap.SetFTargetString(Value : String); begin - FTargetString := Value; - JSCode('target:' + VarToJSON([Value])); -end; - -procedure TExtUtilKeyMap.SetFTargetTExtElement(Value : TExtElement); begin - FTargetTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilKeyMap.SetFTargetTHTMLElement(Value : THTMLElement); begin - FTargetTHTMLElement := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -function TExtUtilKeyMap.JSClassName : string; begin - Result := 'Ext.util.KeyMap'; -end; - -procedure TExtUtilKeyMap.InitDefaults; begin - inherited; - FBinding := TExtObject.CreateInternal(Self, 'binding'); - FBindingTExtObjectList := TExtObjectList.Create(Self, 'binding'); - FProcessEventScope := TExtObject.CreateInternal(Self, 'processEventScope'); - FTarget := TExtComponent.CreateInternal(Self, 'target'); - FTargetTExtElement := TExtElement.CreateInternal(Self, 'target'); -end; - -{$IFDEF FPC}constructor TExtUtilKeyMap.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtUtilKeyMap.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtUtilKeyMap.Disable : TExtFunction; begin - JSCode(JSName + '.disable();', 'TExtUtilKeyMap'); - Result := Self; -end; - -function TExtUtilKeyMap.Enable : TExtFunction; begin - JSCode(JSName + '.enable();', 'TExtUtilKeyMap'); - Result := Self; -end; - -function TExtUtilKeyMap.IsEnabled : TExtFunction; begin - JSCode(JSName + '.isEnabled();', 'TExtUtilKeyMap'); - Result := Self; -end; - -function TExtUtilKeyMap.On(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.on(' + VarToJSON([Key, Fn, true, Scope, false]) + ');', 'TExtUtilKeyMap'); - Result := Self; -end; - -function TExtUtilKeyMap.SetDisabled(Disabled : Boolean) : TExtFunction; begin - JSCode(JSName + '.setDisabled(' + VarToJSON([Disabled]) + ');', 'TExtUtilKeyMap'); - Result := Self; -end; - -function TExtUtilKeyMap.Un(Key : Integer; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.un(' + VarToJSON([Key, Fn, true, Scope, false]) + ');', 'TExtUtilKeyMap'); - Result := Self; -end; - -destructor TExtUtilKeyMap.Destroy; begin - try - FBinding.Free; - FBindingTExtObjectList.Free; - FProcessEventScope.Free; - FTarget.Free; - FTargetTExtElement.Free; + FTargetElement.Free; except end; inherited; end; -function TExtUtilMemento.JSClassName : string; begin - Result := 'Ext.util.Memento'; -end; - -{$IFDEF FPC}constructor TExtUtilMemento.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtUtilMemento.Capture(Props : String; Target : TExtObject) : TExtFunction; begin - JSCode(JSName + '.capture(' + VarToJSON([Props, Target, false]) + ');', 'TExtUtilMemento'); - Result := Self; -end; - -function TExtUtilMemento.Remove(Props : String) : TExtFunction; begin - JSCode(JSName + '.remove(' + VarToJSON([Props]) + ');', 'TExtUtilMemento'); - Result := Self; -end; - -function TExtUtilMemento.Restore(Props : String; Clear : Boolean; Target : TExtObject) : TExtFunction; begin - JSCode(JSName + '.restore(' + VarToJSON([Props, Clear, Target, false]) + ');', 'TExtUtilMemento'); - Result := Self; -end; - -function TExtUtilMemento.RestoreAll(Clear : Boolean; Target : TExtObject) : TExtFunction; begin - JSCode(JSName + '.restoreAll(' + VarToJSON([Clear, Target, false]) + ');', 'TExtUtilMemento'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.JSClassName : string; begin - Result := 'Ext.tip.QuickTipManager'; -end; - -{$IFDEF FPC}constructor TExtTipQuickTipManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtTipQuickTipManagerSingleton.Disable : TExtFunction; begin - JSCode(JSName + '.disable();', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.Enable : TExtFunction; begin - JSCode(JSName + '.enable();', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.GetQuickTip : TExtFunction; begin - JSCode(JSName + '.getQuickTip();', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.Init(AutoRender : Boolean = false; Config : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.init(' + VarToJSON([AutoRender, Config, false]) + ');', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.IsEnabled : TExtFunction; begin - JSCode(JSName + '.isEnabled();', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.Register(Config : TExtObject) : TExtFunction; begin - JSCode(JSName + '.register(' + VarToJSON([Config, false]) + ');', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.Tips : TExtFunction; begin - JSCode(JSName + '.tips();', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - -function TExtTipQuickTipManagerSingleton.Unregister(El : String) : TExtFunction; begin - JSCode(JSName + '.unregister(' + VarToJSON([El]) + ');', 'TExtTipQuickTipManagerSingleton'); - Result := Self; -end; - procedure TExtUtilHashMap.SetFHasListeners(Value : TExtObject); begin FHasListeners := Value; Value.DeleteFromGarbage; @@ -22522,11 +22324,17 @@ procedure TExtUtilHistorySingleton.HandleEvent(const AEvtName : string); begin FOnReady(TExtUtilHistory(ParamAsObject('The'))); end; -function TExtRtlResizerBorderSplitterTracker.JSClassName : string; begin - Result := 'Ext.rtl.resizer.BorderSplitterTracker'; +function TExtRtlPanelHeader.JSClassName : string; begin + Result := 'Ext.rtl.panel.Header'; end; -{$IFDEF FPC}constructor TExtRtlResizerBorderSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlPanelHeader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtRtlDomElement_position.JSClassName : string; begin + Result := 'Ext.rtl.dom.Elementposition'; +end; + +{$IFDEF FPC}constructor TExtRtlDomElement_position.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlDomElement_scroll.JSClassName : string; begin Result := 'Ext.rtl.dom.Elementscroll'; @@ -22534,11 +22342,11 @@ function TExtRtlDomElement_scroll.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlDomElement_scroll.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlDomElement_static.JSClassName : string; begin - Result := 'Ext.rtl.dom.Elementstatic'; +function TExtRtlDomElement_anim.JSClassName : string; begin + Result := 'Ext.rtl.dom.Elementanim'; end; -{$IFDEF FPC}constructor TExtRtlDomElement_static.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlDomElement_anim.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlDomElement_insertion.JSClassName : string; begin Result := 'Ext.rtl.dom.Elementinsertion'; @@ -22546,11 +22354,11 @@ function TExtRtlDomElement_insertion.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlDomElement_insertion.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlDomElement_position.JSClassName : string; begin - Result := 'Ext.rtl.dom.Elementposition'; +function TExtRtlEventObjectImpl.JSClassName : string; begin + Result := 'Ext.rtl.EventObjectImpl'; end; -{$IFDEF FPC}constructor TExtRtlDomElement_position.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlEventObjectImpl.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlFormFieldSpinner.JSClassName : string; begin Result := 'Ext.rtl.form.field.Spinner'; @@ -22558,11 +22366,11 @@ function TExtRtlFormFieldSpinner.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlFormFieldSpinner.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlFormFieldTrigger.JSClassName : string; begin - Result := 'Ext.rtl.form.field.Trigger'; +function TExtRtlDomElement_static.JSClassName : string; begin + Result := 'Ext.rtl.dom.Elementstatic'; end; -{$IFDEF FPC}constructor TExtRtlFormFieldTrigger.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlDomElement_static.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlDomLayer.JSClassName : string; begin Result := 'Ext.rtl.dom.Layer'; @@ -22570,11 +22378,11 @@ function TExtRtlDomLayer.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlDomLayer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlEventObjectImpl.JSClassName : string; begin - Result := 'Ext.rtl.EventObjectImpl'; +function TExtPerfAccumulator.JSClassName : string; begin + Result := 'Ext.perf.Accumulator'; end; -{$IFDEF FPC}constructor TExtRtlEventObjectImpl.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtPerfAccumulator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtPerfMonitorSingleton.JSClassName : string; begin Result := 'Ext.perf.Monitor'; @@ -22582,14 +22390,194 @@ function TExtPerfMonitorSingleton.JSClassName : string; begin {$IFDEF FPC}constructor TExtPerfMonitorSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtPanelProxy.SetFInsertProxy(Value : Boolean); begin + FInsertProxy := Value; + JSCode('insertProxy:' + VarToJSON([Value])); +end; + +procedure TExtPanelProxy.SetFMoveOnDrag(Value : Boolean); begin + FMoveOnDrag := Value; + JSCode('moveOnDrag:' + VarToJSON([Value])); +end; + +function TExtPanelProxy.JSClassName : string; begin + Result := 'Ext.panel.Proxy'; +end; + +{$IFDEF FPC}constructor TExtPanelProxy.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtPanelProxy.GetEl : TExtFunction; begin + JSCode(JSName + '.getEl();', 'TExtPanelProxy'); + Result := Self; +end; + +function TExtPanelProxy.GetGhost : TExtFunction; begin + JSCode(JSName + '.getGhost();', 'TExtPanelProxy'); + Result := Self; +end; + +function TExtPanelProxy.GetProxy : TExtFunction; begin + JSCode(JSName + '.getProxy();', 'TExtPanelProxy'); + Result := Self; +end; + +function TExtPanelProxy.Hide : TExtFunction; begin + JSCode(JSName + '.hide();', 'TExtPanelProxy'); + Result := Self; +end; + +function TExtPanelProxy.MoveProxy(ParentNode : THTMLElement; Before : THTMLElement = nil) : TExtFunction; begin + JSCode(JSName + '.moveProxy(' + VarToJSON([ParentNode, false, Before, false]) + ');', 'TExtPanelProxy'); + Result := Self; +end; + +function TExtPanelProxy.Show : TExtFunction; begin + JSCode(JSName + '.show();', 'TExtPanelProxy'); + Result := Self; +end; + +procedure TExtUtilObservable.SetFHasListeners(Value : TExtObject); begin + FHasListeners := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); +end; + +procedure TExtUtilObservable.SetFIsObservable(Value : Boolean); begin + FIsObservable := Value; + JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); +end; + +procedure TExtUtilObservable.SetFListeners(Value : TExtObject); begin + FListeners := Value; + Value.DeleteFromGarbage; + JSCode('listeners:' + VarToJSON([Value, false])); +end; + +function TExtUtilObservable.JSClassName : string; begin + Result := 'Ext.util.Observable'; +end; + +procedure TExtUtilObservable.InitDefaults; begin + inherited; + FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); + FListeners := TExtObject.CreateInternal(Self, 'listeners'); +end; + +{$IFDEF FPC}constructor TExtUtilObservable.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtUtilObservable.AddEvents(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin + JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.ClearListeners : TExtFunction; begin + JSCode(JSName + '.clearListeners();', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.ClearManagedListeners : TExtFunction; begin + JSCode(JSName + '.clearManagedListeners();', 'TExtUtilObservable'); + Result := Self; +end; + +constructor TExtUtilObservable.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtUtilObservable.EnableBubble(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.HasListener(EventName : String) : TExtFunction; begin + JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin + JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.ResumeEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.ResumeEvents : TExtFunction; begin + JSCode(JSName + '.resumeEvents();', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.SuspendEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +function TExtUtilObservable.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin + JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtUtilObservable'); + Result := Self; +end; + +destructor TExtUtilObservable.Destroy; begin + try + FHasListeners.Free; + FListeners.Free; + except end; + inherited; +end; + +function TExtRtlButton.JSClassName : string; begin + Result := 'Ext.rtl.button.Button'; +end; + +{$IFDEF FPC}constructor TExtRtlButton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtRtlDdDD.JSClassName : string; begin + Result := 'Ext.rtl.dd.DD'; +end; + +{$IFDEF FPC}constructor TExtRtlDdDD.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtResizer.SetFConstrainTo(Value : TExtElement); begin FConstrainTo := Value; Value.DeleteFromGarbage; JSCode('constrainTo:' + VarToJSON([Value, false])); end; -procedure TExtResizer.SetFConstrainToTExtUtilRegion(Value : TExtUtilRegion); begin - FConstrainToTExtUtilRegion := Value; +procedure TExtResizer.SetFConstrainToRegion(Value : TExtUtilRegion); begin + FConstrainToRegion := Value; Value.DeleteFromGarbage; JSCode('constrainTo:' + VarToJSON([Value, false])); end; @@ -22663,8 +22651,8 @@ procedure TExtResizer.SetFOriginalTarget(Value : TExtElement); begin JSCode(JSName + '.originalTarget=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtResizer.SetFOriginalTargetTExtComponent(Value : TExtComponent); begin - FOriginalTargetTExtComponent := Value; +procedure TExtResizer.SetFOriginalTargetComponent(Value : TExtComponent); begin + FOriginalTargetComponent := Value; Value.DeleteFromGarbage; JSCode(JSName + '.originalTarget=' + VarToJSON([Value, false]) + ';'); end; @@ -22691,8 +22679,8 @@ procedure TExtResizer.SetFTarget(Value : TExtElement); begin JSCode('target:' + VarToJSON([Value, false])); end; -procedure TExtResizer.SetFTargetTExtComponent(Value : TExtComponent); begin - FTargetTExtComponent := Value; +procedure TExtResizer.SetFTargetComponent(Value : TExtComponent); begin + FTargetComponent := Value; Value.DeleteFromGarbage; JSCode('target:' + VarToJSON([Value, false])); end; @@ -22719,16 +22707,16 @@ function TExtResizer.JSClassName : string; begin procedure TExtResizer.InitDefaults; begin inherited; FConstrainTo := TExtElement.CreateInternal(Self, 'constrainTo'); - FConstrainToTExtUtilRegion := TExtUtilRegion.CreateInternal(Self, 'constrainTo'); + FConstrainToRegion := TExtUtilRegion.CreateInternal(Self, 'constrainTo'); FEl := TExtElement.CreateInternal(Self, 'el'); FHandles := 's e se'; FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); FOriginalTarget := TExtElement.CreateInternal(Self, 'originalTarget'); - FOriginalTargetTExtComponent := TExtComponent.CreateInternal(Self, 'originalTarget'); + FOriginalTargetComponent := TExtComponent.CreateInternal(Self, 'originalTarget'); FResizeTracker := TExtResizerResizeTracker.CreateInternal(Self, 'resizeTracker'); FTarget := TExtElement.CreateInternal(Self, 'target'); - FTargetTExtComponent := TExtComponent.CreateInternal(Self, 'target'); + FTargetComponent := TExtComponent.CreateInternal(Self, 'target'); end; {$IFDEF FPC}constructor TExtResizer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -22836,43 +22824,19 @@ function TExtResizer.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; beg destructor TExtResizer.Destroy; begin try FConstrainTo.Free; - FConstrainToTExtUtilRegion.Free; + FConstrainToRegion.Free; FEl.Free; FHasListeners.Free; FListeners.Free; FOriginalTarget.Free; - FOriginalTargetTExtComponent.Free; + FOriginalTargetComponent.Free; FResizeTracker.Free; FTarget.Free; - FTargetTExtComponent.Free; + FTargetComponent.Free; except end; inherited; end; -function TExtUtilOffset.JSClassName : string; begin - Result := 'Ext.util.Offset'; -end; - -{$IFDEF FPC}constructor TExtUtilOffset.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtPerfAccumulator.JSClassName : string; begin - Result := 'Ext.perf.Accumulator'; -end; - -{$IFDEF FPC}constructor TExtPerfAccumulator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtRtlDdDD.JSClassName : string; begin - Result := 'Ext.rtl.dd.DD'; -end; - -{$IFDEF FPC}constructor TExtRtlDdDD.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtRtlDomElement_anim.JSClassName : string; begin - Result := 'Ext.rtl.dom.Elementanim'; -end; - -{$IFDEF FPC}constructor TExtRtlDomElement_anim.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtRtlAbstractComponent.SetFRtl(Value : Boolean); begin FRtl := Value; JSCode('rtl:' + VarToJSON([Value])); @@ -22884,11 +22848,11 @@ function TExtRtlAbstractComponent.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlAbstractComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlButton.JSClassName : string; begin - Result := 'Ext.rtl.button.Button'; +function TExtRtlLayoutContainerBoxOverflowScroller.JSClassName : string; begin + Result := 'Ext.rtl.layout.container.boxOverflow.Scroller'; end; -{$IFDEF FPC}constructor TExtRtlButton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlLayoutContainerBoxOverflowScroller.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlLayoutContainerColumn.JSClassName : string; begin Result := 'Ext.rtl.layout.container.Column'; @@ -22896,11 +22860,11 @@ function TExtRtlLayoutContainerColumn.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlLayoutContainerColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlLayoutContainerHBox.JSClassName : string; begin - Result := 'Ext.rtl.layout.container.HBox'; +function TExtRtlLayoutContainerAbsolute.JSClassName : string; begin + Result := 'Ext.rtl.layout.container.Absolute'; end; -{$IFDEF FPC}constructor TExtRtlLayoutContainerHBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlLayoutContainerAbsolute.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlLayoutContainerBox.JSClassName : string; begin Result := 'Ext.rtl.layout.container.Box'; @@ -22908,11 +22872,11 @@ function TExtRtlLayoutContainerBox.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlLayoutContainerBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlLayoutContainerBoxOverflowScroller.JSClassName : string; begin - Result := 'Ext.rtl.layout.container.boxOverflow.Scroller'; +function TExtRtlLayoutContextItem.JSClassName : string; begin + Result := 'Ext.rtl.layout.ContextItem'; end; -{$IFDEF FPC}constructor TExtRtlLayoutContainerBoxOverflowScroller.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlLayoutContextItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlPanel.JSClassName : string; begin Result := 'Ext.rtl.panel.Panel'; @@ -22920,11 +22884,11 @@ function TExtRtlPanel.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlPanelHeader.JSClassName : string; begin - Result := 'Ext.rtl.panel.Header'; +function TExtRtlLayoutContainerHBox.JSClassName : string; begin + Result := 'Ext.rtl.layout.container.HBox'; end; -{$IFDEF FPC}constructor TExtRtlPanelHeader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlLayoutContainerHBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlLayoutContainerVBox.JSClassName : string; begin Result := 'Ext.rtl.layout.container.VBox'; @@ -22932,11 +22896,11 @@ function TExtRtlLayoutContainerVBox.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlLayoutContainerVBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlLayoutContextItem.JSClassName : string; begin - Result := 'Ext.rtl.layout.ContextItem'; +function TExtRtlGridPluginHeaderResizer.JSClassName : string; begin + Result := 'Ext.rtl.grid.plugin.HeaderResizer'; end; -{$IFDEF FPC}constructor TExtRtlLayoutContextItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlGridPluginHeaderResizer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlGridPluginRowEditing.JSClassName : string; begin Result := 'Ext.rtl.grid.plugin.RowEditing'; @@ -22944,11 +22908,11 @@ function TExtRtlGridPluginRowEditing.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlGridPluginRowEditing.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlGridRowEditor.JSClassName : string; begin - Result := 'Ext.rtl.grid.RowEditor'; +function TExtRtlFormFieldTrigger.JSClassName : string; begin + Result := 'Ext.rtl.form.field.Trigger'; end; -{$IFDEF FPC}constructor TExtRtlGridRowEditor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlFormFieldTrigger.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlGridColumn.JSClassName : string; begin Result := 'Ext.rtl.grid.column.Column'; @@ -22956,11 +22920,11 @@ function TExtRtlGridColumn.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlGridColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlGridPluginHeaderResizer.JSClassName : string; begin - Result := 'Ext.rtl.grid.plugin.HeaderResizer'; +function TExtRtlLayoutComponentFieldText.JSClassName : string; begin + Result := 'Ext.rtl.layout.component.field.Text'; end; -{$IFDEF FPC}constructor TExtRtlGridPluginHeaderResizer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlLayoutComponentFieldText.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlLayoutComponentFieldTrigger.JSClassName : string; begin Result := 'Ext.rtl.layout.component.field.Trigger'; @@ -22968,11 +22932,11 @@ function TExtRtlLayoutComponentFieldTrigger.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlLayoutComponentFieldTrigger.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlLayoutContainerAbsolute.JSClassName : string; begin - Result := 'Ext.rtl.layout.container.Absolute'; +function TExtRtlGridRowEditor.JSClassName : string; begin + Result := 'Ext.rtl.grid.RowEditor'; end; -{$IFDEF FPC}constructor TExtRtlLayoutContainerAbsolute.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtRtlGridRowEditor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtRtlLayoutComponentDock.JSClassName : string; begin Result := 'Ext.rtl.layout.component.Dock'; @@ -22980,12 +22944,6 @@ function TExtRtlLayoutComponentDock.JSClassName : string; begin {$IFDEF FPC}constructor TExtRtlLayoutComponentDock.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtRtlLayoutComponentFieldText.JSClassName : string; begin - Result := 'Ext.rtl.layout.component.field.Text'; -end; - -{$IFDEF FPC}constructor TExtRtlLayoutComponentFieldText.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtDataTree.SetFHasListeners(Value : TExtObject); begin FHasListeners := Value; Value.DeleteFromGarbage; @@ -23248,161 +23206,192 @@ procedure TExtDataTree.HandleEvent(const AEvtName : string); begin FOnSort(); end; -procedure TExtDataFlashBinaryXhr.SetFReadyState(Value : Integer); begin - FReadyState := Value; - JSCode(JSName + '.readyState=' + VarToJSON([Value]) + ';'); +procedure TExtDataOperation.SetFAction(Value : String); begin + FAction := Value; + JSCode('action:' + VarToJSON([Value])); end; -procedure TExtDataFlashBinaryXhr.SetFResponseBytes(Value : TExtObjectList); begin - FResponseBytes := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.responseBytes=' + VarToJSON([Value, false]) + ';'); +procedure TExtDataOperation.SetFActionCommitRecordsRe(Value : TRegExp); begin + FActionCommitRecordsRe := Value; + JSCode(JSName + '.actionCommitRecordsRe=' + VarToJSON([#3 +Value]) + ';'); end; -procedure TExtDataFlashBinaryXhr.SetFStatus(Value : Integer); begin - FStatus := Value; - JSCode(JSName + '.status=' + VarToJSON([Value]) + ';'); +procedure TExtDataOperation.SetFActionSkipSyncRe(Value : TRegExp); begin + FActionSkipSyncRe := Value; + JSCode(JSName + '.actionSkipSyncRe=' + VarToJSON([#3 +Value]) + ';'); end; -function TExtDataFlashBinaryXhr.JSClassName : string; begin - Result := 'Ext.data.flash.BinaryXhr'; +procedure TExtDataOperation.SetFBatch(Value : TExtDataBatch); begin + FBatch := Value; + Value.DeleteFromGarbage; + JSCode('batch:' + VarToJSON([Value, false])); end; -procedure TExtDataFlashBinaryXhr.InitDefaults; begin - inherited; - FResponseBytes := TExtObjectList.Create(Self, 'responseBytes'); +procedure TExtDataOperation.SetFCallback(Value : TExtFunction); begin + FCallback := Value; + JSCode('callback:' + VarToJSON([Value, true])); end; -{$IFDEF FPC}constructor TExtDataFlashBinaryXhr.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDataFlashBinaryXhr.Abort : TExtFunction; begin - JSCode(JSName + '.abort();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFFilters(Value : TExtObjectList); begin + FFilters := Value; + Value.DeleteFromGarbage; + JSCode('filters:' + VarToJSON([Value, false])); end; -constructor TExtDataFlashBinaryXhr.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +procedure TExtDataOperation.SetFGroupers(Value : TExtObjectList); begin + FGroupers := Value; + Value.DeleteFromGarbage; + JSCode('groupers:' + VarToJSON([Value, false])); end; -function TExtDataFlashBinaryXhr.GetAllResponseHeaders : TExtFunction; begin - JSCode(JSName + '.getAllResponseHeaders();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFLimit(Value : Integer); begin + FLimit := Value; + JSCode('limit:' + VarToJSON([Value])); end; -function TExtDataFlashBinaryXhr.GetResponseHeader : TExtFunction; begin - JSCode(JSName + '.getResponseHeader();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFParams(Value : TExtObject); begin + FParams := Value; + Value.DeleteFromGarbage; + JSCode('params:' + VarToJSON([Value, false])); end; -function TExtDataFlashBinaryXhr.Open : TExtFunction; begin - JSCode(JSName + '.open();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFScope(Value : TExtObject); begin + FScope := Value; + Value.DeleteFromGarbage; + JSCode('scope:' + VarToJSON([Value, false])); end; -function TExtDataFlashBinaryXhr.OverrideMimeType : TExtFunction; begin - JSCode(JSName + '.overrideMimeType();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFSorters(Value : TExtObjectList); begin + FSorters := Value; + Value.DeleteFromGarbage; + JSCode('sorters:' + VarToJSON([Value, false])); end; -function TExtDataFlashBinaryXhr.Send(Body : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.send(' + VarToJSON(Body) + ');', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFStart(Value : Integer); begin + FStart := Value; + JSCode('start:' + VarToJSON([Value])); end; -function TExtDataFlashBinaryXhr.SetRequestHeader : TExtFunction; begin - JSCode(JSName + '.setRequestHeader();', 'TExtDataFlashBinaryXhr'); - Result := Self; +procedure TExtDataOperation.SetFSynchronous(Value : Boolean); begin + FSynchronous := Value; + JSCode('synchronous:' + VarToJSON([Value])); end; -destructor TExtDataFlashBinaryXhr.Destroy; begin - try - FResponseBytes.Free; - except end; - inherited; +function TExtDataOperation.JSClassName : string; begin + Result := 'Ext.data.Operation'; end; -function TExtContainerMonitor.JSClassName : string; begin - Result := 'Ext.container.Monitor'; +procedure TExtDataOperation.InitDefaults; begin + inherited; + FBatch := TExtDataBatch.CreateInternal(Self, 'batch'); + FFilters := TExtObjectList.Create(Self, 'filters'); + FGroupers := TExtObjectList.Create(Self, 'groupers'); + FParams := TExtObject.CreateInternal(Self, 'params'); + FScope := TExtObject.CreateInternal(Self, 'scope'); + FSorters := TExtObjectList.Create(Self, 'sorters'); end; -{$IFDEF FPC}constructor TExtContainerMonitor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataOperation.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtChartTip.JSClassName : string; begin - Result := 'Ext.chart.Tip'; +function TExtDataOperation.AllowWrite : TExtFunction; begin + JSCode(JSName + '.allowWrite();', 'TExtDataOperation'); + Result := Self; end; -{$IFDEF FPC}constructor TExtChartTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtDataOperation.CommitRecords(ServerRecords : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.commitRecords(' + VarToJSON(ServerRecords) + ');', 'TExtDataOperation'); + Result := Self; +end; -procedure TExtDataAssociation.SetFAssociatedModel(Value : String); begin - FAssociatedModel := Value; - JSCode('associatedModel:' + VarToJSON([Value])); +constructor TExtDataOperation.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -procedure TExtDataAssociation.SetFAssociatedName(Value : String); begin - FAssociatedName := Value; - JSCode(JSName + '.associatedName=' + VarToJSON([Value]) + ';'); +function TExtDataOperation.GetError : TExtFunction; begin + JSCode(JSName + '.getError();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFAssociationKey(Value : String); begin - FAssociationKey := Value; - JSCode('associationKey:' + VarToJSON([Value])); +function TExtDataOperation.GetRecords : TExtFunction; begin + JSCode(JSName + '.getRecords();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFModel(Value : String); begin - FModel := Value; - JSCode('model:' + VarToJSON([Value])); +function TExtDataOperation.GetResultSet : TExtFunction; begin + JSCode(JSName + '.getResultSet();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFOwnerModel(Value : String); begin - FOwnerModel := Value; - JSCode('ownerModel:' + VarToJSON([Value])); +function TExtDataOperation.HasException : TExtFunction; begin + JSCode(JSName + '.hasException();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFOwnerName(Value : String); begin - FOwnerName := Value; - JSCode(JSName + '.ownerName=' + VarToJSON([Value]) + ';'); +function TExtDataOperation.IsComplete : TExtFunction; begin + JSCode(JSName + '.isComplete();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFPrimaryKey(Value : String); begin - FPrimaryKey := Value; - JSCode('primaryKey:' + VarToJSON([Value])); +function TExtDataOperation.IsRunning : TExtFunction; begin + JSCode(JSName + '.isRunning();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.SetFReader(Value : TExtDataReader); begin - FReader := Value; - Value.DeleteFromGarbage; - JSCode('reader:' + VarToJSON([Value, false])); +function TExtDataOperation.IsStarted : TExtFunction; begin + JSCode(JSName + '.isStarted();', 'TExtDataOperation'); + Result := Self; end; -function TExtDataAssociation.JSClassName : string; begin - Result := 'Ext.data.association.Association'; +function TExtDataOperation.SetCompleted : TExtFunction; begin + JSCode(JSName + '.setCompleted();', 'TExtDataOperation'); + Result := Self; end; -procedure TExtDataAssociation.InitDefaults; begin - inherited; - FReader := TExtDataReader.CreateInternal(Self, 'reader'); +function TExtDataOperation.SetException(Error : String = '') : TExtFunction; begin + JSCode(JSName + '.setException(' + VarToJSON([Error]) + ');', 'TExtDataOperation'); + Result := Self; end; -{$IFDEF FPC}constructor TExtDataAssociation.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtDataOperation.SetStarted : TExtFunction; begin + JSCode(JSName + '.setStarted();', 'TExtDataOperation'); + Result := Self; +end; -constructor TExtDataAssociation.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +function TExtDataOperation.SetSuccessful : TExtFunction; begin + JSCode(JSName + '.setSuccessful();', 'TExtDataOperation'); + Result := Self; end; -function TExtDataAssociation.GetReader : TExtFunction; begin - JSCode(JSName + '.getReader();', 'TExtDataAssociation'); +function TExtDataOperation.WasSuccessful : TExtFunction; begin + JSCode(JSName + '.wasSuccessful();', 'TExtDataOperation'); Result := Self; end; -destructor TExtDataAssociation.Destroy; begin +destructor TExtDataOperation.Destroy; begin try - FReader.Free; + FBatch.Free; + FFilters.Free; + FGroupers.Free; + FParams.Free; + FScope.Free; + FSorters.Free; except end; inherited; end; +function TExtContainerMonitor.JSClassName : string; begin + Result := 'Ext.container.Monitor'; +end; + +{$IFDEF FPC}constructor TExtContainerMonitor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtChartTip.JSClassName : string; begin + Result := 'Ext.chart.Tip'; +end; + +{$IFDEF FPC}constructor TExtChartTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtDataProxy.SetFBatchActions(Value : Boolean); begin FBatchActions := Value; JSCode('batchActions:' + VarToJSON([Value])); @@ -23443,8 +23432,8 @@ procedure TExtDataProxy.SetFModel(Value : String); begin JSCode('model:' + VarToJSON([Value])); end; -procedure TExtDataProxy.SetFModelTExtDataModel(Value : TExtDataModel); begin - FModelTExtDataModel := Value; +procedure TExtDataProxy.SetFModelModel(Value : TExtDataModel); begin + FModelModel := Value; Value.DeleteFromGarbage; JSCode('model:' + VarToJSON([Value, false])); end; @@ -23455,17 +23444,17 @@ procedure TExtDataProxy.SetFReader(Value : TExtObject); begin JSCode('reader:' + VarToJSON([Value, false])); end; +procedure TExtDataProxy.SetFReaderReader(Value : TExtDataReader); begin + FReaderReader := Value; + Value.DeleteFromGarbage; + JSCode('reader:' + VarToJSON([Value, false])); +end; + procedure TExtDataProxy.SetFReaderString(Value : String); begin FReaderString := Value; JSCode('reader:' + VarToJSON([Value])); end; -procedure TExtDataProxy.SetFReaderTExtDataReader(Value : TExtDataReader); begin - FReaderTExtDataReader := Value; - Value.DeleteFromGarbage; - JSCode('reader:' + VarToJSON([Value, false])); -end; - procedure TExtDataProxy.SetFWriter(Value : TExtObject); begin FWriter := Value; Value.DeleteFromGarbage; @@ -23477,8 +23466,8 @@ procedure TExtDataProxy.SetFWriterString(Value : String); begin JSCode('writer:' + VarToJSON([Value])); end; -procedure TExtDataProxy.SetFWriterTExtDataWriter(Value : TExtDataWriter); begin - FWriterTExtDataWriter := Value; +procedure TExtDataProxy.SetFWriterWriter(Value : TExtDataWriter); begin + FWriterWriter := Value; Value.DeleteFromGarbage; JSCode('writer:' + VarToJSON([Value, false])); end; @@ -23501,11 +23490,11 @@ procedure TExtDataProxy.InitDefaults; begin FBatchOrder := 'create,update,destroy'; FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); - FModelTExtDataModel := TExtDataModel.CreateInternal(Self, 'model'); + FModelModel := TExtDataModel.CreateInternal(Self, 'model'); FReader := TExtObject.CreateInternal(Self, 'reader'); - FReaderTExtDataReader := TExtDataReader.CreateInternal(Self, 'reader'); + FReaderReader := TExtDataReader.CreateInternal(Self, 'reader'); FWriter := TExtObject.CreateInternal(Self, 'writer'); - FWriterTExtDataWriter := TExtDataWriter.CreateInternal(Self, 'writer'); + FWriterWriter := TExtDataWriter.CreateInternal(Self, 'writer'); end; {$IFDEF FPC}constructor TExtDataProxy.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -23629,11 +23618,11 @@ destructor TExtDataProxy.Destroy; begin try FHasListeners.Free; FListeners.Free; - FModelTExtDataModel.Free; + FModelModel.Free; FReader.Free; - FReaderTExtDataReader.Free; + FReaderReader.Free; FWriter.Free; - FWriterTExtDataWriter.Free; + FWriterWriter.Free; except end; inherited; end; @@ -23644,6 +23633,80 @@ procedure TExtDataProxy.HandleEvent(const AEvtName : string); begin FOnMetachange(TExtDataProxy(ParamAsObject('This')), TExtObject(ParamAsObject('Meta'))); end; +procedure TExtDataFlashBinaryXhr.SetFReadyState(Value : Integer); begin + FReadyState := Value; + JSCode(JSName + '.readyState=' + VarToJSON([Value]) + ';'); +end; + +procedure TExtDataFlashBinaryXhr.SetFResponseBytes(Value : TExtObjectList); begin + FResponseBytes := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.responseBytes=' + VarToJSON([Value, false]) + ';'); +end; + +procedure TExtDataFlashBinaryXhr.SetFStatus(Value : Integer); begin + FStatus := Value; + JSCode(JSName + '.status=' + VarToJSON([Value]) + ';'); +end; + +function TExtDataFlashBinaryXhr.JSClassName : string; begin + Result := 'Ext.data.flash.BinaryXhr'; +end; + +procedure TExtDataFlashBinaryXhr.InitDefaults; begin + inherited; + FResponseBytes := TExtObjectList.Create(Self, 'responseBytes'); +end; + +{$IFDEF FPC}constructor TExtDataFlashBinaryXhr.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDataFlashBinaryXhr.Abort : TExtFunction; begin + JSCode(JSName + '.abort();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +constructor TExtDataFlashBinaryXhr.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtDataFlashBinaryXhr.GetAllResponseHeaders : TExtFunction; begin + JSCode(JSName + '.getAllResponseHeaders();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +function TExtDataFlashBinaryXhr.GetResponseHeader : TExtFunction; begin + JSCode(JSName + '.getResponseHeader();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +function TExtDataFlashBinaryXhr.Open : TExtFunction; begin + JSCode(JSName + '.open();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +function TExtDataFlashBinaryXhr.OverrideMimeType : TExtFunction; begin + JSCode(JSName + '.overrideMimeType();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +function TExtDataFlashBinaryXhr.Send(Body : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.send(' + VarToJSON(Body) + ');', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +function TExtDataFlashBinaryXhr.SetRequestHeader : TExtFunction; begin + JSCode(JSName + '.setRequestHeader();', 'TExtDataFlashBinaryXhr'); + Result := Self; +end; + +destructor TExtDataFlashBinaryXhr.Destroy; begin + try + FResponseBytes.Free; + except end; + inherited; +end; + function TExtChartThemeBase.JSClassName : string; begin Result := 'Ext.chart.theme.Base'; end; @@ -23793,14 +23856,14 @@ procedure TExtDataModel.SetFBelongsTo(Value : String); begin JSCode('belongsTo:' + VarToJSON([Value])); end; -procedure TExtDataModel.SetFBelongsToTExtObject(Value : TExtObject); begin - FBelongsToTExtObject := Value; +procedure TExtDataModel.SetFBelongsToList(Value : TExtObjectList); begin + FBelongsToList := Value; Value.DeleteFromGarbage; JSCode('belongsTo:' + VarToJSON([Value, false])); end; -procedure TExtDataModel.SetFBelongsToTExtObjectList(Value : TExtObjectList); begin - FBelongsToTExtObjectList := Value; +procedure TExtDataModel.SetFBelongsToObject(Value : TExtObject); begin + FBelongsToObject := Value; Value.DeleteFromGarbage; JSCode('belongsTo:' + VarToJSON([Value, false])); end; @@ -23821,8 +23884,8 @@ procedure TExtDataModel.SetFFields(Value : TExtObjectList); begin JSCode('fields:' + VarToJSON([Value, false])); end; -procedure TExtDataModel.SetFFieldsTExtObjectList(Value : TExtObjectList); begin - FFieldsTExtObjectList := Value; +procedure TExtDataModel.SetFFieldsList(Value : TExtObjectList); begin + FFieldsList := Value; Value.DeleteFromGarbage; JSCode('fields:' + VarToJSON([Value, false])); end; @@ -23832,14 +23895,14 @@ procedure TExtDataModel.SetFHasMany(Value : String); begin JSCode('hasMany:' + VarToJSON([Value])); end; -procedure TExtDataModel.SetFHasManyTExtObject(Value : TExtObject); begin - FHasManyTExtObject := Value; +procedure TExtDataModel.SetFHasManyList(Value : TExtObjectList); begin + FHasManyList := Value; Value.DeleteFromGarbage; JSCode('hasMany:' + VarToJSON([Value, false])); end; -procedure TExtDataModel.SetFHasManyTExtObjectList(Value : TExtObjectList); begin - FHasManyTExtObjectList := Value; +procedure TExtDataModel.SetFHasManyObject(Value : TExtObject); begin + FHasManyObject := Value; Value.DeleteFromGarbage; JSCode('hasMany:' + VarToJSON([Value, false])); end; @@ -23849,8 +23912,8 @@ procedure TExtDataModel.SetFIdgen(Value : String); begin JSCode('idgen:' + VarToJSON([Value])); end; -procedure TExtDataModel.SetFIdgenTExtObject(Value : TExtObject); begin - FIdgenTExtObject := Value; +procedure TExtDataModel.SetFIdgenObject(Value : TExtObject); begin + FIdgenObject := Value; Value.DeleteFromGarbage; JSCode('idgen:' + VarToJSON([Value, false])); end; @@ -23860,14 +23923,14 @@ procedure TExtDataModel.SetFIdProperty(Value : String); begin JSCode('idProperty:' + VarToJSON([Value])); end; -procedure TExtDataModel.SetFIdPropertyTExtDataField(Value : TExtDataField); begin - FIdPropertyTExtDataField := Value; +procedure TExtDataModel.SetFIdPropertyField(Value : TExtDataField); begin + FIdPropertyField := Value; Value.DeleteFromGarbage; JSCode('idProperty:' + VarToJSON([Value, false])); end; -procedure TExtDataModel.SetFIdPropertyTExtObject(Value : TExtObject); begin - FIdPropertyTExtObject := Value; +procedure TExtDataModel.SetFIdPropertyObject(Value : TExtObject); begin + FIdPropertyObject := Value; Value.DeleteFromGarbage; JSCode('idProperty:' + VarToJSON([Value, false])); end; @@ -23891,14 +23954,14 @@ procedure TExtDataModel.SetFProxy(Value : String); begin JSCode('proxy:' + VarToJSON([Value])); end; -procedure TExtDataModel.SetFProxyTExtDataProxy(Value : TExtDataProxy); begin - FProxyTExtDataProxy := Value; +procedure TExtDataModel.SetFProxyObject(Value : TExtObject); begin + FProxyObject := Value; Value.DeleteFromGarbage; JSCode('proxy:' + VarToJSON([Value, false])); end; -procedure TExtDataModel.SetFProxyTExtObject(Value : TExtObject); begin - FProxyTExtObject := Value; +procedure TExtDataModel.SetFProxyProxy(Value : TExtDataProxy); begin + FProxyProxy := Value; Value.DeleteFromGarbage; JSCode('proxy:' + VarToJSON([Value, false])); end; @@ -23928,21 +23991,21 @@ function TExtDataModel.JSClassName : string; begin procedure TExtDataModel.InitDefaults; begin inherited; FAssociations := TExtObjectList.Create(Self, 'associations'); - FBelongsToTExtObject := TExtObject.CreateInternal(Self, 'belongsTo'); - FBelongsToTExtObjectList := TExtObjectList.Create(Self, 'belongsTo'); + FBelongsToList := TExtObjectList.Create(Self, 'belongsTo'); + FBelongsToObject := TExtObject.CreateInternal(Self, 'belongsTo'); FDefaultProxyType := 'ajax'; FFields := TExtObjectList.Create(Self, 'fields'); - FFieldsTExtObjectList := TExtObjectList.Create(Self, 'fields'); - FHasManyTExtObject := TExtObject.CreateInternal(Self, 'hasMany'); - FHasManyTExtObjectList := TExtObjectList.Create(Self, 'hasMany'); - FIdgenTExtObject := TExtObject.CreateInternal(Self, 'idgen'); + FFieldsList := TExtObjectList.Create(Self, 'fields'); + FHasManyList := TExtObjectList.Create(Self, 'hasMany'); + FHasManyObject := TExtObject.CreateInternal(Self, 'hasMany'); + FIdgenObject := TExtObject.CreateInternal(Self, 'idgen'); FIdProperty := 'id'; - FIdPropertyTExtDataField := TExtDataField.CreateInternal(Self, 'idProperty'); - FIdPropertyTExtObject := TExtObject.CreateInternal(Self, 'idProperty'); + FIdPropertyField := TExtDataField.CreateInternal(Self, 'idProperty'); + FIdPropertyObject := TExtObject.CreateInternal(Self, 'idProperty'); FModified := TExtObject.CreateInternal(Self, 'modified'); FPersistenceProperty := 'data'; - FProxyTExtDataProxy := TExtDataProxy.CreateInternal(Self, 'proxy'); - FProxyTExtObject := TExtObject.CreateInternal(Self, 'proxy'); + FProxyObject := TExtObject.CreateInternal(Self, 'proxy'); + FProxyProxy := TExtDataProxy.CreateInternal(Self, 'proxy'); FRaw := TExtObject.CreateInternal(Self, 'raw'); FStores := TExtObjectList.Create(Self, 'stores'); FValidations := TExtObjectList.Create(Self, 'validations'); @@ -24063,18 +24126,18 @@ function TExtDataModel.Validate : TExtFunction; begin destructor TExtDataModel.Destroy; begin try FAssociations.Free; - FBelongsToTExtObject.Free; - FBelongsToTExtObjectList.Free; + FBelongsToList.Free; + FBelongsToObject.Free; FFields.Free; - FFieldsTExtObjectList.Free; - FHasManyTExtObject.Free; - FHasManyTExtObjectList.Free; - FIdgenTExtObject.Free; - FIdPropertyTExtDataField.Free; - FIdPropertyTExtObject.Free; + FFieldsList.Free; + FHasManyList.Free; + FHasManyObject.Free; + FIdgenObject.Free; + FIdPropertyField.Free; + FIdPropertyObject.Free; FModified.Free; - FProxyTExtDataProxy.Free; - FProxyTExtObject.Free; + FProxyObject.Free; + FProxyProxy.Free; FRaw.Free; FStores.Free; FValidations.Free; @@ -24691,234 +24754,6 @@ class function TExtDataTypesSingleton.STRINGJS : TExtObject; {$IFDEF FPC}constructor TExtDataTypesSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtDataOperation.SetFAction(Value : String); begin - FAction := Value; - JSCode('action:' + VarToJSON([Value])); -end; - -procedure TExtDataOperation.SetFActionCommitRecordsRe(Value : TRegExp); begin - FActionCommitRecordsRe := Value; - JSCode(JSName + '.actionCommitRecordsRe=' + VarToJSON([#3 +Value]) + ';'); -end; - -procedure TExtDataOperation.SetFActionSkipSyncRe(Value : TRegExp); begin - FActionSkipSyncRe := Value; - JSCode(JSName + '.actionSkipSyncRe=' + VarToJSON([#3 +Value]) + ';'); -end; - -procedure TExtDataOperation.SetFBatch(Value : TExtDataBatch); begin - FBatch := Value; - Value.DeleteFromGarbage; - JSCode('batch:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFCallback(Value : TExtFunction); begin - FCallback := Value; - JSCode('callback:' + VarToJSON([Value, true])); -end; - -procedure TExtDataOperation.SetFFilters(Value : TExtObjectList); begin - FFilters := Value; - Value.DeleteFromGarbage; - JSCode('filters:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFGroupers(Value : TExtObjectList); begin - FGroupers := Value; - Value.DeleteFromGarbage; - JSCode('groupers:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFLimit(Value : Integer); begin - FLimit := Value; - JSCode('limit:' + VarToJSON([Value])); -end; - -procedure TExtDataOperation.SetFParams(Value : TExtObject); begin - FParams := Value; - Value.DeleteFromGarbage; - JSCode('params:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFScope(Value : TExtObject); begin - FScope := Value; - Value.DeleteFromGarbage; - JSCode('scope:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFSorters(Value : TExtObjectList); begin - FSorters := Value; - Value.DeleteFromGarbage; - JSCode('sorters:' + VarToJSON([Value, false])); -end; - -procedure TExtDataOperation.SetFStart(Value : Integer); begin - FStart := Value; - JSCode('start:' + VarToJSON([Value])); -end; - -procedure TExtDataOperation.SetFSynchronous(Value : Boolean); begin - FSynchronous := Value; - JSCode('synchronous:' + VarToJSON([Value])); -end; - -function TExtDataOperation.JSClassName : string; begin - Result := 'Ext.data.Operation'; -end; - -procedure TExtDataOperation.InitDefaults; begin - inherited; - FBatch := TExtDataBatch.CreateInternal(Self, 'batch'); - FFilters := TExtObjectList.Create(Self, 'filters'); - FGroupers := TExtObjectList.Create(Self, 'groupers'); - FParams := TExtObject.CreateInternal(Self, 'params'); - FScope := TExtObject.CreateInternal(Self, 'scope'); - FSorters := TExtObjectList.Create(Self, 'sorters'); -end; - -{$IFDEF FPC}constructor TExtDataOperation.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDataOperation.AllowWrite : TExtFunction; begin - JSCode(JSName + '.allowWrite();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.CommitRecords(ServerRecords : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.commitRecords(' + VarToJSON(ServerRecords) + ');', 'TExtDataOperation'); - Result := Self; -end; - -constructor TExtDataOperation.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtDataOperation.GetError : TExtFunction; begin - JSCode(JSName + '.getError();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.GetRecords : TExtFunction; begin - JSCode(JSName + '.getRecords();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.GetResultSet : TExtFunction; begin - JSCode(JSName + '.getResultSet();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.HasException : TExtFunction; begin - JSCode(JSName + '.hasException();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.IsComplete : TExtFunction; begin - JSCode(JSName + '.isComplete();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.IsRunning : TExtFunction; begin - JSCode(JSName + '.isRunning();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.IsStarted : TExtFunction; begin - JSCode(JSName + '.isStarted();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.SetCompleted : TExtFunction; begin - JSCode(JSName + '.setCompleted();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.SetException(Error : String = '') : TExtFunction; begin - JSCode(JSName + '.setException(' + VarToJSON([Error]) + ');', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.SetStarted : TExtFunction; begin - JSCode(JSName + '.setStarted();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.SetSuccessful : TExtFunction; begin - JSCode(JSName + '.setSuccessful();', 'TExtDataOperation'); - Result := Self; -end; - -function TExtDataOperation.WasSuccessful : TExtFunction; begin - JSCode(JSName + '.wasSuccessful();', 'TExtDataOperation'); - Result := Self; -end; - -destructor TExtDataOperation.Destroy; begin - try - FBatch.Free; - FFilters.Free; - FGroupers.Free; - FParams.Free; - FScope.Free; - FSorters.Free; - except end; - inherited; -end; - -procedure TExtContainerDockingContainer.SetFDefaultDockWeights(Value : TExtObject); begin - FDefaultDockWeights := Value; - Value.DeleteFromGarbage; - JSCode('defaultDockWeights:' + VarToJSON([Value, false])); -end; - -function TExtContainerDockingContainer.JSClassName : string; begin - Result := 'Ext.container.DockingContainer'; -end; - -procedure TExtContainerDockingContainer.InitDefaults; begin - inherited; - FDefaultDockWeights := TExtObject.CreateInternal(Self, 'defaultDockWeights'); -end; - -{$IFDEF FPC}constructor TExtContainerDockingContainer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtContainerDockingContainer.AddDocked(Component : TExtObject; Pos : Integer = 0) : TExtFunction; begin - JSCode(JSName + '.addDocked(' + VarToJSON([Component, false, Pos]) + ');', 'TExtContainerDockingContainer'); - Result := Self; -end; - -constructor TExtContainerDockingContainer.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtContainerDockingContainer.GetDockedComponent(Comp : Integer) : TExtFunction; begin - JSCode(JSName + '.getDockedComponent(' + VarToJSON([Comp]) + ');', 'TExtContainerDockingContainer'); - Result := Self; -end; - -function TExtContainerDockingContainer.GetDockedItems(Selector : String; BeforeBody : Boolean) : TExtFunction; begin - JSCode(JSName + '.getDockedItems(' + VarToJSON([Selector, BeforeBody]) + ');', 'TExtContainerDockingContainer'); - Result := Self; -end; - -function TExtContainerDockingContainer.InsertDocked(Pos : Integer; Component : TExtObject) : TExtFunction; begin - JSCode(JSName + '.insertDocked(' + VarToJSON([Pos, Component, false]) + ');', 'TExtContainerDockingContainer'); - Result := Self; -end; - -function TExtContainerDockingContainer.RemoveDocked(Item : TExtComponent; AutoDestroy : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.removeDocked(' + VarToJSON([Item, false, AutoDestroy]) + ');', 'TExtContainerDockingContainer'); - Result := Self; -end; - -destructor TExtContainerDockingContainer.Destroy; begin - try - FDefaultDockWeights.Free; - except end; - inherited; -end; - procedure TExtAppController.SetFRefs(Value : TExtObjectList); begin FRefs := Value; Value.DeleteFromGarbage; @@ -25009,68 +24844,191 @@ destructor TExtAppController.Destroy; begin inherited; end; +procedure TExtContainerDockingContainer.SetFDefaultDockWeights(Value : TExtObject); begin + FDefaultDockWeights := Value; + Value.DeleteFromGarbage; + JSCode('defaultDockWeights:' + VarToJSON([Value, false])); +end; + +function TExtContainerDockingContainer.JSClassName : string; begin + Result := 'Ext.container.DockingContainer'; +end; + +procedure TExtContainerDockingContainer.InitDefaults; begin + inherited; + FDefaultDockWeights := TExtObject.CreateInternal(Self, 'defaultDockWeights'); +end; + +{$IFDEF FPC}constructor TExtContainerDockingContainer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtContainerDockingContainer.AddDocked(Component : TExtObject; Pos : Integer = 0) : TExtFunction; begin + JSCode(JSName + '.addDocked(' + VarToJSON([Component, false, Pos]) + ');', 'TExtContainerDockingContainer'); + Result := Self; +end; + +constructor TExtContainerDockingContainer.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtContainerDockingContainer.GetDockedComponent(Comp : Integer) : TExtFunction; begin + JSCode(JSName + '.getDockedComponent(' + VarToJSON([Comp]) + ');', 'TExtContainerDockingContainer'); + Result := Self; +end; + +function TExtContainerDockingContainer.GetDockedItems(Selector : String; BeforeBody : Boolean) : TExtFunction; begin + JSCode(JSName + '.getDockedItems(' + VarToJSON([Selector, BeforeBody]) + ');', 'TExtContainerDockingContainer'); + Result := Self; +end; + +function TExtContainerDockingContainer.InsertDocked(Pos : Integer; Component : TExtObject) : TExtFunction; begin + JSCode(JSName + '.insertDocked(' + VarToJSON([Pos, Component, false]) + ');', 'TExtContainerDockingContainer'); + Result := Self; +end; + +function TExtContainerDockingContainer.RemoveDocked(Item : TExtComponent; AutoDestroy : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.removeDocked(' + VarToJSON([Item, false, AutoDestroy]) + ');', 'TExtContainerDockingContainer'); + Result := Self; +end; + +destructor TExtContainerDockingContainer.Destroy; begin + try + FDefaultDockWeights.Free; + except end; + inherited; +end; + +function TExtDataSortTypesSingleton.JSClassName : string; begin + Result := 'Ext.data.SortTypes'; +end; + +{$IFDEF FPC}constructor TExtDataSortTypesSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDataSortTypesSingleton.AsDate(S : TExtObject) : TExtFunction; begin + JSCode(JSName + '.asDate(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); + Result := Self; +end; + +function TExtDataSortTypesSingleton.AsFloat(S : TExtObject) : TExtFunction; begin + JSCode(JSName + '.asFloat(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); + Result := Self; +end; + +function TExtDataSortTypesSingleton.AsInt(S : TExtObject) : TExtFunction; begin + JSCode(JSName + '.asInt(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); + Result := Self; +end; + +function TExtDataSortTypesSingleton.AsUCString(S : TExtObject) : TExtFunction; begin + JSCode(JSName + '.asUCString(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); + Result := Self; +end; + +function TExtDataSortTypesSingleton.AsUCText(S : TExtObject) : TExtFunction; begin + JSCode(JSName + '.asUCText(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); + Result := Self; +end; + +function TExtChartShapeSingleton.JSClassName : string; begin + Result := 'Ext.chart.Shape'; +end; + +{$IFDEF FPC}constructor TExtChartShapeSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtDataAssociationBelongsTo.SetFForeignKey(Value : String); begin + FForeignKey := Value; + JSCode('foreignKey:' + VarToJSON([Value])); +end; + +procedure TExtDataAssociationBelongsTo.SetFGetterName(Value : String); begin + FGetterName := Value; + JSCode('getterName:' + VarToJSON([Value])); +end; + +procedure TExtDataAssociationBelongsTo.SetFSetterName(Value : String); begin + FSetterName := Value; + JSCode('setterName:' + VarToJSON([Value])); +end; + +procedure TExtDataAssociationBelongsTo.SetFTypeJS(Value : String); begin + FTypeJS := Value; + JSCode('typeJS:' + VarToJSON([Value])); +end; + +function TExtDataAssociationBelongsTo.JSClassName : string; begin + Result := 'Ext.data.association.BelongsTo'; +end; + +procedure TExtDataAssociationBelongsTo.InitDefaults; begin + inherited; + FForeignKey := '_id'; + FGetterName := 'get'; + FSetterName := 'set'; +end; + +{$IFDEF FPC}constructor TExtDataAssociationBelongsTo.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDataAssociationBelongsTo.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + function TExtButtonManagerSingleton.JSClassName : string; begin Result := 'Ext.button.Manager'; end; {$IFDEF FPC}constructor TExtButtonManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtChartTheme.JSClassName : string; begin - Result := 'Ext.chart.theme.Theme'; +procedure TExtDataAssociationHasMany.SetFFilterProperty(Value : String); begin + FFilterProperty := Value; + JSCode('filterProperty:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtChartTheme.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtDataRequest.SetFAction(Value : String); begin - FAction := Value; - JSCode('action:' + VarToJSON([Value])); +procedure TExtDataAssociationHasMany.SetFForeignKey(Value : String); begin + FForeignKey := Value; + JSCode('foreignKey:' + VarToJSON([Value])); end; -procedure TExtDataRequest.SetFMethod(Value : String); begin - FMethod := Value; - JSCode('method:' + VarToJSON([Value])); +procedure TExtDataAssociationHasMany.SetFName(Value : String); begin + FName := Value; + JSCode('name:' + VarToJSON([Value])); end; -procedure TExtDataRequest.SetFParams(Value : TExtObject); begin - FParams := Value; +procedure TExtDataAssociationHasMany.SetFStoreConfig(Value : TExtObject); begin + FStoreConfig := Value; Value.DeleteFromGarbage; - JSCode('params:' + VarToJSON([Value, false])); + JSCode('storeConfig:' + VarToJSON([Value, false])); end; -procedure TExtDataRequest.SetFUrl(Value : String); begin - FUrl := Value; - JSCode('url:' + VarToJSON([Value])); +procedure TExtDataAssociationHasMany.SetFTypeJS(Value : String); begin + FTypeJS := Value; + JSCode('typeJS:' + VarToJSON([Value])); end; -function TExtDataRequest.JSClassName : string; begin - Result := 'Ext.data.Request'; +function TExtDataAssociationHasMany.JSClassName : string; begin + Result := 'Ext.data.association.HasMany'; end; -procedure TExtDataRequest.InitDefaults; begin +procedure TExtDataAssociationHasMany.InitDefaults; begin inherited; - FParams := TExtObject.CreateInternal(Self, 'params'); + FForeignKey := '_id'; + FStoreConfig := TExtObject.CreateInternal(Self, 'storeConfig'); end; -{$IFDEF FPC}constructor TExtDataRequest.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataAssociationHasMany.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtDataRequest.Create; begin +constructor TExtDataAssociationHasMany.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -destructor TExtDataRequest.Destroy; begin +destructor TExtDataAssociationHasMany.Destroy; begin try - FParams.Free; + FStoreConfig.Free; except end; inherited; end; -function TExtChartShapeSingleton.JSClassName : string; begin - Result := 'Ext.chart.Shape'; -end; - -{$IFDEF FPC}constructor TExtChartShapeSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtDataBatch.SetFAutoStart(Value : Boolean); begin FAutoStart := Value; JSCode('autoStart:' + VarToJSON([Value])); @@ -25299,161 +25257,16 @@ constructor TExtDataAssociationHasOne.Create; begin InitDefaults; end; -procedure TExtDataAssociationHasMany.SetFFilterProperty(Value : String); begin - FFilterProperty := Value; - JSCode('filterProperty:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationHasMany.SetFForeignKey(Value : String); begin - FForeignKey := Value; - JSCode('foreignKey:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationHasMany.SetFName(Value : String); begin - FName := Value; - JSCode('name:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationHasMany.SetFStoreConfig(Value : TExtObject); begin - FStoreConfig := Value; - Value.DeleteFromGarbage; - JSCode('storeConfig:' + VarToJSON([Value, false])); -end; - -procedure TExtDataAssociationHasMany.SetFTypeJS(Value : String); begin - FTypeJS := Value; - JSCode('typeJS:' + VarToJSON([Value])); -end; - -function TExtDataAssociationHasMany.JSClassName : string; begin - Result := 'Ext.data.association.HasMany'; -end; - -procedure TExtDataAssociationHasMany.InitDefaults; begin - inherited; - FForeignKey := '_id'; - FStoreConfig := TExtObject.CreateInternal(Self, 'storeConfig'); -end; - -{$IFDEF FPC}constructor TExtDataAssociationHasMany.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDataAssociationHasMany.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtDataAssociationHasMany.Destroy; begin - try - FStoreConfig.Free; - except end; - inherited; -end; - -procedure TExtDataAssociationBelongsTo.SetFForeignKey(Value : String); begin - FForeignKey := Value; - JSCode('foreignKey:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationBelongsTo.SetFGetterName(Value : String); begin - FGetterName := Value; - JSCode('getterName:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationBelongsTo.SetFSetterName(Value : String); begin - FSetterName := Value; - JSCode('setterName:' + VarToJSON([Value])); -end; - -procedure TExtDataAssociationBelongsTo.SetFTypeJS(Value : String); begin - FTypeJS := Value; - JSCode('typeJS:' + VarToJSON([Value])); -end; - -function TExtDataAssociationBelongsTo.JSClassName : string; begin - Result := 'Ext.data.association.BelongsTo'; -end; - -procedure TExtDataAssociationBelongsTo.InitDefaults; begin - inherited; - FForeignKey := '_id'; - FGetterName := 'get'; - FSetterName := 'set'; -end; - -{$IFDEF FPC}constructor TExtDataAssociationBelongsTo.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDataAssociationBelongsTo.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -procedure TExtChartAxisAbstract.SetFFields(Value : TExtObjectList); begin - FFields := Value; - Value.DeleteFromGarbage; - JSCode('fields:' + VarToJSON([Value, false])); -end; - -procedure TExtChartAxisAbstract.SetFLabelJS(Value : TExtChartLabel); begin - FLabelJS := Value; - Value.DeleteFromGarbage; - JSCode('labelJS:' + VarToJSON([Value, false])); -end; - -function TExtChartAxisAbstract.JSClassName : string; begin - Result := 'Ext.chart.axis.Abstract'; -end; - -procedure TExtChartAxisAbstract.InitDefaults; begin - inherited; - FFields := TExtObjectList.Create(Self, 'fields'); - FLabelJS := TExtChartLabel.CreateInternal(Self, 'labelJS'); -end; - -{$IFDEF FPC}constructor TExtChartAxisAbstract.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtChartAxisAbstract.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtChartAxisAbstract.Destroy; begin - try - FFields.Free; - FLabelJS.Free; - except end; - inherited; -end; - -function TExtDataSortTypesSingleton.JSClassName : string; begin - Result := 'Ext.data.SortTypes'; -end; - -{$IFDEF FPC}constructor TExtDataSortTypesSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDataSortTypesSingleton.AsDate(S : TExtObject) : TExtFunction; begin - JSCode(JSName + '.asDate(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); - Result := Self; -end; - -function TExtDataSortTypesSingleton.AsFloat(S : TExtObject) : TExtFunction; begin - JSCode(JSName + '.asFloat(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); - Result := Self; -end; - -function TExtDataSortTypesSingleton.AsInt(S : TExtObject) : TExtFunction; begin - JSCode(JSName + '.asInt(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); - Result := Self; +procedure TExtAppEventDomain.SetFIdProperty(Value : String); begin + FIdProperty := Value; + JSCode('idProperty:' + VarToJSON([Value])); end; -function TExtDataSortTypesSingleton.AsUCString(S : TExtObject) : TExtFunction; begin - JSCode(JSName + '.asUCString(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); - Result := Self; +function TExtAppEventDomain.JSClassName : string; begin + Result := 'Ext.app.EventDomain'; end; -function TExtDataSortTypesSingleton.AsUCText(S : TExtObject) : TExtFunction; begin - JSCode(JSName + '.asUCText(' + VarToJSON([S, false]) + ');', 'TExtDataSortTypesSingleton'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtAppEventDomain.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtDataConnection.SetFAutoAbort(Value : Boolean); begin FAutoAbort := Value; @@ -25702,70 +25515,111 @@ procedure TExtDataConnection.HandleEvent(const AEvtName : string); begin FOnRequestexception(TExtDataConnection(ParamAsObject('Conn')), TExtObject(ParamAsObject('Response')), TExtObject(ParamAsObject('Options'))); end; -procedure TExtDataResultSet.SetFCount(Value : Integer); begin - FCount := Value; - JSCode('count:' + VarToJSON([Value])); +procedure TExtChartAxisAbstract.SetFFields(Value : TExtObjectList); begin + FFields := Value; + Value.DeleteFromGarbage; + JSCode('fields:' + VarToJSON([Value, false])); end; -procedure TExtDataResultSet.SetFLoaded(Value : Boolean); begin - FLoaded := Value; - JSCode('loaded:' + VarToJSON([Value])); +procedure TExtChartAxisAbstract.SetFLabelJS(Value : TExtChartLabel); begin + FLabelJS := Value; + Value.DeleteFromGarbage; + JSCode('labelJS:' + VarToJSON([Value, false])); end; -procedure TExtDataResultSet.SetFRecords(Value : TExtObjectList); begin - FRecords := Value; - Value.DeleteFromGarbage; - JSCode('records:' + VarToJSON([Value, false])); +function TExtChartAxisAbstract.JSClassName : string; begin + Result := 'Ext.chart.axis.Abstract'; end; -procedure TExtDataResultSet.SetFSuccess(Value : Boolean); begin - FSuccess := Value; - JSCode('success:' + VarToJSON([Value])); +procedure TExtChartAxisAbstract.InitDefaults; begin + inherited; + FFields := TExtObjectList.Create(Self, 'fields'); + FLabelJS := TExtChartLabel.CreateInternal(Self, 'labelJS'); end; -procedure TExtDataResultSet.SetFTotal(Value : Integer); begin - FTotal := Value; - JSCode('total:' + VarToJSON([Value])); +{$IFDEF FPC}constructor TExtChartAxisAbstract.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtChartAxisAbstract.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -procedure TExtDataResultSet.SetFTotalRecords(Value : Integer); begin - FTotalRecords := Value; - JSCode(JSName + '.totalRecords=' + VarToJSON([Value]) + ';'); +destructor TExtChartAxisAbstract.Destroy; begin + try + FFields.Free; + FLabelJS.Free; + except end; + inherited; end; -function TExtDataResultSet.JSClassName : string; begin - Result := 'Ext.data.ResultSet'; +procedure TExtDataAssociation.SetFAssociatedModel(Value : String); begin + FAssociatedModel := Value; + JSCode('associatedModel:' + VarToJSON([Value])); end; -procedure TExtDataResultSet.InitDefaults; begin - inherited; - FRecords := TExtObjectList.Create(Self, 'records'); +procedure TExtDataAssociation.SetFAssociatedName(Value : String); begin + FAssociatedName := Value; + JSCode(JSName + '.associatedName=' + VarToJSON([Value]) + ';'); end; -{$IFDEF FPC}constructor TExtDataResultSet.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtDataAssociation.SetFAssociationKey(Value : String); begin + FAssociationKey := Value; + JSCode('associationKey:' + VarToJSON([Value])); +end; -constructor TExtDataResultSet.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +procedure TExtDataAssociation.SetFModel(Value : String); begin + FModel := Value; + JSCode('model:' + VarToJSON([Value])); end; -destructor TExtDataResultSet.Destroy; begin - try - FRecords.Free; - except end; +procedure TExtDataAssociation.SetFOwnerModel(Value : String); begin + FOwnerModel := Value; + JSCode('ownerModel:' + VarToJSON([Value])); +end; + +procedure TExtDataAssociation.SetFOwnerName(Value : String); begin + FOwnerName := Value; + JSCode(JSName + '.ownerName=' + VarToJSON([Value]) + ';'); +end; + +procedure TExtDataAssociation.SetFPrimaryKey(Value : String); begin + FPrimaryKey := Value; + JSCode('primaryKey:' + VarToJSON([Value])); +end; + +procedure TExtDataAssociation.SetFReader(Value : TExtDataReader); begin + FReader := Value; + Value.DeleteFromGarbage; + JSCode('reader:' + VarToJSON([Value, false])); +end; + +function TExtDataAssociation.JSClassName : string; begin + Result := 'Ext.data.association.Association'; +end; + +procedure TExtDataAssociation.InitDefaults; begin inherited; + FReader := TExtDataReader.CreateInternal(Self, 'reader'); end; -procedure TExtAppEventDomain.SetFIdProperty(Value : String); begin - FIdProperty := Value; - JSCode('idProperty:' + VarToJSON([Value])); +{$IFDEF FPC}constructor TExtDataAssociation.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDataAssociation.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -function TExtAppEventDomain.JSClassName : string; begin - Result := 'Ext.app.EventDomain'; +function TExtDataAssociation.GetReader : TExtFunction; begin + JSCode(JSName + '.getReader();', 'TExtDataAssociation'); + Result := Self; end; -{$IFDEF FPC}constructor TExtAppEventDomain.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +destructor TExtDataAssociation.Destroy; begin + try + FReader.Free; + except end; + inherited; +end; function TExtAppEventBusSingleton.JSClassName : string; begin Result := 'Ext.app.EventBus'; @@ -25788,59 +25642,111 @@ function TExtAppEventBusSingleton.Unlisten(ControllerId : String) : TExtFunction Result := Self; end; -procedure TExtChartHighlight.SetFHighlight(Value : Boolean); begin - FHighlight := Value; - JSCode('highlight:' + VarToJSON([Value])); +function TExtChartTheme.JSClassName : string; begin + Result := 'Ext.chart.theme.Theme'; end; -procedure TExtChartHighlight.SetFHighlightCfg(Value : TExtObject); begin - FHighlightCfg := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.highlightCfg=' + VarToJSON([Value, false]) + ';'); +{$IFDEF FPC}constructor TExtChartTheme.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtDataRequest.SetFAction(Value : String); begin + FAction := Value; + JSCode('action:' + VarToJSON([Value])); +end; + +procedure TExtDataRequest.SetFMethod(Value : String); begin + FMethod := Value; + JSCode('method:' + VarToJSON([Value])); end; -procedure TExtChartHighlight.SetFHighlightTExtObject(Value : TExtObject); begin - FHighlightTExtObject := Value; +procedure TExtDataRequest.SetFParams(Value : TExtObject); begin + FParams := Value; Value.DeleteFromGarbage; - JSCode('highlight:' + VarToJSON([Value, false])); + JSCode('params:' + VarToJSON([Value, false])); end; -function TExtChartHighlight.JSClassName : string; begin - Result := 'Ext.chart.Highlight'; +procedure TExtDataRequest.SetFUrl(Value : String); begin + FUrl := Value; + JSCode('url:' + VarToJSON([Value])); end; -procedure TExtChartHighlight.InitDefaults; begin +function TExtDataRequest.JSClassName : string; begin + Result := 'Ext.data.Request'; +end; + +procedure TExtDataRequest.InitDefaults; begin inherited; - FHighlightCfg := TExtObject.CreateInternal(Self, 'highlightCfg'); - FHighlightTExtObject := TExtObject.CreateInternal(Self, 'highlight'); + FParams := TExtObject.CreateInternal(Self, 'params'); end; -{$IFDEF FPC}constructor TExtChartHighlight.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataRequest.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtChartHighlight.Create; begin +constructor TExtDataRequest.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -function TExtChartHighlight.HighlightItem(Item : TExtObject) : TExtFunction; begin - JSCode(JSName + '.highlightItem(' + VarToJSON([Item, false]) + ');', 'TExtChartHighlight'); - Result := Self; -end; - -function TExtChartHighlight.UnHighlightItem : TExtFunction; begin - JSCode(JSName + '.unHighlightItem();', 'TExtChartHighlight'); - Result := Self; -end; - -destructor TExtChartHighlight.Destroy; begin +destructor TExtDataRequest.Destroy; begin try - FHighlightCfg.Free; - FHighlightTExtObject.Free; + FParams.Free; except end; inherited; end; -procedure TExtChartLabel.SetFLabelJS(Value : TExtObject); begin +procedure TExtDataResultSet.SetFCount(Value : Integer); begin + FCount := Value; + JSCode('count:' + VarToJSON([Value])); +end; + +procedure TExtDataResultSet.SetFLoaded(Value : Boolean); begin + FLoaded := Value; + JSCode('loaded:' + VarToJSON([Value])); +end; + +procedure TExtDataResultSet.SetFRecords(Value : TExtObjectList); begin + FRecords := Value; + Value.DeleteFromGarbage; + JSCode('records:' + VarToJSON([Value, false])); +end; + +procedure TExtDataResultSet.SetFSuccess(Value : Boolean); begin + FSuccess := Value; + JSCode('success:' + VarToJSON([Value])); +end; + +procedure TExtDataResultSet.SetFTotal(Value : Integer); begin + FTotal := Value; + JSCode('total:' + VarToJSON([Value])); +end; + +procedure TExtDataResultSet.SetFTotalRecords(Value : Integer); begin + FTotalRecords := Value; + JSCode(JSName + '.totalRecords=' + VarToJSON([Value]) + ';'); +end; + +function TExtDataResultSet.JSClassName : string; begin + Result := 'Ext.data.ResultSet'; +end; + +procedure TExtDataResultSet.InitDefaults; begin + inherited; + FRecords := TExtObjectList.Create(Self, 'records'); +end; + +{$IFDEF FPC}constructor TExtDataResultSet.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDataResultSet.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtDataResultSet.Destroy; begin + try + FRecords.Free; + except end; + inherited; +end; + +procedure TExtChartLabel.SetFLabelJS(Value : TExtObject); begin FLabelJS := Value; Value.DeleteFromGarbage; JSCode('labelJS:' + VarToJSON([Value, false])); @@ -25869,6 +25775,28 @@ destructor TExtChartLabel.Destroy; begin inherited; end; +function TExtDirectEvent.JSClassName : string; begin + Result := 'Ext.direct.Event'; +end; + +{$IFDEF FPC}constructor TExtDirectEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDirectEvent.Create(Config : TExtObject = nil); begin + if Config = nil then CreateVar(JSClassName + '({});') else + CreateVar(JSClassName + '(' + VarToJSON([Config, false]) + ');'); + InitDefaults; +end; + +function TExtDirectEvent.GetData : TExtFunction; begin + JSCode(JSName + '.getData();', 'TExtDirectEvent'); + Result := Self; +end; + +function TExtDirectEvent.GetName : TExtFunction; begin + JSCode(JSName + '.getName();', 'TExtDirectEvent'); + Result := Self; +end; + procedure TExtChartLegend.SetFBoxFill(Value : String); begin FBoxFill := Value; JSCode('boxFill:' + VarToJSON([Value])); @@ -25955,22 +25883,160 @@ function TExtChartLegend.Toggle(Show : Boolean) : TExtFunction; begin Result := Self; end; -procedure TExtAbstractPlugin.SetFPluginId(Value : String); begin - FPluginId := Value; - JSCode('pluginId:' + VarToJSON([Value])); +procedure TExtAction.SetFDisabled(Value : Boolean); begin + FDisabled := Value; + if not ConfigAvailable(JSName) then + SetDisabled(Value) + else + JSCode('disabled:' + VarToJSON([Value])); end; -function TExtAbstractPlugin.JSClassName : string; begin - Result := 'Ext.AbstractPlugin'; +procedure TExtAction.SetFHandler(Value : TExtFunction); begin + FHandler := Value; + if not ConfigAvailable(JSName) then + SetHandler(Value, nil) + else + JSCode('handler:' + VarToJSON([Value, true])); end; -{$IFDEF FPC}constructor TExtAbstractPlugin.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtAction.SetFHidden(Value : Boolean); begin + FHidden := Value; + if not ConfigAvailable(JSName) then + SetHidden(Value) + else + JSCode('hidden:' + VarToJSON([Value])); +end; -function TExtAbstractPlugin.Disable : TExtFunction; begin - JSCode(JSName + '.disable();', 'TExtAbstractPlugin'); +procedure TExtAction.SetFIconCls(Value : String); begin + FIconCls := Value; + if not ConfigAvailable(JSName) then + SetIconCls(Value) + else + JSCode('iconCls:' + VarToJSON([Value])); +end; + +procedure TExtAction.SetFIsAction(Value : Boolean); begin + FIsAction := Value; + JSCode(JSName + '.isAction=' + VarToJSON([Value]) + ';'); +end; + +procedure TExtAction.SetFItemId(Value : String); begin + FItemId := Value; + JSCode('itemId:' + VarToJSON([Value])); +end; + +procedure TExtAction.SetFScope(Value : TExtObject); begin + FScope := Value; + Value.DeleteFromGarbage; + JSCode('scope:' + VarToJSON([Value, false])); +end; + +procedure TExtAction.SetFText(Value : String); begin + FText := Value; + if not ConfigAvailable(JSName) then + SetText(Value) + else + JSCode('text:' + VarToJSON([Value])); +end; + +function TExtAction.JSClassName : string; begin + Result := 'Ext.Action'; +end; + +procedure TExtAction.InitDefaults; begin + inherited; + FScope := TExtObject.CreateInternal(Self, 'scope'); +end; + +{$IFDEF FPC}constructor TExtAction.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtAction.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtAction.Disable : TExtFunction; begin + JSCode(JSName + '.disable();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.Each(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin + JSCode(JSName + '.each(' + VarToJSON([Fn, true, Scope, false]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.Enable : TExtFunction; begin + JSCode(JSName + '.enable();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.Execute(Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.execute(' + VarToJSON(Args) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.GetIconCls : TExtFunction; begin + JSCode(JSName + '.getIconCls();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.GetText : TExtFunction; begin + JSCode(JSName + '.getText();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.Hide : TExtFunction; begin + JSCode(JSName + '.hide();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.IsDisabled : TExtFunction; begin + JSCode(JSName + '.isDisabled();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.IsHidden : TExtFunction; begin + JSCode(JSName + '.isHidden();', 'TExtAction'); + Result := Self; +end; + +function TExtAction.SetDisabled(Disabled : Boolean) : TExtFunction; begin + JSCode(JSName + '.setDisabled(' + VarToJSON([Disabled]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.SetHandler(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin + JSCode(JSName + '.setHandler(' + VarToJSON([Fn, true, Scope, false]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.SetHidden(Hidden : Boolean) : TExtFunction; begin + JSCode(JSName + '.setHidden(' + VarToJSON([Hidden]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.SetIconCls(Cls : String) : TExtFunction; begin + JSCode(JSName + '.setIconCls(' + VarToJSON([Cls]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.SetText(Text : String) : TExtFunction; begin + JSCode(JSName + '.setText(' + VarToJSON([Text]) + ');', 'TExtAction'); + Result := Self; +end; + +function TExtAction.Show : TExtFunction; begin + JSCode(JSName + '.show();', 'TExtAction'); Result := Self; end; +destructor TExtAction.Destroy; begin + try + FScope.Free; + except end; + inherited; +end; + procedure TExtDdDragTracker.SetFAutoStart(Value : Boolean); begin FAutoStart := Value; JSCode('autoStart:' + VarToJSON([Value])); @@ -25987,8 +26053,8 @@ procedure TExtDdDragTracker.SetFConstrainTo(Value : TExtUtilRegion); begin JSCode('constrainTo:' + VarToJSON([Value, false])); end; -procedure TExtDdDragTracker.SetFConstrainToTExtElement(Value : TExtElement); begin - FConstrainToTExtElement := Value; +procedure TExtDdDragTracker.SetFConstrainToElement(Value : TExtElement); begin + FConstrainToElement := Value; Value.DeleteFromGarbage; JSCode('constrainTo:' + VarToJSON([Value, false])); end; @@ -26119,7 +26185,7 @@ function TExtDdDragTracker.JSClassName : string; begin procedure TExtDdDragTracker.InitDefaults; begin inherited; FConstrainTo := TExtUtilRegion.CreateInternal(Self, 'constrainTo'); - FConstrainToTExtElement := TExtElement.CreateInternal(Self, 'constrainTo'); + FConstrainToElement := TExtElement.CreateInternal(Self, 'constrainTo'); FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); end; @@ -26229,7 +26295,7 @@ function TExtDdDragTracker.SuspendEvents(QueueSuspended : Boolean) : TExtFunctio destructor TExtDdDragTracker.Destroy; begin try FConstrainTo.Free; - FConstrainToTExtElement.Free; + FConstrainToElement.Free; FHasListeners.Free; FListeners.Free; except end; @@ -26258,110 +26324,49 @@ procedure TExtDdDragTracker.HandleEvent(const AEvtName : string); begin FOnMouseup(TExtDdDragTracker(ParamAsObject('This')), TExtObject(ParamAsObject('E'))); end; -procedure TExtAbstractManager.SetFAll(Value : TExtUtilHashMap); begin - FAll := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.all=' + VarToJSON([Value, false]) + ';'); -end; - -function TExtAbstractManager.JSClassName : string; begin - Result := 'Ext.AbstractManager'; -end; - -procedure TExtAbstractManager.InitDefaults; begin - inherited; - FAll := TExtUtilHashMap.CreateInternal(Self, 'all'); -end; - -{$IFDEF FPC}constructor TExtAbstractManager.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtAbstractManager.Create; begin - CreateVarAlt(JSClassName + '.create({});'); - InitDefaults; -end; - -function TExtAbstractManager.Each(Fn : TExtFunction; FnKey : String; FnValue : Integer; FnLength : Integer; FnReturn : Boolean; Scope : TExtObject) : TExtFunction; begin - JSCode(JSName + '.each(' + VarToJSON([Fn, true, FnKey, FnValue, FnLength, FnReturn, Scope, false]) + ');', 'TExtAbstractManager'); - Result := Self; -end; - -function TExtAbstractManager.Get(Id : String) : TExtFunction; begin - JSCode(JSName + '.get(' + VarToJSON([Id]) + ');', 'TExtAbstractManager'); - Result := Self; -end; - -function TExtAbstractManager.GetCount : TExtFunction; begin - JSCode(JSName + '.getCount();', 'TExtAbstractManager'); - Result := Self; -end; - -function TExtAbstractManager.IsRegistered(TypeJS : String) : TExtFunction; begin - JSCode(JSName + '.isRegistered(' + VarToJSON([TypeJS]) + ');', 'TExtAbstractManager'); - Result := Self; -end; - -function TExtAbstractManager.OnAvailable(Id : String; Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin - JSCode(JSName + '.onAvailable(' + VarToJSON([Id, Fn, true, Scope, false]) + ');', 'TExtAbstractManager'); - Result := Self; +procedure TExtAbstractPlugin.SetFPluginId(Value : String); begin + FPluginId := Value; + JSCode('pluginId:' + VarToJSON([Value])); end; -function TExtAbstractManager.Register(Item : TExtObject) : TExtFunction; begin - JSCode(JSName + '.register(' + VarToJSON([Item, false]) + ');', 'TExtAbstractManager'); - Result := Self; +function TExtAbstractPlugin.JSClassName : string; begin + Result := 'Ext.AbstractPlugin'; end; -function TExtAbstractManager.RegisterType(TypeJS : String; Cls : TExtFunction) : TExtFunction; begin - JSCode(JSName + '.registerType(' + VarToJSON([TypeJS, Cls, true]) + ');', 'TExtAbstractManager'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtAbstractPlugin.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtAbstractManager.Unregister(Item : TExtObject) : TExtFunction; begin - JSCode(JSName + '.unregister(' + VarToJSON([Item, false]) + ');', 'TExtAbstractManager'); +function TExtAbstractPlugin.Disable : TExtFunction; begin + JSCode(JSName + '.disable();', 'TExtAbstractPlugin'); Result := Self; end; -destructor TExtAbstractManager.Destroy; begin - try - FAll.Free; - except end; - inherited; -end; - -function TExtDirectEvent.JSClassName : string; begin - Result := 'Ext.direct.Event'; -end; - -{$IFDEF FPC}constructor TExtDirectEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDirectEvent.Create(Config : TExtObject = nil); begin - if Config = nil then CreateVar(JSClassName + '({});') else - CreateVar(JSClassName + '(' + VarToJSON([Config, false]) + ');'); - InitDefaults; +function TExtDiagLayoutContextItem.JSClassName : string; begin + Result := 'Ext.diag.layout.ContextItem'; end; -function TExtDirectEvent.GetData : TExtFunction; begin - JSCode(JSName + '.getData();', 'TExtDirectEvent'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtDiagLayoutContextItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDirectEvent.GetName : TExtFunction; begin - JSCode(JSName + '.getName();', 'TExtDirectEvent'); - Result := Self; +procedure TExtDataIdGenerator.SetFId(Value : String); begin + FId := Value; + JSCode('id:' + VarToJSON([Value])); end; -procedure TExtDdScrollManagerSingleton.SetFDdGroup(Value : String); begin - FDdGroup := Value; - JSCode(JSName + '.ddGroup=' + VarToJSON([Value]) + ';'); +function TExtDataIdGenerator.JSClassName : string; begin + Result := 'Ext.data.IdGenerator'; end; -function TExtDdScrollManagerSingleton.JSClassName : string; begin - Result := 'Ext.dd.ScrollManager'; +class function TExtDataIdGenerator.All : TExtObject; +const + lAll : TExtObject = nil; +begin + if lAll = nil then lAll := TExtObject.CreateSingleton('Ext.data.IdGenerator.All'); + Result := lAll end; -{$IFDEF FPC}constructor TExtDdScrollManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataIdGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDdScrollManagerSingleton.RefreshCache : TExtFunction; begin - JSCode(JSName + '.refreshCache();', 'TExtDdScrollManagerSingleton'); +function TExtDataIdGenerator.Get(Config : String) : TExtFunction; begin + JSCode(JSName + '.get(' + VarToJSON([Config]) + ');', 'TExtDataIdGenerator'); Result := Self; end; @@ -26401,35 +26406,74 @@ function TExtDdRegistrySingleton.Unregister(Element : String) : TExtFunction; be Result := Self; end; -procedure TExtDataIdGenerator.SetFId(Value : String); begin - FId := Value; - JSCode('id:' + VarToJSON([Value])); +procedure TExtAbstractManager.SetFAll(Value : TExtUtilHashMap); begin + FAll := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.all=' + VarToJSON([Value, false]) + ';'); end; -function TExtDataIdGenerator.JSClassName : string; begin - Result := 'Ext.data.IdGenerator'; +function TExtAbstractManager.JSClassName : string; begin + Result := 'Ext.AbstractManager'; end; -class function TExtDataIdGenerator.All : TExtObject; -const - lAll : TExtObject = nil; -begin - if lAll = nil then lAll := TExtObject.CreateSingleton('Ext.data.IdGenerator.All'); - Result := lAll +procedure TExtAbstractManager.InitDefaults; begin + inherited; + FAll := TExtUtilHashMap.CreateInternal(Self, 'all'); end; -{$IFDEF FPC}constructor TExtDataIdGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtAbstractManager.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDataIdGenerator.Get(Config : String) : TExtFunction; begin - JSCode(JSName + '.get(' + VarToJSON([Config]) + ');', 'TExtDataIdGenerator'); +constructor TExtAbstractManager.Create; begin + CreateVarAlt(JSClassName + '.create({});'); + InitDefaults; +end; + +function TExtAbstractManager.Each(Fn : TExtFunction; FnKey : String; FnValue : Integer; FnLength : Integer; FnReturn : Boolean; Scope : TExtObject) : TExtFunction; begin + JSCode(JSName + '.each(' + VarToJSON([Fn, true, FnKey, FnValue, FnLength, FnReturn, Scope, false]) + ');', 'TExtAbstractManager'); Result := Self; end; -function TExtDiagLayoutContextItem.JSClassName : string; begin - Result := 'Ext.diag.layout.ContextItem'; +function TExtAbstractManager.Get(Id : String) : TExtFunction; begin + JSCode(JSName + '.get(' + VarToJSON([Id]) + ');', 'TExtAbstractManager'); + Result := Self; end; -{$IFDEF FPC}constructor TExtDiagLayoutContextItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtAbstractManager.GetCount : TExtFunction; begin + JSCode(JSName + '.getCount();', 'TExtAbstractManager'); + Result := Self; +end; + +function TExtAbstractManager.IsRegistered(TypeJS : String) : TExtFunction; begin + JSCode(JSName + '.isRegistered(' + VarToJSON([TypeJS]) + ');', 'TExtAbstractManager'); + Result := Self; +end; + +function TExtAbstractManager.OnAvailable(Id : String; Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin + JSCode(JSName + '.onAvailable(' + VarToJSON([Id, Fn, true, Scope, false]) + ');', 'TExtAbstractManager'); + Result := Self; +end; + +function TExtAbstractManager.Register(Item : TExtObject) : TExtFunction; begin + JSCode(JSName + '.register(' + VarToJSON([Item, false]) + ');', 'TExtAbstractManager'); + Result := Self; +end; + +function TExtAbstractManager.RegisterType(TypeJS : String; Cls : TExtFunction) : TExtFunction; begin + JSCode(JSName + '.registerType(' + VarToJSON([TypeJS, Cls, true]) + ');', 'TExtAbstractManager'); + Result := Self; +end; + +function TExtAbstractManager.Unregister(Item : TExtObject) : TExtFunction; begin + JSCode(JSName + '.unregister(' + VarToJSON([Item, false]) + ');', 'TExtAbstractManager'); + Result := Self; +end; + +destructor TExtAbstractManager.Destroy; begin + try + FAll.Free; + except end; + inherited; +end; function TExtDiagLayoutContext.JSClassName : string; begin Result := 'Ext.diag.layout.Context'; @@ -26459,6 +26503,22 @@ constructor TExtChartMask.Create(Config : TExtObject = nil); begin InitDefaults; end; +procedure TExtDdScrollManagerSingleton.SetFDdGroup(Value : String); begin + FDdGroup := Value; + JSCode(JSName + '.ddGroup=' + VarToJSON([Value]) + ';'); +end; + +function TExtDdScrollManagerSingleton.JSClassName : string; begin + Result := 'Ext.dd.ScrollManager'; +end; + +{$IFDEF FPC}constructor TExtDdScrollManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDdScrollManagerSingleton.RefreshCache : TExtFunction; begin + JSCode(JSName + '.refreshCache();', 'TExtDdScrollManagerSingleton'); + Result := Self; +end; + procedure TExtDdDragDropManagerSingleton.SetFClickPixelThresh(Value : Integer); begin FClickPixelThresh := Value; JSCode(JSName + '.clickPixelThresh=' + VarToJSON([Value]) + ';'); @@ -26646,307 +26706,273 @@ destructor TExtDdDragDropManagerSingleton.Destroy; begin inherited; end; -procedure TExtAction.SetFDisabled(Value : Boolean); begin - FDisabled := Value; - if not ConfigAvailable(JSName) then - SetDisabled(Value) - else - JSCode('disabled:' + VarToJSON([Value])); -end; - -procedure TExtAction.SetFHandler(Value : TExtFunction); begin - FHandler := Value; +procedure TExtComponent.SetFAutoScroll(Value : Boolean); begin + FAutoScroll := Value; if not ConfigAvailable(JSName) then - SetHandler(Value, nil) + SetAutoScroll(Value) else - JSCode('handler:' + VarToJSON([Value, true])); + JSCode('autoScroll:' + VarToJSON([Value])); end; -procedure TExtAction.SetFHidden(Value : Boolean); begin - FHidden := Value; - if not ConfigAvailable(JSName) then - SetHidden(Value) - else - JSCode('hidden:' + VarToJSON([Value])); +procedure TExtComponent.SetFColumnWidth(Value : Integer); begin + FColumnWidth := Value; + JSCode('columnWidth:' + VarToJSON([Value])); end; -procedure TExtAction.SetFIconCls(Value : String); begin - FIconCls := Value; - if not ConfigAvailable(JSName) then - SetIconCls(Value) - else - JSCode('iconCls:' + VarToJSON([Value])); +procedure TExtComponent.SetFColumnWidthString(Value : String); begin + FColumnWidthString := Value; + JSCode('columnWidth:' + VarToJSON([Value])); end; -procedure TExtAction.SetFIsAction(Value : Boolean); begin - FIsAction := Value; - JSCode(JSName + '.isAction=' + VarToJSON([Value]) + ';'); +procedure TExtComponent.SetFConstrain(Value : Boolean); begin + FConstrain := Value; + JSCode('constrain:' + VarToJSON([Value])); end; -procedure TExtAction.SetFItemId(Value : String); begin - FItemId := Value; - JSCode('itemId:' + VarToJSON([Value])); +procedure TExtComponent.SetFConstrainTo(Value : TExtUtilRegion); begin + FConstrainTo := Value; + Value.DeleteFromGarbage; + JSCode('constrainTo:' + VarToJSON([Value, false])); end; -procedure TExtAction.SetFScope(Value : TExtObject); begin - FScope := Value; +procedure TExtComponent.SetFConstrainToElement(Value : TExtElement); begin + FConstrainToElement := Value; Value.DeleteFromGarbage; - JSCode('scope:' + VarToJSON([Value, false])); + JSCode('constrainTo:' + VarToJSON([Value, false])); end; -procedure TExtAction.SetFText(Value : String); begin - FText := Value; - if not ConfigAvailable(JSName) then - SetText(Value) - else - JSCode('text:' + VarToJSON([Value])); +procedure TExtComponent.SetFDefaultAlign(Value : String); begin + FDefaultAlign := Value; + JSCode('defaultAlign:' + VarToJSON([Value])); end; -function TExtAction.JSClassName : string; begin - Result := 'Ext.Action'; +procedure TExtComponent.SetFDraggable(Value : Boolean); begin + FDraggable := Value; + JSCode('draggable:' + VarToJSON([Value])); end; -procedure TExtAction.InitDefaults; begin - inherited; - FScope := TExtObject.CreateInternal(Self, 'scope'); +procedure TExtComponent.SetFDraggableObject(Value : TExtObject); begin + FDraggableObject := Value; + Value.DeleteFromGarbage; + JSCode('draggable:' + VarToJSON([Value, false])); end; -{$IFDEF FPC}constructor TExtAction.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtComponent.SetFFixed(Value : Boolean); begin + FFixed := Value; + JSCode('fixed:' + VarToJSON([Value])); +end; -constructor TExtAction.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +procedure TExtComponent.SetFFloating(Value : Boolean); begin + FFloating := Value; + JSCode('floating:' + VarToJSON([Value])); end; -function TExtAction.Disable : TExtFunction; begin - JSCode(JSName + '.disable();', 'TExtAction'); - Result := Self; -end; - -function TExtAction.Each(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin - JSCode(JSName + '.each(' + VarToJSON([Fn, true, Scope, false]) + ');', 'TExtAction'); - Result := Self; -end; - -function TExtAction.Enable : TExtFunction; begin - JSCode(JSName + '.enable();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFFocusOnToFront(Value : Boolean); begin + FFocusOnToFront := Value; + JSCode('focusOnToFront:' + VarToJSON([Value])); end; -function TExtAction.Execute(Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.execute(' + VarToJSON(Args) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFFormBind(Value : Boolean); begin + FFormBind := Value; + JSCode('formBind:' + VarToJSON([Value])); end; -function TExtAction.GetIconCls : TExtFunction; begin - JSCode(JSName + '.getIconCls();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFOverflowX(Value : String); begin + FOverflowX := Value; + JSCode('overflowX:' + VarToJSON([Value])); end; -function TExtAction.GetText : TExtFunction; begin - JSCode(JSName + '.getText();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFOverflowY(Value : String); begin + FOverflowY := Value; + JSCode('overflowY:' + VarToJSON([Value])); end; -function TExtAction.Hide : TExtFunction; begin - JSCode(JSName + '.hide();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFRegion(Value : TRegionEnum); begin + FRegion := Value; + JSCode('region:"' + EnumToJSString(TypeInfo(TRegionEnum), ord(Value)) + '"'); end; -function TExtAction.IsDisabled : TExtFunction; begin - JSCode(JSName + '.isDisabled();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFResizable(Value : Boolean); begin + FResizable := Value; + JSCode('resizable:' + VarToJSON([Value])); end; -function TExtAction.IsHidden : TExtFunction; begin - JSCode(JSName + '.isHidden();', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFResizableObject(Value : TExtObject); begin + FResizableObject := Value; + Value.DeleteFromGarbage; + JSCode('resizable:' + VarToJSON([Value, false])); end; -function TExtAction.SetDisabled(Disabled : Boolean) : TExtFunction; begin - JSCode(JSName + '.setDisabled(' + VarToJSON([Disabled]) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFResizeHandles(Value : String); begin + FResizeHandles := Value; + JSCode('resizeHandles:' + VarToJSON([Value])); end; -function TExtAction.SetHandler(Fn : TExtFunction; Scope : TExtObject) : TExtFunction; begin - JSCode(JSName + '.setHandler(' + VarToJSON([Fn, true, Scope, false]) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFShadow(Value : String); begin + FShadow := Value; + JSCode('shadow:' + VarToJSON([Value])); end; -function TExtAction.SetHidden(Hidden : Boolean) : TExtFunction; begin - JSCode(JSName + '.setHidden(' + VarToJSON([Hidden]) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFShadowBoolean(Value : Boolean); begin + FShadowBoolean := Value; + JSCode('shadow:' + VarToJSON([Value])); end; -function TExtAction.SetIconCls(Cls : String) : TExtFunction; begin - JSCode(JSName + '.setIconCls(' + VarToJSON([Cls]) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFShadowOffset(Value : Integer); begin + FShadowOffset := Value; + JSCode('shadowOffset:' + VarToJSON([Value])); end; -function TExtAction.SetText(Text : String) : TExtFunction; begin - JSCode(JSName + '.setText(' + VarToJSON([Text]) + ');', 'TExtAction'); - Result := Self; +procedure TExtComponent.SetFToFrontOnShow(Value : Boolean); begin + FToFrontOnShow := Value; + JSCode('toFrontOnShow:' + VarToJSON([Value])); end; -function TExtAction.Show : TExtFunction; begin - JSCode(JSName + '.show();', 'TExtAction'); - Result := Self; +function TExtComponent.JSClassName : string; begin + Result := 'Ext.Component'; end; -destructor TExtAction.Destroy; begin - try - FScope.Free; - except end; +procedure TExtComponent.InitDefaults; begin inherited; + FConstrainTo := TExtUtilRegion.CreateInternal(Self, 'constrainTo'); + FConstrainToElement := TExtElement.CreateInternal(Self, 'constrainTo'); + FDraggableObject := TExtObject.CreateInternal(Self, 'draggable'); + FResizableObject := TExtObject.CreateInternal(Self, 'resizable'); end; -procedure TExtDirectManagerSingleton.SetFHasListeners(Value : TExtObject); begin - FHasListeners := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtDirectManagerSingleton.SetFIsObservable(Value : Boolean); begin - FIsObservable := Value; - JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); -end; +{$IFDEF FPC}constructor TExtComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtDirectManagerSingleton.SetFListeners(Value : TExtObject); begin - FListeners := Value; - Value.DeleteFromGarbage; - JSCode('listeners:' + VarToJSON([Value, false])); +function TExtComponent.Bubble(Fn : TExtFunction; Scope : TExtObject = nil; Args : TExtObjectList = nil) : TExtFunction; begin + JSCode(JSName + '.bubble(' + VarToJSON([Fn, true, Scope, false]) + ',' + VarToJSON(Args) + ');', 'TExtComponent'); + Result := Self; end; -procedure TExtDirectManagerSingleton.SetFOnEvent(Value : TExtDirectManagerSingletonOnEvent); begin - if Assigned(FOnEvent) then - JSCode(JSName+'.events ["event"].listeners=[];'); - if Assigned(Value) then - AddListener('event', Ajax('event', ['Event', '%0.nm','Provider', '%1.nm'], true)); - FOnEvent := Value; +function TExtComponent.Center : TExtFunction; begin + JSCode(JSName + '.center();', 'TExtComponent'); + Result := Self; end; -procedure TExtDirectManagerSingleton.SetFOnException(Value : TExtDirectManagerSingletonOnException); begin - if Assigned(FOnException) then - JSCode(JSName+'.events ["exception"].listeners=[];'); - if Assigned(Value) then - AddListener('exception', Ajax('exception', ['Event', '%0.nm'], true)); - FOnException := Value; +function TExtComponent.CloneConfig(Overrides : TExtObject) : TExtFunction; begin + JSCode(JSName + '.cloneConfig(' + VarToJSON([Overrides, false]) + ');', 'TExtComponent'); + Result := Self; end; -function TExtDirectManagerSingleton.JSClassName : string; begin - Result := 'Ext.direct.Manager'; +constructor TExtComponent.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -{$IFDEF FPC}constructor TExtDirectManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDirectManagerSingleton.AddEvents(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.DoConstrain(ConstrainTo : String = '') : TExtFunction; begin + JSCode(JSName + '.doConstrain(' + VarToJSON([ConstrainTo]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin - JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.FindParentBy(Fn : TExtFunction) : TExtFunction; begin + JSCode(JSName + '.findParentBy(' + VarToJSON([Fn, true]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.FindParentByType(Xtype : String) : TExtFunction; begin + JSCode(JSName + '.findParentByType(' + VarToJSON([Xtype]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.AddProvider(Provider : TExtDirectProvider) : TExtFunction; begin - JSCode(JSName + '.addProvider(' + VarToJSON([Provider, false]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.Focus(SelectText : Boolean = false; Delay : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.focus(' + VarToJSON([SelectText, Delay]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.ClearListeners : TExtFunction; begin - JSCode(JSName + '.clearListeners();', 'TExtDirectManagerSingleton'); +function TExtComponent.GetPosition(Local : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.getPosition(' + VarToJSON([Local]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.ClearManagedListeners : TExtFunction; begin - JSCode(JSName + '.clearManagedListeners();', 'TExtDirectManagerSingleton'); +function TExtComponent.GetXType : TExtFunction; begin + JSCode(JSName + '.getXType();', 'TExtComponent'); Result := Self; end; -constructor TExtDirectManagerSingleton.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtDirectManagerSingleton.EnableBubble(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.Hide(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.hide(' + VarToJSON([AnimateTarget, Callback, true, Scope, false]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.ScrollBy(DeltaX : Integer; DeltaY : Boolean; Animate : Boolean) : TExtFunction; begin + JSCode(JSName + '.scrollBy(' + VarToJSON([DeltaX, DeltaY, Animate]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.SetActive(Active : Boolean = false; NewActive : TExtComponent = nil) : TExtFunction; begin + JSCode(JSName + '.setActive(' + VarToJSON([Active, NewActive, false]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.GetProvider(Id : String) : TExtFunction; begin - JSCode(JSName + '.getProvider(' + VarToJSON([Id]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.SetAutoScroll(Scroll : Boolean) : TExtFunction; begin + JSCode(JSName + '.setAutoScroll(' + VarToJSON([Scroll]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.HasListener(EventName : String) : TExtFunction; begin - JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.SetLoading(Load : Boolean; TargetEl : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.setLoading(' + VarToJSON([Load, TargetEl]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin - JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.SetOverflowXY(OverflowX : String; OverflowY : String) : TExtFunction; begin + JSCode(JSName + '.setOverflowXY(' + VarToJSON([OverflowX, OverflowY]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.SetPagePosition(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.setPagePosition(' + VarToJSON([X, Y, Animate]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.Show(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.show(' + VarToJSON([AnimateTarget, Callback, true, Scope, false]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.RemoveProvider(Provider : String) : TExtFunction; begin - JSCode(JSName + '.removeProvider(' + VarToJSON([Provider]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.ShowAt(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.showAt(' + VarToJSON([X, Y, Animate]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.ResumeEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.ShowBy(Component : TExtComponent; Position : String = ''; Offsets : TArrayOfInteger = nil) : TExtFunction; begin + JSCode(JSName + '.showBy(' + VarToJSON([Component, false, Position, Offsets]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.ResumeEvents : TExtFunction; begin - JSCode(JSName + '.resumeEvents();', 'TExtDirectManagerSingleton'); +function TExtComponent.ToBack : TExtFunction; begin + JSCode(JSName + '.toBack();', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.SuspendEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.ToFront(PreventFocus : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.toFront(' + VarToJSON([PreventFocus]) + ');', 'TExtComponent'); Result := Self; end; -function TExtDirectManagerSingleton.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin - JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtDirectManagerSingleton'); +function TExtComponent.UpdateBox(Box : TExtObject) : TExtFunction; begin + JSCode(JSName + '.updateBox(' + VarToJSON([Box, false]) + ');', 'TExtComponent'); Result := Self; end; -procedure TExtDirectManagerSingleton.HandleEvent(const AEvtName : string); begin +destructor TExtComponent.Destroy; begin + try + FConstrainTo.Free; + FConstrainToElement.Free; + FDraggableObject.Free; + FResizableObject.Free; + except end; inherited; - if (AEvtName = 'event') and Assigned(FOnEvent) then - FOnEvent(TExtDirectEvent(ParamAsObject('Event')), TExtDirectProvider(ParamAsObject('Provider'))) - else if (AEvtName = 'exception') and Assigned(FOnException) then - FOnException(TExtDirectEvent(ParamAsObject('Event'))); end; +function TExtChartCallout.JSClassName : string; begin + Result := 'Ext.chart.Callout'; +end; + +{$IFDEF FPC}constructor TExtChartCallout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + function TExtChartNavigation.JSClassName : string; begin Result := 'Ext.chart.Navigation'; end; @@ -26963,28 +26989,6 @@ function TExtChartNavigation.SetZoom : TExtFunction; begin Result := Self; end; -function TExtComponentQuerySingleton.JSClassName : string; begin - Result := 'Ext.ComponentQuery'; -end; - -{$IFDEF FPC}constructor TExtComponentQuerySingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtComponentQuerySingleton.IsJS(Component : TExtComponent; Selector : String) : TExtFunction; begin - JSCode(JSName + '.is(' + VarToJSON([Component, false, Selector]) + ');', 'TExtComponentQuerySingleton'); - Result := Self; -end; - -function TExtComponentQuerySingleton.Query(Selector : String; Root : TExtContainer = nil) : TExtFunction; begin - JSCode(JSName + '.query(' + VarToJSON([Selector, Root, false]) + ');', 'TExtComponentQuerySingleton'); - Result := Self; -end; - -function TExtChartCallout.JSClassName : string; begin - Result := 'Ext.chart.Callout'; -end; - -{$IFDEF FPC}constructor TExtChartCallout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtChartSeries.SetFHasListeners(Value : TExtObject); begin FHasListeners := Value; Value.DeleteFromGarbage; @@ -27002,8 +27006,8 @@ procedure TExtChartSeries.SetFHighlightCfg(Value : TExtObject); begin JSCode(JSName + '.highlightCfg=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtChartSeries.SetFHighlightTExtObject(Value : TExtObject); begin - FHighlightTExtObject := Value; +procedure TExtChartSeries.SetFHighlightObject(Value : TExtObject); begin + FHighlightObject := Value; Value.DeleteFromGarbage; JSCode('highlight:' + VarToJSON([Value, false])); end; @@ -27073,7 +27077,7 @@ procedure TExtChartSeries.InitDefaults; begin inherited; FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); FHighlightCfg := TExtObject.CreateInternal(Self, 'highlightCfg'); - FHighlightTExtObject := TExtObject.CreateInternal(Self, 'highlight'); + FHighlightObject := TExtObject.CreateInternal(Self, 'highlight'); FLabelJS := TExtObject.CreateInternal(Self, 'labelJS'); FListeners := TExtObject.CreateInternal(Self, 'listeners'); FShadowAttributes := TExtObjectList.Create(Self, 'shadowAttributes'); @@ -27221,7 +27225,7 @@ destructor TExtChartSeries.Destroy; begin try FHasListeners.Free; FHighlightCfg.Free; - FHighlightTExtObject.Free; + FHighlightObject.Free; FLabelJS.Free; FListeners.Free; FShadowAttributes.Free; @@ -27236,6 +27240,169 @@ procedure TExtChartSeries.HandleEvent(const AEvtName : string); begin FOnTitlechange(ParamAsString('Title'), ParamAsInteger('Index')); end; +procedure TExtDirectManagerSingleton.SetFHasListeners(Value : TExtObject); begin + FHasListeners := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); +end; + +procedure TExtDirectManagerSingleton.SetFIsObservable(Value : Boolean); begin + FIsObservable := Value; + JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); +end; + +procedure TExtDirectManagerSingleton.SetFListeners(Value : TExtObject); begin + FListeners := Value; + Value.DeleteFromGarbage; + JSCode('listeners:' + VarToJSON([Value, false])); +end; + +procedure TExtDirectManagerSingleton.SetFOnEvent(Value : TExtDirectManagerSingletonOnEvent); begin + if Assigned(FOnEvent) then + JSCode(JSName+'.events ["event"].listeners=[];'); + if Assigned(Value) then + AddListener('event', Ajax('event', ['Event', '%0.nm','Provider', '%1.nm'], true)); + FOnEvent := Value; +end; + +procedure TExtDirectManagerSingleton.SetFOnException(Value : TExtDirectManagerSingletonOnException); begin + if Assigned(FOnException) then + JSCode(JSName+'.events ["exception"].listeners=[];'); + if Assigned(Value) then + AddListener('exception', Ajax('exception', ['Event', '%0.nm'], true)); + FOnException := Value; +end; + +function TExtDirectManagerSingleton.JSClassName : string; begin + Result := 'Ext.direct.Manager'; +end; + +{$IFDEF FPC}constructor TExtDirectManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDirectManagerSingleton.AddEvents(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin + JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.AddProvider(Provider : TExtDirectProvider) : TExtFunction; begin + JSCode(JSName + '.addProvider(' + VarToJSON([Provider, false]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.ClearListeners : TExtFunction; begin + JSCode(JSName + '.clearListeners();', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.ClearManagedListeners : TExtFunction; begin + JSCode(JSName + '.clearManagedListeners();', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +constructor TExtDirectManagerSingleton.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtDirectManagerSingleton.EnableBubble(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.GetProvider(Id : String) : TExtFunction; begin + JSCode(JSName + '.getProvider(' + VarToJSON([Id]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.HasListener(EventName : String) : TExtFunction; begin + JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin + JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.RemoveProvider(Provider : String) : TExtFunction; begin + JSCode(JSName + '.removeProvider(' + VarToJSON([Provider]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.ResumeEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.ResumeEvents : TExtFunction; begin + JSCode(JSName + '.resumeEvents();', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.SuspendEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +function TExtDirectManagerSingleton.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin + JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtDirectManagerSingleton'); + Result := Self; +end; + +procedure TExtDirectManagerSingleton.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'event') and Assigned(FOnEvent) then + FOnEvent(TExtDirectEvent(ParamAsObject('Event')), TExtDirectProvider(ParamAsObject('Provider'))) + else if (AEvtName = 'exception') and Assigned(FOnException) then + FOnException(TExtDirectEvent(ParamAsObject('Event'))); +end; + +function TExtComponentQuerySingleton.JSClassName : string; begin + Result := 'Ext.ComponentQuery'; +end; + +{$IFDEF FPC}constructor TExtComponentQuerySingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtComponentQuerySingleton.IsJS(Component : TExtComponent; Selector : String) : TExtFunction; begin + JSCode(JSName + '.is(' + VarToJSON([Component, false, Selector]) + ');', 'TExtComponentQuerySingleton'); + Result := Self; +end; + +function TExtComponentQuerySingleton.Query(Selector : String; Root : TExtContainer = nil) : TExtFunction; begin + JSCode(JSName + '.query(' + VarToJSON([Selector, Root, false]) + ');', 'TExtComponentQuerySingleton'); + Result := Self; +end; + procedure TExtDdDragDrop.SetFAvailable(Value : Boolean); begin FAvailable := Value; JSCode(JSName + '.available=' + VarToJSON([Value]) + ';'); @@ -27499,273 +27666,268 @@ function TExtDataJsonPSingleton.JSClassName : string; begin {$IFDEF FPC}constructor TExtDataJsonPSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtComponent.SetFAutoScroll(Value : Boolean); begin - FAutoScroll := Value; - if not ConfigAvailable(JSName) then - SetAutoScroll(Value) - else - JSCode('autoScroll:' + VarToJSON([Value])); +procedure TExtChartHighlight.SetFHighlight(Value : Boolean); begin + FHighlight := Value; + JSCode('highlight:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFColumnWidth(Value : Integer); begin - FColumnWidth := Value; - JSCode('columnWidth:' + VarToJSON([Value])); +procedure TExtChartHighlight.SetFHighlightCfg(Value : TExtObject); begin + FHighlightCfg := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.highlightCfg=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtComponent.SetFColumnWidthString(Value : String); begin - FColumnWidthString := Value; - JSCode('columnWidth:' + VarToJSON([Value])); +procedure TExtChartHighlight.SetFHighlightObject(Value : TExtObject); begin + FHighlightObject := Value; + Value.DeleteFromGarbage; + JSCode('highlight:' + VarToJSON([Value, false])); end; -procedure TExtComponent.SetFConstrain(Value : Boolean); begin - FConstrain := Value; - JSCode('constrain:' + VarToJSON([Value])); +function TExtChartHighlight.JSClassName : string; begin + Result := 'Ext.chart.Highlight'; end; -procedure TExtComponent.SetFConstrainTo(Value : TExtUtilRegion); begin - FConstrainTo := Value; - Value.DeleteFromGarbage; - JSCode('constrainTo:' + VarToJSON([Value, false])); +procedure TExtChartHighlight.InitDefaults; begin + inherited; + FHighlightCfg := TExtObject.CreateInternal(Self, 'highlightCfg'); + FHighlightObject := TExtObject.CreateInternal(Self, 'highlight'); end; -procedure TExtComponent.SetFConstrainToTExtElement(Value : TExtElement); begin - FConstrainToTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('constrainTo:' + VarToJSON([Value, false])); +{$IFDEF FPC}constructor TExtChartHighlight.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtChartHighlight.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -procedure TExtComponent.SetFDefaultAlign(Value : String); begin - FDefaultAlign := Value; - JSCode('defaultAlign:' + VarToJSON([Value])); +function TExtChartHighlight.HighlightItem(Item : TExtObject) : TExtFunction; begin + JSCode(JSName + '.highlightItem(' + VarToJSON([Item, false]) + ');', 'TExtChartHighlight'); + Result := Self; end; -procedure TExtComponent.SetFDraggable(Value : Boolean); begin - FDraggable := Value; - JSCode('draggable:' + VarToJSON([Value])); +function TExtChartHighlight.UnHighlightItem : TExtFunction; begin + JSCode(JSName + '.unHighlightItem();', 'TExtChartHighlight'); + Result := Self; end; -procedure TExtComponent.SetFDraggableTExtObject(Value : TExtObject); begin - FDraggableTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('draggable:' + VarToJSON([Value, false])); +destructor TExtChartHighlight.Destroy; begin + try + FHighlightCfg.Free; + FHighlightObject.Free; + except end; + inherited; end; -procedure TExtComponent.SetFFixed(Value : Boolean); begin - FFixed := Value; - JSCode('fixed:' + VarToJSON([Value])); +function TExtGridFeatureGroupStore.JSClassName : string; begin + Result := 'Ext.grid.feature.GroupStore'; end; -procedure TExtComponent.SetFFloating(Value : Boolean); begin - FFloating := Value; - JSCode('floating:' + VarToJSON([Value])); +{$IFDEF FPC}constructor TExtGridFeatureGroupStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFxTargetSprite.JSClassName : string; begin + Result := 'Ext.fx.target.Sprite'; end; -procedure TExtComponent.SetFFocusOnToFront(Value : Boolean); begin - FFocusOnToFront := Value; - JSCode('focusOnToFront:' + VarToJSON([Value])); +{$IFDEF FPC}constructor TExtFxTargetSprite.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtChartAxis.SetFAdjustEnd(Value : Boolean); begin + FAdjustEnd := Value; + JSCode('adjustEnd:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFFormBind(Value : Boolean); begin - FFormBind := Value; - JSCode('formBind:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFDashSize(Value : Integer); begin + FDashSize := Value; + JSCode('dashSize:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFOverflowX(Value : String); begin - FOverflowX := Value; - JSCode('overflowX:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFGrid(Value : Boolean); begin + FGrid := Value; + JSCode('grid:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFOverflowY(Value : String); begin - FOverflowY := Value; - JSCode('overflowY:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFGridObject(Value : TExtObject); begin + FGridObject := Value; + Value.DeleteFromGarbage; + JSCode('grid:' + VarToJSON([Value, false])); end; -procedure TExtComponent.SetFRegion(Value : TRegionEnum); begin - FRegion := Value; - JSCode('region:"' + EnumToJSString(TypeInfo(TRegionEnum), ord(Value)) + '"'); -end; - -procedure TExtComponent.SetFResizable(Value : Boolean); begin - FResizable := Value; - JSCode('resizable:' + VarToJSON([Value])); -end; - -procedure TExtComponent.SetFResizableTExtObject(Value : TExtObject); begin - FResizableTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('resizable:' + VarToJSON([Value, false])); +procedure TExtChartAxis.SetFLength(Value : Integer); begin + FLength := Value; + JSCode('length:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFResizeHandles(Value : String); begin - FResizeHandles := Value; - JSCode('resizeHandles:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFMajorTickSteps(Value : Integer); begin + FMajorTickSteps := Value; + JSCode('majorTickSteps:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFShadow(Value : String); begin - FShadow := Value; - JSCode('shadow:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFMinorTickSteps(Value : Integer); begin + FMinorTickSteps := Value; + JSCode('minorTickSteps:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFShadowBoolean(Value : Boolean); begin - FShadowBoolean := Value; - JSCode('shadow:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFPosition(Value : String); begin + FPosition := Value; + JSCode('position:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFShadowOffset(Value : Integer); begin - FShadowOffset := Value; - JSCode('shadowOffset:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFTitle(Value : String); begin + FTitle := Value; + if not ConfigAvailable(JSName) then + SetTitle(Value) + else + JSCode('title:' + VarToJSON([Value])); end; -procedure TExtComponent.SetFToFrontOnShow(Value : Boolean); begin - FToFrontOnShow := Value; - JSCode('toFrontOnShow:' + VarToJSON([Value])); +procedure TExtChartAxis.SetFWidth(Value : Integer); begin + FWidth := Value; + JSCode('width:' + VarToJSON([Value])); end; -function TExtComponent.JSClassName : string; begin - Result := 'Ext.Component'; +function TExtChartAxis.JSClassName : string; begin + Result := 'Ext.chart.axis.Axis'; end; -procedure TExtComponent.InitDefaults; begin +procedure TExtChartAxis.InitDefaults; begin inherited; - FConstrainTo := TExtUtilRegion.CreateInternal(Self, 'constrainTo'); - FConstrainToTExtElement := TExtElement.CreateInternal(Self, 'constrainTo'); - FDraggableTExtObject := TExtObject.CreateInternal(Self, 'draggable'); - FResizableTExtObject := TExtObject.CreateInternal(Self, 'resizable'); + FGridObject := TExtObject.CreateInternal(Self, 'grid'); end; -{$IFDEF FPC}constructor TExtComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtChartAxis.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtComponent.Bubble(Fn : TExtFunction; Scope : TExtObject = nil; Args : TExtObjectList = nil) : TExtFunction; begin - JSCode(JSName + '.bubble(' + VarToJSON([Fn, true, Scope, false]) + ',' + VarToJSON(Args) + ');', 'TExtComponent'); - Result := Self; +constructor TExtChartAxis.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -function TExtComponent.Center : TExtFunction; begin - JSCode(JSName + '.center();', 'TExtComponent'); +function TExtChartAxis.DrawAxis : TExtFunction; begin + JSCode(JSName + '.drawAxis();', 'TExtChartAxis'); Result := Self; end; -function TExtComponent.CloneConfig(Overrides : TExtObject) : TExtFunction; begin - JSCode(JSName + '.cloneConfig(' + VarToJSON([Overrides, false]) + ');', 'TExtComponent'); +function TExtChartAxis.DrawGrid : TExtFunction; begin + JSCode(JSName + '.drawGrid();', 'TExtChartAxis'); Result := Self; end; -constructor TExtComponent.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +function TExtChartAxis.DrawLabel : TExtFunction; begin + JSCode(JSName + '.drawLabel();', 'TExtChartAxis'); + Result := Self; end; -function TExtComponent.DoConstrain(ConstrainTo : String = '') : TExtFunction; begin - JSCode(JSName + '.doConstrain(' + VarToJSON([ConstrainTo]) + ');', 'TExtComponent'); +function TExtChartAxis.SetTitle(Title : String) : TExtFunction; begin + JSCode(JSName + '.setTitle(' + VarToJSON([Title]) + ');', 'TExtChartAxis'); Result := Self; end; -function TExtComponent.FindParentBy(Fn : TExtFunction) : TExtFunction; begin - JSCode(JSName + '.findParentBy(' + VarToJSON([Fn, true]) + ');', 'TExtComponent'); - Result := Self; +destructor TExtChartAxis.Destroy; begin + try + FGridObject.Free; + except end; + inherited; end; -function TExtComponent.FindParentByType(Xtype : String) : TExtFunction; begin - JSCode(JSName + '.findParentByType(' + VarToJSON([Xtype]) + ');', 'TExtComponent'); - Result := Self; +procedure TExtLayoutContainer.SetFItemCls(Value : String); begin + FItemCls := Value; + JSCode('itemCls:' + VarToJSON([Value])); end; -function TExtComponent.Focus(SelectText : Boolean = false; Delay : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.focus(' + VarToJSON([SelectText, Delay]) + ');', 'TExtComponent'); - Result := Self; +procedure TExtLayoutContainer.SetFOverflowPadderEl(Value : TExtElement); begin + FOverflowPadderEl := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.overflowPadderEl=' + VarToJSON([Value, false]) + ';'); end; -function TExtComponent.GetPosition(Local : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.getPosition(' + VarToJSON([Local]) + ');', 'TExtComponent'); - Result := Self; +function TExtLayoutContainer.JSClassName : string; begin + Result := 'Ext.layout.container.Container'; end; -function TExtComponent.GetXType : TExtFunction; begin - JSCode(JSName + '.getXType();', 'TExtComponent'); - Result := Self; +procedure TExtLayoutContainer.InitDefaults; begin + inherited; + FOverflowPadderEl := TExtElement.CreateInternal(Self, 'overflowPadderEl'); end; -function TExtComponent.Hide(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.hide(' + VarToJSON([AnimateTarget, Callback, true, Scope, false]) + ');', 'TExtComponent'); +{$IFDEF FPC}constructor TExtLayoutContainer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtLayoutContainer.AddChildEls : TExtFunction; begin + JSCode(JSName + '.addChildEls();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.ScrollBy(DeltaX : Integer; DeltaY : Boolean; Animate : Boolean) : TExtFunction; begin - JSCode(JSName + '.scrollBy(' + VarToJSON([DeltaX, DeltaY, Animate]) + ');', 'TExtComponent'); +function TExtLayoutContainer.BeginLayout : TExtFunction; begin + JSCode(JSName + '.beginLayout();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.SetActive(Active : Boolean = false; NewActive : TExtComponent = nil) : TExtFunction; begin - JSCode(JSName + '.setActive(' + VarToJSON([Active, NewActive, false]) + ');', 'TExtComponent'); - Result := Self; +constructor TExtLayoutContainer.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; end; -function TExtComponent.SetAutoScroll(Scroll : Boolean) : TExtFunction; begin - JSCode(JSName + '.setAutoScroll(' + VarToJSON([Scroll]) + ');', 'TExtComponent'); +function TExtLayoutContainer.GetElementTarget : TExtFunction; begin + JSCode(JSName + '.getElementTarget();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.SetLoading(Load : Boolean; TargetEl : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.setLoading(' + VarToJSON([Load, TargetEl]) + ');', 'TExtComponent'); +function TExtLayoutContainer.GetLayoutItems : TExtFunction; begin + JSCode(JSName + '.getLayoutItems();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.SetOverflowXY(OverflowX : String; OverflowY : String) : TExtFunction; begin - JSCode(JSName + '.setOverflowXY(' + VarToJSON([OverflowX, OverflowY]) + ');', 'TExtComponent'); +function TExtLayoutContainer.GetRenderTarget : TExtFunction; begin + JSCode(JSName + '.getRenderTarget();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.SetPagePosition(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.setPagePosition(' + VarToJSON([X, Y, Animate]) + ');', 'TExtComponent'); +function TExtLayoutContainer.GetTarget : TExtFunction; begin + JSCode(JSName + '.getTarget();', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.Show(AnimateTarget : String = ''; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.show(' + VarToJSON([AnimateTarget, Callback, true, Scope, false]) + ');', 'TExtComponent'); +function TExtLayoutContainer.RemoveChildEls(TestFn : TExtFunction) : TExtFunction; begin + JSCode(JSName + '.removeChildEls(' + VarToJSON([TestFn, true]) + ');', 'TExtLayoutContainer'); Result := Self; end; -function TExtComponent.ShowAt(X : Integer; Y : Integer = 0; Animate : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.showAt(' + VarToJSON([X, Y, Animate]) + ');', 'TExtComponent'); - Result := Self; +destructor TExtLayoutContainer.Destroy; begin + try + FOverflowPadderEl.Free; + except end; + inherited; end; -function TExtComponent.ShowBy(Component : TExtComponent; Position : String = ''; Offsets : TArrayOfInteger = nil) : TExtFunction; begin - JSCode(JSName + '.showBy(' + VarToJSON([Component, false, Position, Offsets]) + ');', 'TExtComponent'); - Result := Self; +function TExtMenuKeyNav.JSClassName : string; begin + Result := 'Ext.menu.KeyNav'; end; -function TExtComponent.ToBack : TExtFunction; begin - JSCode(JSName + '.toBack();', 'TExtComponent'); - Result := Self; +{$IFDEF FPC}constructor TExtMenuKeyNav.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtUtilLruCache.SetFMaxSize(Value : Integer); begin + FMaxSize := Value; + JSCode('maxSize:' + VarToJSON([Value])); end; -function TExtComponent.ToFront(PreventFocus : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.toFront(' + VarToJSON([PreventFocus]) + ');', 'TExtComponent'); - Result := Self; +function TExtUtilLruCache.JSClassName : string; begin + Result := 'Ext.util.LruCache'; end; -function TExtComponent.UpdateBox(Box : TExtObject) : TExtFunction; begin - JSCode(JSName + '.updateBox(' + VarToJSON([Box, false]) + ');', 'TExtComponent'); +{$IFDEF FPC}constructor TExtUtilLruCache.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtUtilLruCache.Clone : TExtFunction; begin + JSCode(JSName + '.clone();', 'TExtUtilLruCache'); Result := Self; end; -destructor TExtComponent.Destroy; begin - try - FConstrainTo.Free; - FConstrainToTExtElement.Free; - FDraggableTExtObject.Free; - FResizableTExtObject.Free; - except end; - inherited; +function TExtUtilLruCache.Each(Fn : TExtFunction; Scope : TExtObject; Reverse : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.each(' + VarToJSON([Fn, true, Scope, false, Reverse]) + ');', 'TExtUtilLruCache'); + Result := Self; end; -function TExtGridFeatureGroupStore.JSClassName : string; begin - Result := 'Ext.grid.feature.GroupStore'; +function TExtUtilLruCache.Prune : TExtFunction; begin + JSCode(JSName + '.prune();', 'TExtUtilLruCache'); + Result := Self; end; -{$IFDEF FPC}constructor TExtGridFeatureGroupStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtButton.SetFAllowDepress(Value : Boolean); begin FAllowDepress := Value; JSCode('allowDepress:' + VarToJSON([Value])); @@ -27909,17 +28071,17 @@ procedure TExtButton.SetFMenuAlign(Value : String); begin JSCode('menuAlign:' + VarToJSON([Value])); end; +procedure TExtButton.SetFMenuObject(Value : TExtObject); begin + FMenuObject := Value; + Value.DeleteFromGarbage; + JSCode('menu:' + VarToJSON([Value, false])); +end; + procedure TExtButton.SetFMenuString(Value : String); begin FMenuString := Value; JSCode('menu:' + VarToJSON([Value])); end; -procedure TExtButton.SetFMenuTExtObject(Value : TExtObject); begin - FMenuTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('menu:' + VarToJSON([Value, false])); -end; - procedure TExtButton.SetFMinWidth(Value : Integer); begin FMinWidth := Value; JSCode('minWidth:' + VarToJSON([Value])); @@ -27964,8 +28126,8 @@ procedure TExtButton.SetFRepeatJS(Value : Boolean); begin JSCode('repeatJS:' + VarToJSON([Value])); end; -procedure TExtButton.SetFRepeatJSTExtObject(Value : TExtObject); begin - FRepeatJSTExtObject := Value; +procedure TExtButton.SetFRepeatJSObject(Value : TExtObject); begin + FRepeatJSObject := Value; Value.DeleteFromGarbage; JSCode('repeatJS:' + VarToJSON([Value, false])); end; @@ -28025,8 +28187,8 @@ procedure TExtButton.SetFTooltip(Value : String); begin JSCode('tooltip:' + VarToJSON([Value])); end; -procedure TExtButton.SetFTooltipTExtObject(Value : TExtObject); begin - FTooltipTExtObject := Value; +procedure TExtButton.SetFTooltipObject(Value : TExtObject); begin + FTooltipObject := Value; Value.DeleteFromGarbage; JSCode('tooltip:' + VarToJSON([Value, false])); end; @@ -28138,11 +28300,11 @@ procedure TExtButton.InitDefaults; begin FBaseParams := TExtObject.CreateInternal(Self, 'baseParams'); FMenu := TExtMenu.CreateInternal(Self, 'menu'); FMenu_ := TExtMenu.CreateInternal(Self, 'menu'); - FMenuTExtObject := TExtObject.CreateInternal(Self, 'menu'); + FMenuObject := TExtObject.CreateInternal(Self, 'menu'); FParams := TExtObject.CreateInternal(Self, 'params'); - FRepeatJSTExtObject := TExtObject.CreateInternal(Self, 'repeatJS'); + FRepeatJSObject := TExtObject.CreateInternal(Self, 'repeatJS'); FScope := TExtObject.CreateInternal(Self, 'scope'); - FTooltipTExtObject := TExtObject.CreateInternal(Self, 'tooltip'); + FTooltipObject := TExtObject.CreateInternal(Self, 'tooltip'); end; {$IFDEF FPC}constructor TExtButton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -28237,11 +28399,11 @@ destructor TExtButton.Destroy; begin FBaseParams.Free; FMenu.Free; FMenu_.Free; - FMenuTExtObject.Free; + FMenuObject.Free; FParams.Free; - FRepeatJSTExtObject.Free; + FRepeatJSObject.Free; FScope.Free; - FTooltipTExtObject.Free; + FTooltipObject.Free; except end; inherited; end; @@ -28272,195 +28434,6 @@ procedure TExtButton.HandleEvent(const AEvtName : string); begin FOnToggle(TExtButton(ParamAsObject('This')), ParamAsBoolean('Pressed')); end; -procedure TExtChartAxis.SetFAdjustEnd(Value : Boolean); begin - FAdjustEnd := Value; - JSCode('adjustEnd:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFDashSize(Value : Integer); begin - FDashSize := Value; - JSCode('dashSize:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFGrid(Value : Boolean); begin - FGrid := Value; - JSCode('grid:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFGridTExtObject(Value : TExtObject); begin - FGridTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('grid:' + VarToJSON([Value, false])); -end; - -procedure TExtChartAxis.SetFLength(Value : Integer); begin - FLength := Value; - JSCode('length:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFMajorTickSteps(Value : Integer); begin - FMajorTickSteps := Value; - JSCode('majorTickSteps:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFMinorTickSteps(Value : Integer); begin - FMinorTickSteps := Value; - JSCode('minorTickSteps:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFPosition(Value : String); begin - FPosition := Value; - JSCode('position:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFTitle(Value : String); begin - FTitle := Value; - if not ConfigAvailable(JSName) then - SetTitle(Value) - else - JSCode('title:' + VarToJSON([Value])); -end; - -procedure TExtChartAxis.SetFWidth(Value : Integer); begin - FWidth := Value; - JSCode('width:' + VarToJSON([Value])); -end; - -function TExtChartAxis.JSClassName : string; begin - Result := 'Ext.chart.axis.Axis'; -end; - -procedure TExtChartAxis.InitDefaults; begin - inherited; - FGridTExtObject := TExtObject.CreateInternal(Self, 'grid'); -end; - -{$IFDEF FPC}constructor TExtChartAxis.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtChartAxis.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtChartAxis.DrawAxis : TExtFunction; begin - JSCode(JSName + '.drawAxis();', 'TExtChartAxis'); - Result := Self; -end; - -function TExtChartAxis.DrawGrid : TExtFunction; begin - JSCode(JSName + '.drawGrid();', 'TExtChartAxis'); - Result := Self; -end; - -function TExtChartAxis.DrawLabel : TExtFunction; begin - JSCode(JSName + '.drawLabel();', 'TExtChartAxis'); - Result := Self; -end; - -function TExtChartAxis.SetTitle(Title : String) : TExtFunction; begin - JSCode(JSName + '.setTitle(' + VarToJSON([Title]) + ');', 'TExtChartAxis'); - Result := Self; -end; - -destructor TExtChartAxis.Destroy; begin - try - FGridTExtObject.Free; - except end; - inherited; -end; - -function TExtMenuKeyNav.JSClassName : string; begin - Result := 'Ext.menu.KeyNav'; -end; - -{$IFDEF FPC}constructor TExtMenuKeyNav.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtFxTargetSprite.JSClassName : string; begin - Result := 'Ext.fx.target.Sprite'; -end; - -{$IFDEF FPC}constructor TExtFxTargetSprite.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtChartMaskLayer.JSClassName : string; begin - Result := 'Ext.chart.MaskLayer'; -end; - -{$IFDEF FPC}constructor TExtChartMaskLayer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtUtilMixedCollection.SetFAllowFunctions(Value : Boolean); begin - FAllowFunctions := Value; - JSCode('allowFunctions:' + VarToJSON([Value])); -end; - -procedure TExtUtilMixedCollection.SetFDefaultSortDirection(Value : String); begin - FDefaultSortDirection := Value; - JSCode('defaultSortDirection:' + VarToJSON([Value])); -end; - -procedure TExtUtilMixedCollection.SetFSorters(Value : TExtObjectList); begin - FSorters := Value; - Value.DeleteFromGarbage; - JSCode('sorters:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilMixedCollection.SetFSorters_(Value : TExtObjectList); begin - FSorters_ := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.sorters=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtUtilMixedCollection.SetFSortersTExtObjectList(Value : TExtObjectList); begin - FSortersTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('sorters:' + VarToJSON([Value, false])); -end; - -procedure TExtUtilMixedCollection.SetFSortRoot(Value : String); begin - FSortRoot := Value; - JSCode('sortRoot:' + VarToJSON([Value])); -end; - -function TExtUtilMixedCollection.JSClassName : string; begin - Result := 'Ext.util.MixedCollection'; -end; - -{$IFDEF FPC}constructor TExtUtilMixedCollection.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtUtilMixedCollection.Create(Config : TExtObject; ConfigAllowFunctions : Boolean = false; ConfigGetKey : TExtFunction = nil); begin - CreateVar(JSClassName + '(' + VarToJSON([Config, false, ConfigAllowFunctions, ConfigGetKey, true]) + ');'); - InitDefaults; -end; - -function TExtUtilMixedCollection.FindInsertionIndex(NewItem : TExtObject; SorterFn : TExtFunction = nil) : TExtFunction; begin - JSCode(JSName + '.findInsertionIndex(' + VarToJSON([NewItem, false, SorterFn, true]) + ');', 'TExtUtilMixedCollection'); - Result := Self; -end; - -function TExtUtilMixedCollection.GenerateComparator : TExtFunction; begin - JSCode(JSName + '.generateComparator();', 'TExtUtilMixedCollection'); - Result := Self; -end; - -function TExtUtilMixedCollection.Reorder(Mapping : TExtObject) : TExtFunction; begin - JSCode(JSName + '.reorder(' + VarToJSON([Mapping, false]) + ');', 'TExtUtilMixedCollection'); - Result := Self; -end; - -function TExtUtilMixedCollection.Sort(Sorters : String = ''; Direction : String = '') : TExtFunction; begin - JSCode(JSName + '.sort(' + VarToJSON([Sorters, Direction]) + ');', 'TExtUtilMixedCollection'); - Result := Self; -end; - -function TExtUtilMixedCollection.SortBy(SorterFn : TExtFunction) : TExtFunction; begin - JSCode(JSName + '.sortBy(' + VarToJSON([SorterFn, true]) + ');', 'TExtUtilMixedCollection'); - Result := Self; -end; - -function TExtUtilMixedCollection.SortByKey(Direction : String = ''; Fn : TExtFunction = nil) : TExtFunction; begin - JSCode(JSName + '.sortByKey(' + VarToJSON([Direction, Fn, true]) + ');', 'TExtUtilMixedCollection'); - Result := Self; -end; - procedure TExtChartSeriesPie.SetFAngleField(Value : String); begin FAngleField := Value; JSCode('angleField:' + VarToJSON([Value])); @@ -28558,6 +28531,45 @@ destructor TExtChartSeriesPie.Destroy; begin inherited; end; +procedure TExtViewBoundListKeyNav.SetFBoundList(Value : TExtViewBoundList); begin + FBoundList := Value; + Value.DeleteFromGarbage; + JSCode('boundList:' + VarToJSON([Value, false])); +end; + +function TExtViewBoundListKeyNav.JSClassName : string; begin + Result := 'Ext.view.BoundListKeyNav'; +end; + +procedure TExtViewBoundListKeyNav.InitDefaults; begin + inherited; + FBoundList := TExtViewBoundList.CreateInternal(Self, 'boundList'); +end; + +{$IFDEF FPC}constructor TExtViewBoundListKeyNav.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtViewBoundListKeyNav.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtViewBoundListKeyNav.HighlightAt(Index : Integer) : TExtFunction; begin + JSCode(JSName + '.highlightAt(' + VarToJSON([Index]) + ');', 'TExtViewBoundListKeyNav'); + Result := Self; +end; + +function TExtViewBoundListKeyNav.SelectHighlighted : TExtFunction; begin + JSCode(JSName + '.selectHighlighted();', 'TExtViewBoundListKeyNav'); + Result := Self; +end; + +destructor TExtViewBoundListKeyNav.Destroy; begin + try + FBoundList.Free; + except end; + inherited; +end; + procedure TExtChartSeriesRadar.SetFMarkerConfig(Value : TExtObject); begin FMarkerConfig := Value; Value.DeleteFromGarbage; @@ -28615,135 +28627,6 @@ destructor TExtChartSeriesRadar.Destroy; begin inherited; end; -procedure TExtViewBoundListKeyNav.SetFBoundList(Value : TExtViewBoundList); begin - FBoundList := Value; - Value.DeleteFromGarbage; - JSCode('boundList:' + VarToJSON([Value, false])); -end; - -function TExtViewBoundListKeyNav.JSClassName : string; begin - Result := 'Ext.view.BoundListKeyNav'; -end; - -procedure TExtViewBoundListKeyNav.InitDefaults; begin - inherited; - FBoundList := TExtViewBoundList.CreateInternal(Self, 'boundList'); -end; - -{$IFDEF FPC}constructor TExtViewBoundListKeyNav.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtViewBoundListKeyNav.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtViewBoundListKeyNav.HighlightAt(Index : Integer) : TExtFunction; begin - JSCode(JSName + '.highlightAt(' + VarToJSON([Index]) + ');', 'TExtViewBoundListKeyNav'); - Result := Self; -end; - -function TExtViewBoundListKeyNav.SelectHighlighted : TExtFunction; begin - JSCode(JSName + '.selectHighlighted();', 'TExtViewBoundListKeyNav'); - Result := Self; -end; - -destructor TExtViewBoundListKeyNav.Destroy; begin - try - FBoundList.Free; - except end; - inherited; -end; - -procedure TExtLayoutContainer.SetFItemCls(Value : String); begin - FItemCls := Value; - JSCode('itemCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainer.SetFOverflowPadderEl(Value : TExtElement); begin - FOverflowPadderEl := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.overflowPadderEl=' + VarToJSON([Value, false]) + ';'); -end; - -function TExtLayoutContainer.JSClassName : string; begin - Result := 'Ext.layout.container.Container'; -end; - -procedure TExtLayoutContainer.InitDefaults; begin - inherited; - FOverflowPadderEl := TExtElement.CreateInternal(Self, 'overflowPadderEl'); -end; - -{$IFDEF FPC}constructor TExtLayoutContainer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtLayoutContainer.AddChildEls : TExtFunction; begin - JSCode(JSName + '.addChildEls();', 'TExtLayoutContainer'); - Result := Self; -end; - -function TExtLayoutContainer.BeginLayout : TExtFunction; begin - JSCode(JSName + '.beginLayout();', 'TExtLayoutContainer'); - Result := Self; -end; - -constructor TExtLayoutContainer.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtLayoutContainer.GetElementTarget : TExtFunction; begin - JSCode(JSName + '.getElementTarget();', 'TExtLayoutContainer'); - Result := Self; -end; - -function TExtLayoutContainer.GetLayoutItems : TExtFunction; begin - JSCode(JSName + '.getLayoutItems();', 'TExtLayoutContainer'); - Result := Self; -end; - -function TExtLayoutContainer.GetRenderTarget : TExtFunction; begin - JSCode(JSName + '.getRenderTarget();', 'TExtLayoutContainer'); - Result := Self; -end; - -function TExtLayoutContainer.GetTarget : TExtFunction; begin - JSCode(JSName + '.getTarget();', 'TExtLayoutContainer'); - Result := Self; -end; - -function TExtLayoutContainer.RemoveChildEls(TestFn : TExtFunction) : TExtFunction; begin - JSCode(JSName + '.removeChildEls(' + VarToJSON([TestFn, true]) + ');', 'TExtLayoutContainer'); - Result := Self; -end; - -destructor TExtLayoutContainer.Destroy; begin - try - FOverflowPadderEl.Free; - except end; - inherited; -end; - -procedure TExtGridFeature.SetFIsFeature(Value : Boolean); begin - FIsFeature := Value; - JSCode(JSName + '.isFeature=' + VarToJSON([Value]) + ';'); -end; - -function TExtGridFeature.JSClassName : string; begin - Result := 'Ext.grid.feature.Feature'; -end; - -{$IFDEF FPC}constructor TExtGridFeature.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtGridFeature.Disable : TExtFunction; begin - JSCode(JSName + '.disable();', 'TExtGridFeature'); - Result := Self; -end; - -function TExtGridFeature.Enable : TExtFunction; begin - JSCode(JSName + '.enable();', 'TExtGridFeature'); - Result := Self; -end; - procedure TExtModelManagerSingleton.SetFAssociationStack(Value : TExtObjectList); begin FAssociationStack := Value; Value.DeleteFromGarbage; @@ -28773,32 +28656,33 @@ destructor TExtModelManagerSingleton.Destroy; begin inherited; end; -procedure TExtUtilLruCache.SetFMaxSize(Value : Integer); begin - FMaxSize := Value; - JSCode('maxSize:' + VarToJSON([Value])); +procedure TExtGridFeature.SetFIsFeature(Value : Boolean); begin + FIsFeature := Value; + JSCode(JSName + '.isFeature=' + VarToJSON([Value]) + ';'); end; -function TExtUtilLruCache.JSClassName : string; begin - Result := 'Ext.util.LruCache'; +function TExtGridFeature.JSClassName : string; begin + Result := 'Ext.grid.feature.Feature'; end; -{$IFDEF FPC}constructor TExtUtilLruCache.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtGridFeature.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtUtilLruCache.Clone : TExtFunction; begin - JSCode(JSName + '.clone();', 'TExtUtilLruCache'); +function TExtGridFeature.Disable : TExtFunction; begin + JSCode(JSName + '.disable();', 'TExtGridFeature'); Result := Self; end; -function TExtUtilLruCache.Each(Fn : TExtFunction; Scope : TExtObject; Reverse : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.each(' + VarToJSON([Fn, true, Scope, false, Reverse]) + ');', 'TExtUtilLruCache'); +function TExtGridFeature.Enable : TExtFunction; begin + JSCode(JSName + '.enable();', 'TExtGridFeature'); Result := Self; end; -function TExtUtilLruCache.Prune : TExtFunction; begin - JSCode(JSName + '.prune();', 'TExtUtilLruCache'); - Result := Self; +function TExtChartMaskLayer.JSClassName : string; begin + Result := 'Ext.chart.MaskLayer'; end; +{$IFDEF FPC}constructor TExtChartMaskLayer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtViewAbstractView.SetFBlockRefresh(Value : Boolean); begin FBlockRefresh := Value; JSCode('blockRefresh:' + VarToJSON([Value])); @@ -28839,14 +28723,14 @@ procedure TExtViewAbstractView.SetFItemTpl(Value : String); begin JSCode('itemTpl:' + VarToJSON([Value])); end; -procedure TExtViewAbstractView.SetFItemTplTExtObjectList(Value : TExtObjectList); begin - FItemTplTExtObjectList := Value; +procedure TExtViewAbstractView.SetFItemTplList(Value : TExtObjectList); begin + FItemTplList := Value; Value.DeleteFromGarbage; JSCode('itemTpl:' + VarToJSON([Value, false])); end; -procedure TExtViewAbstractView.SetFItemTplTExtXTemplate(Value : TExtXTemplate); begin - FItemTplTExtXTemplate := Value; +procedure TExtViewAbstractView.SetFItemTplTemplate(Value : TExtXTemplate); begin + FItemTplTemplate := Value; Value.DeleteFromGarbage; JSCode('itemTpl:' + VarToJSON([Value, false])); end; @@ -28871,8 +28755,8 @@ procedure TExtViewAbstractView.SetFLoadMask(Value : Boolean); begin JSCode('loadMask:' + VarToJSON([Value])); end; -procedure TExtViewAbstractView.SetFLoadMaskTExtObject(Value : TExtObject); begin - FLoadMaskTExtObject := Value; +procedure TExtViewAbstractView.SetFLoadMaskObject(Value : TExtObject); begin + FLoadMaskObject := Value; Value.DeleteFromGarbage; JSCode('loadMask:' + VarToJSON([Value, false])); end; @@ -28903,14 +28787,14 @@ procedure TExtViewAbstractView.SetFTpl(Value : String); begin JSCode('tpl:' + VarToJSON([Value])); end; -procedure TExtViewAbstractView.SetFTplTExtObjectList(Value : TExtObjectList); begin - FTplTExtObjectList := Value; +procedure TExtViewAbstractView.SetFTplList(Value : TExtObjectList); begin + FTplList := Value; Value.DeleteFromGarbage; JSCode('tpl:' + VarToJSON([Value, false])); end; -procedure TExtViewAbstractView.SetFTplTExtXTemplate(Value : TExtXTemplate); begin - FTplTExtXTemplate := Value; +procedure TExtViewAbstractView.SetFTplTemplate(Value : TExtXTemplate); begin + FTplTemplate := Value; Value.DeleteFromGarbage; JSCode('tpl:' + VarToJSON([Value, false])); end; @@ -28975,12 +28859,12 @@ function TExtViewAbstractView.JSClassName : string; begin procedure TExtViewAbstractView.InitDefaults; begin inherited; FDeferInitialRefresh := true; - FItemTplTExtObjectList := TExtObjectList.Create(Self, 'itemTpl'); - FItemTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'itemTpl'); - FLoadMaskTExtObject := TExtObject.CreateInternal(Self, 'loadMask'); + FItemTplList := TExtObjectList.Create(Self, 'itemTpl'); + FItemTplTemplate := TExtXTemplate.CreateInternal(Self, 'itemTpl'); + FLoadMaskObject := TExtObject.CreateInternal(Self, 'loadMask'); FStore := TExtDataStore.CreateInternal(Self, 'store'); - FTplTExtObjectList := TExtObjectList.Create(Self, 'tpl'); - FTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); + FTplList := TExtObjectList.Create(Self, 'tpl'); + FTplTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); end; {$IFDEF FPC}constructor TExtViewAbstractView.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -29077,12 +28961,12 @@ function TExtViewAbstractView.RefreshNode(Index : Integer) : TExtFunction; begin destructor TExtViewAbstractView.Destroy; begin try - FItemTplTExtObjectList.Free; - FItemTplTExtXTemplate.Free; - FLoadMaskTExtObject.Free; + FItemTplList.Free; + FItemTplTemplate.Free; + FLoadMaskObject.Free; FStore.Free; - FTplTExtObjectList.Free; - FTplTExtXTemplate.Free; + FTplList.Free; + FTplTemplate.Free; except end; inherited; end; @@ -29103,6 +28987,18 @@ procedure TExtViewAbstractView.HandleEvent(const AEvtName : string); begin FOnViewready(TExtViewAbstractView(ParamAsObject('This'))); end; +function TExtStateLocalStorageProvider.JSClassName : string; begin + Result := 'Ext.state.LocalStorageProvider'; +end; + +{$IFDEF FPC}constructor TExtStateLocalStorageProvider.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtUtilTaskManagerSingleton.JSClassName : string; begin + Result := 'Ext.util.TaskManager'; +end; + +{$IFDEF FPC}constructor TExtUtilTaskManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtChartAxisGauge.SetFMargin(Value : Integer); begin FMargin := Value; JSCode('margin:' + VarToJSON([Value])); @@ -29142,47 +29038,64 @@ function TExtChartAxisGauge.SetTitle(Title : String) : TExtFunction; begin Result := Self; end; -function TExtUtilTaskManagerSingleton.JSClassName : string; begin - Result := 'Ext.util.TaskManager'; +procedure TExtChartSeriesCartesian.SetFAxis(Value : String); begin + FAxis := Value; + JSCode('axis:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtUtilTaskManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtLayoutContainerBoxOverflowMenu.SetFMenuItems(Value : TExtObjectList); begin - FMenuItems := Value; +procedure TExtChartSeriesCartesian.SetFAxisList(Value : TExtObjectList); begin + FAxisList := Value; Value.DeleteFromGarbage; - JSCode(JSName + '.menuItems=' + VarToJSON([Value, false]) + ';'); + JSCode('axis:' + VarToJSON([Value, false])); end; -procedure TExtLayoutContainerBoxOverflowMenu.SetFNoItemsMenuText(Value : String); begin - FNoItemsMenuText := Value; - JSCode(JSName + '.noItemsMenuText=' + VarToJSON([Value]) + ';'); +procedure TExtChartSeriesCartesian.SetFXField(Value : String); begin + FXField := Value; + JSCode('xField:' + VarToJSON([Value])); end; -procedure TExtLayoutContainerBoxOverflowMenu.SetFTriggerButtonCls(Value : String); begin - FTriggerButtonCls := Value; - JSCode('triggerButtonCls:' + VarToJSON([Value])); +procedure TExtChartSeriesCartesian.SetFYField(Value : String); begin + FYField := Value; + JSCode('yField:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowMenu.JSClassName : string; begin - Result := 'Ext.layout.container.boxOverflow.Menu'; +procedure TExtChartSeriesCartesian.SetFYFieldList(Value : TExtObjectList); begin + FYFieldList := Value; + Value.DeleteFromGarbage; + JSCode('yField:' + VarToJSON([Value, false])); end; -procedure TExtLayoutContainerBoxOverflowMenu.InitDefaults; begin +function TExtChartSeriesCartesian.JSClassName : string; begin + Result := 'Ext.chart.series.Cartesian'; +end; + +procedure TExtChartSeriesCartesian.InitDefaults; begin inherited; - FMenuItems := TExtObjectList.Create(Self, 'menuItems'); + FAxisList := TExtObjectList.Create(Self, 'axis'); + FYFieldList := TExtObjectList.Create(Self, 'yField'); end; -{$IFDEF FPC}constructor TExtLayoutContainerBoxOverflowMenu.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtChartSeriesCartesian.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtLayoutContainerBoxOverflowMenu.Create; begin +constructor TExtChartSeriesCartesian.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -destructor TExtLayoutContainerBoxOverflowMenu.Destroy; begin +function TExtChartSeriesCartesian.GetMinMaxXValues : TExtFunction; begin + JSCode(JSName + '.getMinMaxXValues();', 'TExtChartSeriesCartesian'); + Result := Self; +end; + +function TExtChartSeriesCartesian.GetMinMaxYValues : TExtFunction; begin + JSCode(JSName + '.getMinMaxYValues();', 'TExtChartSeriesCartesian'); + Result := Self; +end; + +destructor TExtChartSeriesCartesian.Destroy; begin try - FMenuItems.Free; + FAxisList.Free; + FYFieldList.Free; except end; inherited; end; @@ -29324,50 +29237,188 @@ function TExtGridProperty.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridProperty.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtImg.SetFAlt(Value : String); begin - FAlt := Value; - JSCode('alt:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFAfterCtCls(Value : String); begin + FAfterCtCls := Value; + JSCode('afterCtCls:' + VarToJSON([Value])); end; -procedure TExtImg.SetFGlyph(Value : Integer); begin - FGlyph := Value; - JSCode('glyph:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFAfterScrollerCls(Value : String); begin + FAfterScrollerCls := Value; + JSCode('afterScrollerCls:' + VarToJSON([Value])); end; -procedure TExtImg.SetFGlyphString(Value : String); begin - FGlyphString := Value; - JSCode('glyph:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFAnimateScroll(Value : Boolean); begin + FAnimateScroll := Value; + JSCode('animateScroll:' + VarToJSON([Value])); end; -procedure TExtImg.SetFImgCls(Value : String); begin - FImgCls := Value; - JSCode('imgCls:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFBeforeCtCls(Value : String); begin + FBeforeCtCls := Value; + JSCode('beforeCtCls:' + VarToJSON([Value])); end; -procedure TExtImg.SetFSrc(Value : String); begin - FSrc := Value; - if not ConfigAvailable(JSName) then - SetSrc(Value) - else - JSCode('src:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFBeforeScrollerCls(Value : String); begin + FBeforeScrollerCls := Value; + JSCode('beforeScrollerCls:' + VarToJSON([Value])); end; -procedure TExtImg.SetFTitle(Value : String); begin - FTitle := Value; - JSCode('title:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowScroller.SetFHasListeners(Value : TExtObject); begin + FHasListeners := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); end; -function TExtImg.JSClassName : string; begin - Result := 'Ext.Img'; +procedure TExtLayoutContainerBoxOverflowScroller.SetFIsObservable(Value : Boolean); begin + FIsObservable := Value; + JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); end; -{$IFDEF FPC}constructor TExtImg.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtLayoutContainerBoxOverflowScroller.SetFListeners(Value : TExtObject); begin + FListeners := Value; + Value.DeleteFromGarbage; + JSCode('listeners:' + VarToJSON([Value, false])); +end; -function TExtImg.SetSrc(Src : String) : TExtFunction; begin - JSCode(JSName + '.setSrc(' + VarToJSON([Src]) + ');', 'TExtImg'); +procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollDuration(Value : Integer); begin + FScrollDuration := Value; + JSCode('scrollDuration:' + VarToJSON([Value])); +end; + +procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollerCls(Value : String); begin + FScrollerCls := Value; + JSCode('scrollerCls:' + VarToJSON([Value])); +end; + +procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollIncrement(Value : Integer); begin + FScrollIncrement := Value; + JSCode('scrollIncrement:' + VarToJSON([Value])); +end; + +procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollRepeatInterval(Value : Integer); begin + FScrollRepeatInterval := Value; + JSCode('scrollRepeatInterval:' + VarToJSON([Value])); +end; + +procedure TExtLayoutContainerBoxOverflowScroller.SetFWheelIncrement(Value : Integer); begin + FWheelIncrement := Value; + JSCode('wheelIncrement:' + VarToJSON([Value])); +end; + +procedure TExtLayoutContainerBoxOverflowScroller.SetFOnScroll(Value : TExtLayoutContainerBoxOverflowScrollerOnScroll); begin + if Assigned(FOnScroll) then + JSCode(JSName+'.events ["scroll"].listeners=[];'); + if Assigned(Value) then + AddListener('scroll', Ajax('scroll', ['Scroller', '%0.nm','NewPosition', '%1','Animate', '%2'], true)); + FOnScroll := Value; +end; + +function TExtLayoutContainerBoxOverflowScroller.JSClassName : string; begin + Result := 'Ext.layout.container.boxOverflow.Scroller'; +end; + +{$IFDEF FPC}constructor TExtLayoutContainerBoxOverflowScroller.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtLayoutContainerBoxOverflowScroller.AddEvents(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin + JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.ClearListeners : TExtFunction; begin + JSCode(JSName + '.clearListeners();', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.ClearManagedListeners : TExtFunction; begin + JSCode(JSName + '.clearManagedListeners();', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +constructor TExtLayoutContainerBoxOverflowScroller.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtLayoutContainerBoxOverflowScroller.EnableBubble(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.GetScrollPosition : TExtFunction; begin + JSCode(JSName + '.getScrollPosition();', 'TExtLayoutContainerBoxOverflowScroller'); Result := Self; end; +function TExtLayoutContainerBoxOverflowScroller.HasListener(EventName : String) : TExtFunction; begin + JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin + JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.ResumeEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.ResumeEvents : TExtFunction; begin + JSCode(JSName + '.resumeEvents();', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.ScrollToItem(Item : Integer; Animate : Boolean) : TExtFunction; begin + JSCode(JSName + '.scrollToItem(' + VarToJSON([Item, Animate]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.SuspendEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +function TExtLayoutContainerBoxOverflowScroller.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin + JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); + Result := Self; +end; + +procedure TExtLayoutContainerBoxOverflowScroller.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'scroll') and Assigned(FOnScroll) then + FOnScroll(TExtLayoutContainerBoxOverflowScroller(ParamAsObject('Scroller')), ParamAsInteger('NewPosition'), ParamAsBoolean('Animate')); +end; + procedure TExtSelectionModel.SetFAllowDeselect(Value : Boolean); begin FAllowDeselect := Value; JSCode('allowDeselect:' + VarToJSON([Value])); @@ -29505,64 +29556,41 @@ function TExtLayoutComponent.GetTarget : TExtFunction; begin Result := Self; end; -procedure TExtChartSeriesCartesian.SetFAxis(Value : String); begin - FAxis := Value; - JSCode('axis:' + VarToJSON([Value])); -end; - -procedure TExtChartSeriesCartesian.SetFAxisTExtObjectList(Value : TExtObjectList); begin - FAxisTExtObjectList := Value; +procedure TExtLayoutContainerBoxOverflowMenu.SetFMenuItems(Value : TExtObjectList); begin + FMenuItems := Value; Value.DeleteFromGarbage; - JSCode('axis:' + VarToJSON([Value, false])); -end; - -procedure TExtChartSeriesCartesian.SetFXField(Value : String); begin - FXField := Value; - JSCode('xField:' + VarToJSON([Value])); + JSCode(JSName + '.menuItems=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtChartSeriesCartesian.SetFYField(Value : String); begin - FYField := Value; - JSCode('yField:' + VarToJSON([Value])); +procedure TExtLayoutContainerBoxOverflowMenu.SetFNoItemsMenuText(Value : String); begin + FNoItemsMenuText := Value; + JSCode(JSName + '.noItemsMenuText=' + VarToJSON([Value]) + ';'); end; -procedure TExtChartSeriesCartesian.SetFYFieldTExtObjectList(Value : TExtObjectList); begin - FYFieldTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('yField:' + VarToJSON([Value, false])); +procedure TExtLayoutContainerBoxOverflowMenu.SetFTriggerButtonCls(Value : String); begin + FTriggerButtonCls := Value; + JSCode('triggerButtonCls:' + VarToJSON([Value])); end; -function TExtChartSeriesCartesian.JSClassName : string; begin - Result := 'Ext.chart.series.Cartesian'; +function TExtLayoutContainerBoxOverflowMenu.JSClassName : string; begin + Result := 'Ext.layout.container.boxOverflow.Menu'; end; -procedure TExtChartSeriesCartesian.InitDefaults; begin +procedure TExtLayoutContainerBoxOverflowMenu.InitDefaults; begin inherited; - FAxisTExtObjectList := TExtObjectList.Create(Self, 'axis'); - FYFieldTExtObjectList := TExtObjectList.Create(Self, 'yField'); + FMenuItems := TExtObjectList.Create(Self, 'menuItems'); end; -{$IFDEF FPC}constructor TExtChartSeriesCartesian.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtLayoutContainerBoxOverflowMenu.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtChartSeriesCartesian.Create; begin +constructor TExtLayoutContainerBoxOverflowMenu.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -function TExtChartSeriesCartesian.GetMinMaxXValues : TExtFunction; begin - JSCode(JSName + '.getMinMaxXValues();', 'TExtChartSeriesCartesian'); - Result := Self; -end; - -function TExtChartSeriesCartesian.GetMinMaxYValues : TExtFunction; begin - JSCode(JSName + '.getMinMaxYValues();', 'TExtChartSeriesCartesian'); - Result := Self; -end; - -destructor TExtChartSeriesCartesian.Destroy; begin +destructor TExtLayoutContainerBoxOverflowMenu.Destroy; begin try - FAxisTExtObjectList.Free; - FYFieldTExtObjectList.Free; + FMenuItems.Free; except end; inherited; end; @@ -29573,188 +29601,50 @@ function TExtDataGroup.JSClassName : string; begin {$IFDEF FPC}constructor TExtDataGroup.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtLayoutContainerBoxOverflowScroller.SetFAfterCtCls(Value : String); begin - FAfterCtCls := Value; - JSCode('afterCtCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFAfterScrollerCls(Value : String); begin - FAfterScrollerCls := Value; - JSCode('afterScrollerCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFAnimateScroll(Value : Boolean); begin - FAnimateScroll := Value; - JSCode('animateScroll:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFBeforeCtCls(Value : String); begin - FBeforeCtCls := Value; - JSCode('beforeCtCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFBeforeScrollerCls(Value : String); begin - FBeforeScrollerCls := Value; - JSCode('beforeScrollerCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFHasListeners(Value : TExtObject); begin - FHasListeners := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFIsObservable(Value : Boolean); begin - FIsObservable := Value; - JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFListeners(Value : TExtObject); begin - FListeners := Value; - Value.DeleteFromGarbage; - JSCode('listeners:' + VarToJSON([Value, false])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollDuration(Value : Integer); begin - FScrollDuration := Value; - JSCode('scrollDuration:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollerCls(Value : String); begin - FScrollerCls := Value; - JSCode('scrollerCls:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollIncrement(Value : Integer); begin - FScrollIncrement := Value; - JSCode('scrollIncrement:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFScrollRepeatInterval(Value : Integer); begin - FScrollRepeatInterval := Value; - JSCode('scrollRepeatInterval:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFWheelIncrement(Value : Integer); begin - FWheelIncrement := Value; - JSCode('wheelIncrement:' + VarToJSON([Value])); -end; - -procedure TExtLayoutContainerBoxOverflowScroller.SetFOnScroll(Value : TExtLayoutContainerBoxOverflowScrollerOnScroll); begin - if Assigned(FOnScroll) then - JSCode(JSName+'.events ["scroll"].listeners=[];'); - if Assigned(Value) then - AddListener('scroll', Ajax('scroll', ['Scroller', '%0.nm','NewPosition', '%1','Animate', '%2'], true)); - FOnScroll := Value; -end; - -function TExtLayoutContainerBoxOverflowScroller.JSClassName : string; begin - Result := 'Ext.layout.container.boxOverflow.Scroller'; -end; - -{$IFDEF FPC}constructor TExtLayoutContainerBoxOverflowScroller.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtLayoutContainerBoxOverflowScroller.AddEvents(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin - JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.ClearListeners : TExtFunction; begin - JSCode(JSName + '.clearListeners();', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.ClearManagedListeners : TExtFunction; begin - JSCode(JSName + '.clearManagedListeners();', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -constructor TExtLayoutContainerBoxOverflowScroller.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtLayoutContainerBoxOverflowScroller.EnableBubble(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.GetScrollPosition : TExtFunction; begin - JSCode(JSName + '.getScrollPosition();', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; - -function TExtLayoutContainerBoxOverflowScroller.HasListener(EventName : String) : TExtFunction; begin - JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFAlt(Value : String); begin + FAlt := Value; + JSCode('alt:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin - JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFGlyph(Value : Integer); begin + FGlyph := Value; + JSCode('glyph:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFGlyphString(Value : String); begin + FGlyphString := Value; + JSCode('glyph:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFImgCls(Value : String); begin + FImgCls := Value; + JSCode('imgCls:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.ResumeEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFSrc(Value : String); begin + FSrc := Value; + if not ConfigAvailable(JSName) then + SetSrc(Value) + else + JSCode('src:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.ResumeEvents : TExtFunction; begin - JSCode(JSName + '.resumeEvents();', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +procedure TExtImg.SetFTitle(Value : String); begin + FTitle := Value; + JSCode('title:' + VarToJSON([Value])); end; -function TExtLayoutContainerBoxOverflowScroller.ScrollToItem(Item : Integer; Animate : Boolean) : TExtFunction; begin - JSCode(JSName + '.scrollToItem(' + VarToJSON([Item, Animate]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; +function TExtImg.JSClassName : string; begin + Result := 'Ext.Img'; end; -function TExtLayoutContainerBoxOverflowScroller.SuspendEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtImg.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtLayoutContainerBoxOverflowScroller.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin - JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtLayoutContainerBoxOverflowScroller'); +function TExtImg.SetSrc(Src : String) : TExtFunction; begin + JSCode(JSName + '.setSrc(' + VarToJSON([Src]) + ');', 'TExtImg'); Result := Self; end; -procedure TExtLayoutContainerBoxOverflowScroller.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'scroll') and Assigned(FOnScroll) then - FOnScroll(TExtLayoutContainerBoxOverflowScroller(ParamAsObject('Scroller')), ParamAsInteger('NewPosition'), ParamAsBoolean('Animate')); -end; - procedure TExtGridPluginHeaderResizer.SetFDynamic(Value : Boolean); begin FDynamic := Value; JSCode('dynamic:' + VarToJSON([Value])); @@ -30005,8 +29895,8 @@ procedure TExtMenuItem.SetFMenuHideDelay(Value : Integer); begin JSCode('menuHideDelay:' + VarToJSON([Value])); end; -procedure TExtMenuItem.SetFMenuTExtObject(Value : TExtObject); begin - FMenuTExtObject := Value; +procedure TExtMenuItem.SetFMenuObject(Value : TExtObject); begin + FMenuObject := Value; Value.DeleteFromGarbage; JSCode('menu:' + VarToJSON([Value, false])); end; @@ -30032,8 +29922,8 @@ procedure TExtMenuItem.SetFTooltip(Value : String); begin JSCode('tooltip:' + VarToJSON([Value])); end; -procedure TExtMenuItem.SetFTooltipTExtObject(Value : TExtObject); begin - FTooltipTExtObject := Value; +procedure TExtMenuItem.SetFTooltipObject(Value : TExtObject); begin + FTooltipObject := Value; Value.DeleteFromGarbage; JSCode('tooltip:' + VarToJSON([Value, false])); end; @@ -30090,8 +29980,8 @@ function TExtMenuItem.JSClassName : string; begin procedure TExtMenuItem.InitDefaults; begin inherited; FMenu := TExtMenu.CreateInternal(Self, 'menu'); - FMenuTExtObject := TExtObject.CreateInternal(Self, 'menu'); - FTooltipTExtObject := TExtObject.CreateInternal(Self, 'tooltip'); + FMenuObject := TExtObject.CreateInternal(Self, 'menu'); + FTooltipObject := TExtObject.CreateInternal(Self, 'tooltip'); end; {$IFDEF FPC}constructor TExtMenuItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -30134,8 +30024,8 @@ function TExtMenuItem.SetTooltip(Tooltip : String) : TExtFunction; begin destructor TExtMenuItem.Destroy; begin try FMenu.Free; - FMenuTExtObject.Free; - FTooltipTExtObject.Free; + FMenuObject.Free; + FTooltipObject.Free; except end; inherited; end; @@ -30154,12 +30044,6 @@ procedure TExtMenuItem.HandleEvent(const AEvtName : string); begin FOnTextchange(TExtMenuItem(ParamAsObject('This')), ParamAsString('OldText'), ParamAsString('NewText')); end; -function TExtStateLocalStorageProvider.JSClassName : string; begin - Result := 'Ext.state.LocalStorageProvider'; -end; - -{$IFDEF FPC}constructor TExtStateLocalStorageProvider.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtStateCookieProvider.SetFDomain(Value : String); begin FDomain := Value; JSCode('domain:' + VarToJSON([Value])); @@ -30197,6 +30081,80 @@ constructor TExtStateCookieProvider.Create; begin InitDefaults; end; +procedure TExtUtilMixedCollection.SetFAllowFunctions(Value : Boolean); begin + FAllowFunctions := Value; + JSCode('allowFunctions:' + VarToJSON([Value])); +end; + +procedure TExtUtilMixedCollection.SetFDefaultSortDirection(Value : String); begin + FDefaultSortDirection := Value; + JSCode('defaultSortDirection:' + VarToJSON([Value])); +end; + +procedure TExtUtilMixedCollection.SetFSorters(Value : TExtObjectList); begin + FSorters := Value; + Value.DeleteFromGarbage; + JSCode('sorters:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilMixedCollection.SetFSorters_(Value : TExtObjectList); begin + FSorters_ := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.sorters=' + VarToJSON([Value, false]) + ';'); +end; + +procedure TExtUtilMixedCollection.SetFSortersList(Value : TExtObjectList); begin + FSortersList := Value; + Value.DeleteFromGarbage; + JSCode('sorters:' + VarToJSON([Value, false])); +end; + +procedure TExtUtilMixedCollection.SetFSortRoot(Value : String); begin + FSortRoot := Value; + JSCode('sortRoot:' + VarToJSON([Value])); +end; + +function TExtUtilMixedCollection.JSClassName : string; begin + Result := 'Ext.util.MixedCollection'; +end; + +{$IFDEF FPC}constructor TExtUtilMixedCollection.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtUtilMixedCollection.Create(Config : TExtObject; ConfigAllowFunctions : Boolean = false; ConfigGetKey : TExtFunction = nil); begin + CreateVar(JSClassName + '(' + VarToJSON([Config, false, ConfigAllowFunctions, ConfigGetKey, true]) + ');'); + InitDefaults; +end; + +function TExtUtilMixedCollection.FindInsertionIndex(NewItem : TExtObject; SorterFn : TExtFunction = nil) : TExtFunction; begin + JSCode(JSName + '.findInsertionIndex(' + VarToJSON([NewItem, false, SorterFn, true]) + ');', 'TExtUtilMixedCollection'); + Result := Self; +end; + +function TExtUtilMixedCollection.GenerateComparator : TExtFunction; begin + JSCode(JSName + '.generateComparator();', 'TExtUtilMixedCollection'); + Result := Self; +end; + +function TExtUtilMixedCollection.Reorder(Mapping : TExtObject) : TExtFunction; begin + JSCode(JSName + '.reorder(' + VarToJSON([Mapping, false]) + ');', 'TExtUtilMixedCollection'); + Result := Self; +end; + +function TExtUtilMixedCollection.Sort(Sorters : String = ''; Direction : String = '') : TExtFunction; begin + JSCode(JSName + '.sort(' + VarToJSON([Sorters, Direction]) + ');', 'TExtUtilMixedCollection'); + Result := Self; +end; + +function TExtUtilMixedCollection.SortBy(SorterFn : TExtFunction) : TExtFunction; begin + JSCode(JSName + '.sortBy(' + VarToJSON([SorterFn, true]) + ');', 'TExtUtilMixedCollection'); + Result := Self; +end; + +function TExtUtilMixedCollection.SortByKey(Direction : String = ''; Fn : TExtFunction = nil) : TExtFunction; begin + JSCode(JSName + '.sortByKey(' + VarToJSON([Direction, Fn, true]) + ');', 'TExtUtilMixedCollection'); + Result := Self; +end; + procedure TExtGridPluginDragDrop.SetFContainerScroll(Value : TExtObject); begin FContainerScroll := Value; Value.DeleteFromGarbage; @@ -30544,12 +30502,6 @@ function TExtGridPluginDivRenderer.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridPluginDivRenderer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDataTreeModel.JSClassName : string; begin - Result := 'Ext.data.TreeModel'; -end; - -{$IFDEF FPC}constructor TExtDataTreeModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtDataAbstractStore.SetFFilters(Value : TExtObjectList); begin FFilters := Value; Value.DeleteFromGarbage; @@ -30640,180 +30592,17 @@ function TExtFormActionLoad.JSClassName : string; begin {$IFDEF FPC}constructor TExtFormActionLoad.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtFlashComponent.SetFBackgroundColor(Value : String); begin - FBackgroundColor := Value; - JSCode('backgroundColor:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFExpressInstall(Value : Boolean); begin - FExpressInstall := Value; - JSCode('expressInstall:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFFlashAttributes(Value : TExtObject); begin - FFlashAttributes := Value; - Value.DeleteFromGarbage; - JSCode('flashAttributes:' + VarToJSON([Value, false])); -end; - -procedure TExtFlashComponent.SetFFlashParams(Value : TExtObject); begin - FFlashParams := Value; - Value.DeleteFromGarbage; - JSCode('flashParams:' + VarToJSON([Value, false])); -end; - -procedure TExtFlashComponent.SetFFlashVars(Value : TExtObject); begin - FFlashVars := Value; - Value.DeleteFromGarbage; - JSCode('flashVars:' + VarToJSON([Value, false])); -end; - -procedure TExtFlashComponent.SetFFlashVersion(Value : String); begin - FFlashVersion := Value; - JSCode('flashVersion:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFSwf(Value : TExtElement); begin - FSwf := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.swf=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtFlashComponent.SetFSwfHeight(Value : String); begin - FSwfHeight := Value; - JSCode('swfHeight:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFSwfHeightInteger(Value : Integer); begin - FSwfHeightInteger := Value; - JSCode('swfHeight:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFSwfWidth(Value : String); begin - FSwfWidth := Value; - JSCode('swfWidth:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFSwfWidthInteger(Value : Integer); begin - FSwfWidthInteger := Value; - JSCode('swfWidth:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFUrl(Value : String); begin - FUrl := Value; - JSCode('url:' + VarToJSON([Value])); -end; - -procedure TExtFlashComponent.SetFWmode(Value : String); begin - FWmode := Value; - JSCode('wmode:' + VarToJSON([Value])); -end; - -function TExtFlashComponent.JSClassName : string; begin - Result := 'Ext.flash.Component'; -end; - -procedure TExtFlashComponent.InitDefaults; begin - inherited; - FFlashAttributes := TExtObject.CreateInternal(Self, 'flashAttributes'); - FFlashParams := TExtObject.CreateInternal(Self, 'flashParams'); - FFlashVars := TExtObject.CreateInternal(Self, 'flashVars'); - FSwf := TExtElement.CreateInternal(Self, 'swf'); - FSwfHeight := '100%'; - FSwfWidth := '100%'; -end; - -{$IFDEF FPC}constructor TExtFlashComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtFlashComponent.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtFlashComponent.Destroy; begin - try - FFlashAttributes.Free; - FFlashParams.Free; - FFlashVars.Free; - FSwf.Free; - except end; - inherited; -end; - -procedure TExtAjaxSingleton.SetFAutoAbort(Value : Boolean); begin - FAutoAbort := Value; - JSCode(JSName + '.autoAbort=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFDefaultHeaders(Value : TExtObject); begin - FDefaultHeaders := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.defaultHeaders=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFDisableCaching(Value : Boolean); begin - FDisableCaching := Value; - JSCode(JSName + '.disableCaching=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFExtraParams(Value : TExtObject); begin - FExtraParams := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.extraParams=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFMethod(Value : String); begin - FMethod := Value; - JSCode(JSName + '.method=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFTimeout(Value : Integer); begin - FTimeout := Value; - JSCode(JSName + '.timeout=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtAjaxSingleton.SetFUrl(Value : String); begin - FUrl := Value; - JSCode(JSName + '.url=' + VarToJSON([Value]) + ';'); -end; - -function TExtAjaxSingleton.JSClassName : string; begin - Result := 'Ext.Ajax'; -end; - -procedure TExtAjaxSingleton.InitDefaults; begin - inherited; - FDefaultHeaders := TExtObject.CreateInternal(Self, 'defaultHeaders'); - FDisableCaching := true; - FExtraParams := TExtObject.CreateInternal(Self, 'extraParams'); - FTimeout := 30000; -end; - -{$IFDEF FPC}constructor TExtAjaxSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -destructor TExtAjaxSingleton.Destroy; begin - try - FDefaultHeaders.Free; - FExtraParams.Free; - except end; - inherited; +function TExtResizerSplitterTracker.JSClassName : string; begin + Result := 'Ext.resizer.SplitterTracker'; end; -procedure TExtDataUuidGenerator.SetFVersion(Value : Integer); begin - FVersion := Value; - JSCode('version:' + VarToJSON([Value])); -end; +{$IFDEF FPC}constructor TExtResizerSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDataUuidGenerator.JSClassName : string; begin - Result := 'Ext.data.UuidGenerator'; +function TExtDataTreeModel.JSClassName : string; begin + Result := 'Ext.data.TreeModel'; end; -{$IFDEF FPC}constructor TExtDataUuidGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDataUuidGenerator.Reconfigure : TExtFunction; begin - JSCode(JSName + '.reconfigure();', 'TExtDataUuidGenerator'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtDataTreeModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtAppApplication.SetFAppFolder(Value : String); begin FAppFolder := Value; @@ -30893,93 +30682,133 @@ destructor TExtAppApplication.Destroy; begin inherited; end; -procedure TExtFormActionSubmit.SetFClientValidation(Value : Boolean); begin - FClientValidation := Value; - JSCode('clientValidation:' + VarToJSON([Value])); +procedure TExtDataUuidGenerator.SetFVersion(Value : Integer); begin + FVersion := Value; + JSCode('version:' + VarToJSON([Value])); end; -function TExtFormActionSubmit.JSClassName : string; begin - Result := 'Ext.form.action.Submit'; +function TExtDataUuidGenerator.JSClassName : string; begin + Result := 'Ext.data.UuidGenerator'; end; -{$IFDEF FPC}constructor TExtFormActionSubmit.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataUuidGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtResizerResizeTracker.JSClassName : string; begin - Result := 'Ext.resizer.ResizeTracker'; +function TExtDataUuidGenerator.Reconfigure : TExtFunction; begin + JSCode(JSName + '.reconfigure();', 'TExtDataUuidGenerator'); + Result := Self; end; -{$IFDEF FPC}constructor TExtResizerResizeTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtFlashComponent.SetFBackgroundColor(Value : String); begin + FBackgroundColor := Value; + JSCode('backgroundColor:' + VarToJSON([Value])); +end; -function TExtResizerResizeTracker.CreateProxy(Target : TExtComponent) : TExtFunction; begin - JSCode(JSName + '.createProxy(' + VarToJSON([Target, false]) + ');', 'TExtResizerResizeTracker'); - Result := Self; +procedure TExtFlashComponent.SetFExpressInstall(Value : Boolean); begin + FExpressInstall := Value; + JSCode('expressInstall:' + VarToJSON([Value])); end; -procedure TExtDataSequentialIdGenerator.SetFPrefix(Value : String); begin - FPrefix := Value; - JSCode('prefix:' + VarToJSON([Value])); +procedure TExtFlashComponent.SetFFlashAttributes(Value : TExtObject); begin + FFlashAttributes := Value; + Value.DeleteFromGarbage; + JSCode('flashAttributes:' + VarToJSON([Value, false])); end; -procedure TExtDataSequentialIdGenerator.SetFSeed(Value : Integer); begin - FSeed := Value; - JSCode('seed:' + VarToJSON([Value])); +procedure TExtFlashComponent.SetFFlashParams(Value : TExtObject); begin + FFlashParams := Value; + Value.DeleteFromGarbage; + JSCode('flashParams:' + VarToJSON([Value, false])); end; -function TExtDataSequentialIdGenerator.JSClassName : string; begin - Result := 'Ext.data.SequentialIdGenerator'; +procedure TExtFlashComponent.SetFFlashVars(Value : TExtObject); begin + FFlashVars := Value; + Value.DeleteFromGarbage; + JSCode('flashVars:' + VarToJSON([Value, false])); end; -{$IFDEF FPC}constructor TExtDataSequentialIdGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtFlashComponent.SetFFlashVersion(Value : String); begin + FFlashVersion := Value; + JSCode('flashVersion:' + VarToJSON([Value])); +end; -function TExtDataSequentialIdGenerator.Generate : TExtFunction; begin - JSCode(JSName + '.generate();', 'TExtDataSequentialIdGenerator'); - Result := Self; +procedure TExtFlashComponent.SetFSwf(Value : TExtElement); begin + FSwf := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.swf=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtUtilComponentDragger.SetFConstrain(Value : Boolean); begin - FConstrain := Value; - JSCode('constrain:' + VarToJSON([Value])); +procedure TExtFlashComponent.SetFSwfHeight(Value : String); begin + FSwfHeight := Value; + JSCode('swfHeight:' + VarToJSON([Value])); end; -procedure TExtUtilComponentDragger.SetFConstrainDelegate(Value : Boolean); begin - FConstrainDelegate := Value; - JSCode('constrainDelegate:' + VarToJSON([Value])); +procedure TExtFlashComponent.SetFSwfHeightInteger(Value : Integer); begin + FSwfHeightInteger := Value; + JSCode('swfHeight:' + VarToJSON([Value])); end; -procedure TExtUtilComponentDragger.SetFDelegate(Value : String); begin - FDelegate := Value; - JSCode('delegate:' + VarToJSON([Value])); +procedure TExtFlashComponent.SetFSwfWidth(Value : String); begin + FSwfWidth := Value; + JSCode('swfWidth:' + VarToJSON([Value])); end; -procedure TExtUtilComponentDragger.SetFDelegateTExtElement(Value : TExtElement); begin - FDelegateTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('delegate:' + VarToJSON([Value, false])); +procedure TExtFlashComponent.SetFSwfWidthInteger(Value : Integer); begin + FSwfWidthInteger := Value; + JSCode('swfWidth:' + VarToJSON([Value])); end; -function TExtUtilComponentDragger.JSClassName : string; begin - Result := 'Ext.util.ComponentDragger'; +procedure TExtFlashComponent.SetFUrl(Value : String); begin + FUrl := Value; + JSCode('url:' + VarToJSON([Value])); end; -procedure TExtUtilComponentDragger.InitDefaults; begin +procedure TExtFlashComponent.SetFWmode(Value : String); begin + FWmode := Value; + JSCode('wmode:' + VarToJSON([Value])); +end; + +function TExtFlashComponent.JSClassName : string; begin + Result := 'Ext.flash.Component'; +end; + +procedure TExtFlashComponent.InitDefaults; begin inherited; - FDelegateTExtElement := TExtElement.CreateInternal(Self, 'delegate'); + FFlashAttributes := TExtObject.CreateInternal(Self, 'flashAttributes'); + FFlashParams := TExtObject.CreateInternal(Self, 'flashParams'); + FFlashVars := TExtObject.CreateInternal(Self, 'flashVars'); + FSwf := TExtElement.CreateInternal(Self, 'swf'); + FSwfHeight := '100%'; + FSwfWidth := '100%'; end; -{$IFDEF FPC}constructor TExtUtilComponentDragger.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtFlashComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtUtilComponentDragger.Create; begin +constructor TExtFlashComponent.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -destructor TExtUtilComponentDragger.Destroy; begin +destructor TExtFlashComponent.Destroy; begin try - FDelegateTExtElement.Free; + FFlashAttributes.Free; + FFlashParams.Free; + FFlashVars.Free; + FSwf.Free; except end; inherited; end; +procedure TExtFormActionSubmit.SetFClientValidation(Value : Boolean); begin + FClientValidation := Value; + JSCode('clientValidation:' + VarToJSON([Value])); +end; + +function TExtFormActionSubmit.JSClassName : string; begin + Result := 'Ext.form.action.Submit'; +end; + +{$IFDEF FPC}constructor TExtFormActionSubmit.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtFormFieldBase.SetFActiveError(Value : String); begin FActiveError := Value; if not ConfigAvailable(JSName) then @@ -30993,14 +30822,14 @@ procedure TExtFormFieldBase.SetFActiveErrorsTpl(Value : String); begin JSCode('activeErrorsTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); begin - FActiveErrorsTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFActiveErrorsTplList(Value : TExtObjectList); begin + FActiveErrorsTplList := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); begin - FActiveErrorsTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFActiveErrorsTplTemplate(Value : TExtXTemplate); begin + FActiveErrorsTplTemplate := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; @@ -31010,14 +30839,14 @@ procedure TExtFormFieldBase.SetFAfterBodyEl(Value : String); begin JSCode('afterBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFAfterBodyElTExtObjectList(Value : TExtObjectList); begin - FAfterBodyElTExtObjectList := Value; +procedure TExtFormFieldBase.SetFAfterBodyElList(Value : TExtObjectList); begin + FAfterBodyElList := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); begin - FAfterBodyElTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFAfterBodyElTemplate(Value : TExtXTemplate); begin + FAfterBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; @@ -31027,14 +30856,14 @@ procedure TExtFormFieldBase.SetFAfterLabelTextTpl(Value : String); begin JSCode('afterLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFAfterLabelTextTplList(Value : TExtObjectList); begin + FAfterLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -31044,14 +30873,14 @@ procedure TExtFormFieldBase.SetFAfterLabelTpl(Value : String); begin JSCode('afterLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFAfterLabelTplList(Value : TExtObjectList); begin + FAfterLabelTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFAfterLabelTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; @@ -31061,14 +30890,14 @@ procedure TExtFormFieldBase.SetFAfterSubTpl(Value : String); begin JSCode('afterSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFAfterSubTplTExtObjectList(Value : TExtObjectList); begin - FAfterSubTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFAfterSubTplList(Value : TExtObjectList); begin + FAfterSubTplList := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterSubTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFAfterSubTplTemplate(Value : TExtXTemplate); begin + FAfterSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; @@ -31088,14 +30917,14 @@ procedure TExtFormFieldBase.SetFBeforeBodyEl(Value : String); begin JSCode('beforeBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); begin - FBeforeBodyElTExtObjectList := Value; +procedure TExtFormFieldBase.SetFBeforeBodyElList(Value : TExtObjectList); begin + FBeforeBodyElList := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); begin - FBeforeBodyElTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFBeforeBodyElTemplate(Value : TExtXTemplate); begin + FBeforeBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; @@ -31105,14 +30934,14 @@ procedure TExtFormFieldBase.SetFBeforeLabelTextTpl(Value : String); begin JSCode('beforeLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFBeforeLabelTextTplList(Value : TExtObjectList); begin + FBeforeLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -31122,14 +30951,14 @@ procedure TExtFormFieldBase.SetFBeforeLabelTpl(Value : String); begin JSCode('beforeLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFBeforeLabelTplList(Value : TExtObjectList); begin + FBeforeLabelTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFBeforeLabelTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; @@ -31139,14 +30968,14 @@ procedure TExtFormFieldBase.SetFBeforeSubTpl(Value : String); begin JSCode('beforeSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); begin - FBeforeSubTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFBeforeSubTplList(Value : TExtObjectList); begin + FBeforeSubTplList := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeSubTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFBeforeSubTplTemplate(Value : TExtXTemplate); begin + FBeforeSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; @@ -31233,14 +31062,14 @@ procedure TExtFormFieldBase.SetFInputAttrTpl(Value : String); begin JSCode('inputAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFInputAttrTplTExtObjectList(Value : TExtObjectList); begin - FInputAttrTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFInputAttrTplList(Value : TExtObjectList); begin + FInputAttrTplList := Value; Value.DeleteFromGarbage; JSCode('inputAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFInputAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FInputAttrTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFInputAttrTplTemplate(Value : TExtXTemplate); begin + FInputAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('inputAttrTpl:' + VarToJSON([Value, false])); end; @@ -31276,14 +31105,14 @@ procedure TExtFormFieldBase.SetFLabelableRenderTpl(Value : String); begin JSCode('labelableRenderTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); begin - FLabelableRenderTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFLabelableRenderTplList(Value : TExtObjectList); begin + FLabelableRenderTplList := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelableRenderTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFLabelableRenderTplTemplate(Value : TExtXTemplate); begin + FLabelableRenderTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; @@ -31298,14 +31127,14 @@ procedure TExtFormFieldBase.SetFLabelAttrTpl(Value : String); begin JSCode('labelAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldBase.SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); begin - FLabelAttrTplTExtObjectList := Value; +procedure TExtFormFieldBase.SetFLabelAttrTplList(Value : TExtObjectList); begin + FLabelAttrTplList := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldBase.SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelAttrTplTExtXTemplate := Value; +procedure TExtFormFieldBase.SetFLabelAttrTplTemplate(Value : TExtXTemplate); begin + FLabelAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; @@ -31417,33 +31246,33 @@ function TExtFormFieldBase.JSClassName : string; begin procedure TExtFormFieldBase.InitDefaults; begin inherited; - FActiveErrorsTplTExtObjectList := TExtObjectList.Create(Self, 'activeErrorsTpl'); - FActiveErrorsTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); - FAfterBodyElTExtObjectList := TExtObjectList.Create(Self, 'afterBodyEl'); - FAfterBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); - FAfterLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); - FAfterLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); - FAfterLabelTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTpl'); - FAfterLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); - FAfterSubTplTExtObjectList := TExtObjectList.Create(Self, 'afterSubTpl'); - FAfterSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); - FBeforeBodyElTExtObjectList := TExtObjectList.Create(Self, 'beforeBodyEl'); - FBeforeBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); - FBeforeLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); - FBeforeLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); - FBeforeLabelTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTpl'); - FBeforeLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); - FBeforeSubTplTExtObjectList := TExtObjectList.Create(Self, 'beforeSubTpl'); - FBeforeSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); + FActiveErrorsTplList := TExtObjectList.Create(Self, 'activeErrorsTpl'); + FActiveErrorsTplTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); + FAfterBodyElList := TExtObjectList.Create(Self, 'afterBodyEl'); + FAfterBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); + FAfterLabelTextTplList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); + FAfterLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); + FAfterLabelTplList := TExtObjectList.Create(Self, 'afterLabelTpl'); + FAfterLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); + FAfterSubTplList := TExtObjectList.Create(Self, 'afterSubTpl'); + FAfterSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); + FBeforeBodyElList := TExtObjectList.Create(Self, 'beforeBodyEl'); + FBeforeBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); + FBeforeLabelTextTplList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); + FBeforeLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); + FBeforeLabelTplList := TExtObjectList.Create(Self, 'beforeLabelTpl'); + FBeforeLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); + FBeforeSubTplList := TExtObjectList.Create(Self, 'beforeSubTpl'); + FBeforeSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); FCheckChangeBuffer := 50; FCheckChangeEvents := TExtObjectList.Create(Self, 'checkChangeEvents'); - FInputAttrTplTExtObjectList := TExtObjectList.Create(Self, 'inputAttrTpl'); - FInputAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'inputAttrTpl'); + FInputAttrTplList := TExtObjectList.Create(Self, 'inputAttrTpl'); + FInputAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'inputAttrTpl'); FInputEl := TExtElement.CreateInternal(Self, 'inputEl'); - FLabelableRenderTplTExtObjectList := TExtObjectList.Create(Self, 'labelableRenderTpl'); - FLabelableRenderTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); - FLabelAttrTplTExtObjectList := TExtObjectList.Create(Self, 'labelAttrTpl'); - FLabelAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); + FLabelableRenderTplList := TExtObjectList.Create(Self, 'labelableRenderTpl'); + FLabelableRenderTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); + FLabelAttrTplList := TExtObjectList.Create(Self, 'labelAttrTpl'); + FLabelAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); FOriginalValue := TExtObject.CreateInternal(Self, 'originalValue'); FValue := TExtObject.CreateInternal(Self, 'value'); end; @@ -31652,32 +31481,32 @@ function TExtFormFieldBase.ValueToRaw(Value : TExtObject) : TExtFunction; begin destructor TExtFormFieldBase.Destroy; begin try - FActiveErrorsTplTExtObjectList.Free; - FActiveErrorsTplTExtXTemplate.Free; - FAfterBodyElTExtObjectList.Free; - FAfterBodyElTExtXTemplate.Free; - FAfterLabelTextTplTExtObjectList.Free; - FAfterLabelTextTplTExtXTemplate.Free; - FAfterLabelTplTExtObjectList.Free; - FAfterLabelTplTExtXTemplate.Free; - FAfterSubTplTExtObjectList.Free; - FAfterSubTplTExtXTemplate.Free; - FBeforeBodyElTExtObjectList.Free; - FBeforeBodyElTExtXTemplate.Free; - FBeforeLabelTextTplTExtObjectList.Free; - FBeforeLabelTextTplTExtXTemplate.Free; - FBeforeLabelTplTExtObjectList.Free; - FBeforeLabelTplTExtXTemplate.Free; - FBeforeSubTplTExtObjectList.Free; - FBeforeSubTplTExtXTemplate.Free; + FActiveErrorsTplList.Free; + FActiveErrorsTplTemplate.Free; + FAfterBodyElList.Free; + FAfterBodyElTemplate.Free; + FAfterLabelTextTplList.Free; + FAfterLabelTextTplTemplate.Free; + FAfterLabelTplList.Free; + FAfterLabelTplTemplate.Free; + FAfterSubTplList.Free; + FAfterSubTplTemplate.Free; + FBeforeBodyElList.Free; + FBeforeBodyElTemplate.Free; + FBeforeLabelTextTplList.Free; + FBeforeLabelTextTplTemplate.Free; + FBeforeLabelTplList.Free; + FBeforeLabelTplTemplate.Free; + FBeforeSubTplList.Free; + FBeforeSubTplTemplate.Free; FCheckChangeEvents.Free; - FInputAttrTplTExtObjectList.Free; - FInputAttrTplTExtXTemplate.Free; + FInputAttrTplList.Free; + FInputAttrTplTemplate.Free; FInputEl.Free; - FLabelableRenderTplTExtObjectList.Free; - FLabelableRenderTplTExtXTemplate.Free; - FLabelAttrTplTExtObjectList.Free; - FLabelAttrTplTExtXTemplate.Free; + FLabelableRenderTplList.Free; + FLabelableRenderTplTemplate.Free; + FLabelAttrTplList.Free; + FLabelAttrTplTemplate.Free; FOriginalValue.Free; FValue.Free; except end; @@ -31690,6 +31519,44 @@ procedure TExtFormFieldBase.HandleEvent(const AEvtName : string); begin FOnErrorchange(TExtFormLabelable(ParamAsObject('This')), ParamAsString('Error')); end; +function TExtResizerHandle.JSClassName : string; begin + Result := 'Ext.resizer.Handle'; +end; + +{$IFDEF FPC}constructor TExtResizerHandle.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtDataSequentialIdGenerator.SetFPrefix(Value : String); begin + FPrefix := Value; + JSCode('prefix:' + VarToJSON([Value])); +end; + +procedure TExtDataSequentialIdGenerator.SetFSeed(Value : Integer); begin + FSeed := Value; + JSCode('seed:' + VarToJSON([Value])); +end; + +function TExtDataSequentialIdGenerator.JSClassName : string; begin + Result := 'Ext.data.SequentialIdGenerator'; +end; + +{$IFDEF FPC}constructor TExtDataSequentialIdGenerator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDataSequentialIdGenerator.Generate : TExtFunction; begin + JSCode(JSName + '.generate();', 'TExtDataSequentialIdGenerator'); + Result := Self; +end; + +function TExtResizerResizeTracker.JSClassName : string; begin + Result := 'Ext.resizer.ResizeTracker'; +end; + +{$IFDEF FPC}constructor TExtResizerResizeTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtResizerResizeTracker.CreateProxy(Target : TExtComponent) : TExtFunction; begin + JSCode(JSName + '.createProxy(' + VarToJSON([Target, false]) + ');', 'TExtResizerResizeTracker'); + Result := Self; +end; + procedure TExtFormBasic.SetFApi(Value : TExtObject); begin FApi := Value; Value.DeleteFromGarbage; @@ -31708,8 +31575,8 @@ procedure TExtFormBasic.SetFErrorReader(Value : TExtObject); begin JSCode('errorReader:' + VarToJSON([Value, false])); end; -procedure TExtFormBasic.SetFErrorReaderTExtDataReader(Value : TExtDataReader); begin - FErrorReaderTExtDataReader := Value; +procedure TExtFormBasic.SetFErrorReaderReader(Value : TExtDataReader); begin + FErrorReaderReader := Value; Value.DeleteFromGarbage; JSCode('errorReader:' + VarToJSON([Value, false])); end; @@ -31729,8 +31596,8 @@ procedure TExtFormBasic.SetFParamOrder(Value : String); begin JSCode('paramOrder:' + VarToJSON([Value])); end; -procedure TExtFormBasic.SetFParamOrderTExtObjectList(Value : TExtObjectList); begin - FParamOrderTExtObjectList := Value; +procedure TExtFormBasic.SetFParamOrderList(Value : TExtObjectList); begin + FParamOrderList := Value; Value.DeleteFromGarbage; JSCode('paramOrder:' + VarToJSON([Value, false])); end; @@ -31746,8 +31613,8 @@ procedure TExtFormBasic.SetFReader(Value : TExtObject); begin JSCode('reader:' + VarToJSON([Value, false])); end; -procedure TExtFormBasic.SetFReaderTExtDataReader(Value : TExtDataReader); begin - FReaderTExtDataReader := Value; +procedure TExtFormBasic.SetFReaderReader(Value : TExtDataReader); begin + FReaderReader := Value; Value.DeleteFromGarbage; JSCode('reader:' + VarToJSON([Value, false])); end; @@ -31777,8 +31644,8 @@ procedure TExtFormBasic.SetFWaitMsgTarget(Value : String); begin JSCode('waitMsgTarget:' + VarToJSON([Value])); end; -procedure TExtFormBasic.SetFWaitMsgTargetTExtElement(Value : TExtElement); begin - FWaitMsgTargetTExtElement := Value; +procedure TExtFormBasic.SetFWaitMsgTargetElement(Value : TExtElement); begin + FWaitMsgTargetElement := Value; Value.DeleteFromGarbage; JSCode('waitMsgTarget:' + VarToJSON([Value, false])); end; @@ -31803,11 +31670,11 @@ procedure TExtFormBasic.InitDefaults; begin FApi := TExtObject.CreateInternal(Self, 'api'); FBaseParams := TExtObject.CreateInternal(Self, 'baseParams'); FErrorReader := TExtObject.CreateInternal(Self, 'errorReader'); - FErrorReaderTExtDataReader := TExtDataReader.CreateInternal(Self, 'errorReader'); - FParamOrderTExtObjectList := TExtObjectList.Create(Self, 'paramOrder'); + FErrorReaderReader := TExtDataReader.CreateInternal(Self, 'errorReader'); + FParamOrderList := TExtObjectList.Create(Self, 'paramOrder'); FReader := TExtObject.CreateInternal(Self, 'reader'); - FReaderTExtDataReader := TExtDataReader.CreateInternal(Self, 'reader'); - FWaitMsgTargetTExtElement := TExtElement.CreateInternal(Self, 'waitMsgTarget'); + FReaderReader := TExtDataReader.CreateInternal(Self, 'reader'); + FWaitMsgTargetElement := TExtElement.CreateInternal(Self, 'waitMsgTarget'); end; {$IFDEF FPC}constructor TExtFormBasic.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -31932,20 +31799,58 @@ destructor TExtFormBasic.Destroy; begin FApi.Free; FBaseParams.Free; FErrorReader.Free; - FErrorReaderTExtDataReader.Free; - FParamOrderTExtObjectList.Free; + FErrorReaderReader.Free; + FParamOrderList.Free; FReader.Free; - FReaderTExtDataReader.Free; - FWaitMsgTargetTExtElement.Free; + FReaderReader.Free; + FWaitMsgTargetElement.Free; except end; inherited; end; -function TExtResizerSplitterTracker.JSClassName : string; begin - Result := 'Ext.resizer.SplitterTracker'; +procedure TExtUtilComponentDragger.SetFConstrain(Value : Boolean); begin + FConstrain := Value; + JSCode('constrain:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtResizerSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtUtilComponentDragger.SetFConstrainDelegate(Value : Boolean); begin + FConstrainDelegate := Value; + JSCode('constrainDelegate:' + VarToJSON([Value])); +end; + +procedure TExtUtilComponentDragger.SetFDelegate(Value : String); begin + FDelegate := Value; + JSCode('delegate:' + VarToJSON([Value])); +end; + +procedure TExtUtilComponentDragger.SetFDelegateElement(Value : TExtElement); begin + FDelegateElement := Value; + Value.DeleteFromGarbage; + JSCode('delegate:' + VarToJSON([Value, false])); +end; + +function TExtUtilComponentDragger.JSClassName : string; begin + Result := 'Ext.util.ComponentDragger'; +end; + +procedure TExtUtilComponentDragger.InitDefaults; begin + inherited; + FDelegateElement := TExtElement.CreateInternal(Self, 'delegate'); +end; + +{$IFDEF FPC}constructor TExtUtilComponentDragger.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtUtilComponentDragger.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtUtilComponentDragger.Destroy; begin + try + FDelegateElement.Free; + except end; + inherited; +end; procedure TExtResizerSplitter.SetFCollapsedCls(Value : String); begin FCollapsedCls := Value; @@ -31962,8 +31867,8 @@ procedure TExtResizerSplitter.SetFCollapseTarget(Value : String); begin JSCode('collapseTarget:' + VarToJSON([Value])); end; -procedure TExtResizerSplitter.SetFCollapseTargetTExtPanel(Value : TExtPanel); begin - FCollapseTargetTExtPanel := Value; +procedure TExtResizerSplitter.SetFCollapseTargetPanel(Value : TExtPanel); begin + FCollapseTargetPanel := Value; Value.DeleteFromGarbage; JSCode('collapseTarget:' + VarToJSON([Value, false])); end; @@ -31999,7 +31904,7 @@ function TExtResizerSplitter.JSClassName : string; begin procedure TExtResizerSplitter.InitDefaults; begin inherited; - FCollapseTargetTExtPanel := TExtPanel.CreateInternal(Self, 'collapseTarget'); + FCollapseTargetPanel := TExtPanel.CreateInternal(Self, 'collapseTarget'); end; {$IFDEF FPC}constructor TExtResizerSplitter.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -32011,7 +31916,7 @@ constructor TExtResizerSplitter.Create; begin destructor TExtResizerSplitter.Destroy; begin try - FCollapseTargetTExtPanel.Free; + FCollapseTargetPanel.Free; except end; inherited; end; @@ -32048,17 +31953,6 @@ function TExtDataWriter.Write(Request : TExtDataRequest) : TExtFunction; begin Result := Self; end; -function TExtUtilGrouper.JSClassName : string; begin - Result := 'Ext.util.Grouper'; -end; - -{$IFDEF FPC}constructor TExtUtilGrouper.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtUtilGrouper.GetGroupString(Instance : TExtDataModel) : TExtFunction; begin - JSCode(JSName + '.getGroupString(' + VarToJSON([Instance, false]) + ');', 'TExtUtilGrouper'); - Result := Self; -end; - function TExtDomCompositeElement.JSClassName : string; begin Result := 'Ext.dom.CompositeElement'; end; @@ -32076,156 +31970,6 @@ constructor TExtComponentManagerSingleton.Create(Config : TExtObject; DefaultTyp InitDefaults; end; -procedure TExtDdStatusProxy.SetFDropAllowed(Value : String); begin - FDropAllowed := Value; - JSCode('dropAllowed:' + VarToJSON([Value])); -end; - -procedure TExtDdStatusProxy.SetFDropNotAllowed(Value : String); begin - FDropNotAllowed := Value; - JSCode('dropNotAllowed:' + VarToJSON([Value])); -end; - -function TExtDdStatusProxy.JSClassName : string; begin - Result := 'Ext.dd.StatusProxy'; -end; - -{$IFDEF FPC}constructor TExtDdStatusProxy.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDdStatusProxy.GetGhost : TExtFunction; begin - JSCode(JSName + '.getGhost();', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Hide(Clear : Boolean) : TExtFunction; begin - JSCode(JSName + '.hide(' + VarToJSON([Clear]) + ');', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Repair(Xy : TArrayOfInteger; Callback : TExtFunction; Scope : TExtObject) : TExtFunction; begin - JSCode(JSName + '.repair(' + VarToJSON([Xy, Callback, true, Scope, false]) + ');', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Reset(ClearGhost : Boolean) : TExtFunction; begin - JSCode(JSName + '.reset(' + VarToJSON([ClearGhost]) + ');', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.SetStatus(CssClass : String) : TExtFunction; begin - JSCode(JSName + '.setStatus(' + VarToJSON([CssClass]) + ');', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Stop : TExtFunction; begin - JSCode(JSName + '.stop();', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Sync : TExtFunction; begin - JSCode(JSName + '.sync();', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDdStatusProxy.Update(Html : String) : TExtFunction; begin - JSCode(JSName + '.update(' + VarToJSON([Html]) + ');', 'TExtDdStatusProxy'); - Result := Self; -end; - -function TExtDirectRemotingEvent.JSClassName : string; begin - Result := 'Ext.direct.RemotingEvent'; -end; - -{$IFDEF FPC}constructor TExtDirectRemotingEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDirectRemotingEvent.GetTransaction : TExtFunction; begin - JSCode(JSName + '.getTransaction();', 'TExtDirectRemotingEvent'); - Result := Self; -end; - -function TExtDirectJsonProvider.JSClassName : string; begin - Result := 'Ext.direct.JsonProvider'; -end; - -{$IFDEF FPC}constructor TExtDirectJsonProvider.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDirectJsonProvider.CreateEvent(Response : TExtObject) : TExtFunction; begin - JSCode(JSName + '.createEvent(' + VarToJSON([Response, false]) + ');', 'TExtDirectJsonProvider'); - Result := Self; -end; - -function TExtDirectJsonProvider.CreateEvents(Response : TExtObject) : TExtFunction; begin - JSCode(JSName + '.createEvents(' + VarToJSON([Response, false]) + ');', 'TExtDirectJsonProvider'); - Result := Self; -end; - -procedure TExtComponentLoader.SetFLoadMask(Value : Boolean); begin - FLoadMask := Value; - JSCode('loadMask:' + VarToJSON([Value])); -end; - -procedure TExtComponentLoader.SetFLoadMaskTExtObject(Value : TExtObject); begin - FLoadMaskTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('loadMask:' + VarToJSON([Value, false])); -end; - -procedure TExtComponentLoader.SetFRenderer(Value : String); begin - FRenderer := Value; - JSCode('renderer:' + VarToJSON([Value])); -end; - -procedure TExtComponentLoader.SetFRendererTExtFunction(Value : TExtFunction); begin - FRendererTExtFunction := Value; - JSCode('renderer:' + VarToJSON([Value, true])); -end; - -procedure TExtComponentLoader.SetFScripts(Value : Boolean); begin - FScripts := Value; - JSCode('scripts:' + VarToJSON([Value])); -end; - -procedure TExtComponentLoader.SetFTarget(Value : TExtComponent); begin - FTarget := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -procedure TExtComponentLoader.SetFTargetString(Value : String); begin - FTargetString := Value; - JSCode('target:' + VarToJSON([Value])); -end; - -function TExtComponentLoader.JSClassName : string; begin - Result := 'Ext.ComponentLoader'; -end; - -procedure TExtComponentLoader.InitDefaults; begin - inherited; - FLoadMaskTExtObject := TExtObject.CreateInternal(Self, 'loadMask'); - FTarget := TExtComponent.CreateInternal(Self, 'target'); -end; - -{$IFDEF FPC}constructor TExtComponentLoader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtComponentLoader.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtComponentLoader.SetTarget(Target : String) : TExtFunction; begin - JSCode(JSName + '.setTarget(' + VarToJSON([Target]) + ');', 'TExtComponentLoader'); - Result := Self; -end; - -destructor TExtComponentLoader.Destroy; begin - try - FLoadMaskTExtObject.Free; - FTarget.Free; - except end; - inherited; -end; - procedure TExtDomElement.SetFAutoBoxAdjust(Value : Boolean); begin FAutoBoxAdjust := Value; JSCode(JSName + '.autoBoxAdjust=' + VarToJSON([Value]) + ';'); @@ -32661,6 +32405,167 @@ procedure TExtDomElement.HandleEvent(const AEvtName : string); begin FOnUnload(TExtEventObject(ParamAsObject('E')), THTMLElement(ParamAsObject('T'))); end; +procedure TExtDdStatusProxy.SetFDropAllowed(Value : String); begin + FDropAllowed := Value; + JSCode('dropAllowed:' + VarToJSON([Value])); +end; + +procedure TExtDdStatusProxy.SetFDropNotAllowed(Value : String); begin + FDropNotAllowed := Value; + JSCode('dropNotAllowed:' + VarToJSON([Value])); +end; + +function TExtDdStatusProxy.JSClassName : string; begin + Result := 'Ext.dd.StatusProxy'; +end; + +{$IFDEF FPC}constructor TExtDdStatusProxy.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDdStatusProxy.GetGhost : TExtFunction; begin + JSCode(JSName + '.getGhost();', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Hide(Clear : Boolean) : TExtFunction; begin + JSCode(JSName + '.hide(' + VarToJSON([Clear]) + ');', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Repair(Xy : TArrayOfInteger; Callback : TExtFunction; Scope : TExtObject) : TExtFunction; begin + JSCode(JSName + '.repair(' + VarToJSON([Xy, Callback, true, Scope, false]) + ');', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Reset(ClearGhost : Boolean) : TExtFunction; begin + JSCode(JSName + '.reset(' + VarToJSON([ClearGhost]) + ');', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.SetStatus(CssClass : String) : TExtFunction; begin + JSCode(JSName + '.setStatus(' + VarToJSON([CssClass]) + ');', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Stop : TExtFunction; begin + JSCode(JSName + '.stop();', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Sync : TExtFunction; begin + JSCode(JSName + '.sync();', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDdStatusProxy.Update(Html : String) : TExtFunction; begin + JSCode(JSName + '.update(' + VarToJSON([Html]) + ');', 'TExtDdStatusProxy'); + Result := Self; +end; + +function TExtDirectRemotingEvent.JSClassName : string; begin + Result := 'Ext.direct.RemotingEvent'; +end; + +{$IFDEF FPC}constructor TExtDirectRemotingEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDirectRemotingEvent.GetTransaction : TExtFunction; begin + JSCode(JSName + '.getTransaction();', 'TExtDirectRemotingEvent'); + Result := Self; +end; + +function TExtDirectJsonProvider.JSClassName : string; begin + Result := 'Ext.direct.JsonProvider'; +end; + +{$IFDEF FPC}constructor TExtDirectJsonProvider.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDirectJsonProvider.CreateEvent(Response : TExtObject) : TExtFunction; begin + JSCode(JSName + '.createEvent(' + VarToJSON([Response, false]) + ');', 'TExtDirectJsonProvider'); + Result := Self; +end; + +function TExtDirectJsonProvider.CreateEvents(Response : TExtObject) : TExtFunction; begin + JSCode(JSName + '.createEvents(' + VarToJSON([Response, false]) + ');', 'TExtDirectJsonProvider'); + Result := Self; +end; + +procedure TExtComponentLoader.SetFLoadMask(Value : Boolean); begin + FLoadMask := Value; + JSCode('loadMask:' + VarToJSON([Value])); +end; + +procedure TExtComponentLoader.SetFLoadMaskObject(Value : TExtObject); begin + FLoadMaskObject := Value; + Value.DeleteFromGarbage; + JSCode('loadMask:' + VarToJSON([Value, false])); +end; + +procedure TExtComponentLoader.SetFRenderer(Value : String); begin + FRenderer := Value; + JSCode('renderer:' + VarToJSON([Value])); +end; + +procedure TExtComponentLoader.SetFRendererFunction(Value : TExtFunction); begin + FRendererFunction := Value; + JSCode('renderer:' + VarToJSON([Value, true])); +end; + +procedure TExtComponentLoader.SetFScripts(Value : Boolean); begin + FScripts := Value; + JSCode('scripts:' + VarToJSON([Value])); +end; + +procedure TExtComponentLoader.SetFTarget(Value : TExtComponent); begin + FTarget := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +procedure TExtComponentLoader.SetFTargetString(Value : String); begin + FTargetString := Value; + JSCode('target:' + VarToJSON([Value])); +end; + +function TExtComponentLoader.JSClassName : string; begin + Result := 'Ext.ComponentLoader'; +end; + +procedure TExtComponentLoader.InitDefaults; begin + inherited; + FLoadMaskObject := TExtObject.CreateInternal(Self, 'loadMask'); + FTarget := TExtComponent.CreateInternal(Self, 'target'); +end; + +{$IFDEF FPC}constructor TExtComponentLoader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtComponentLoader.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtComponentLoader.SetTarget(Target : String) : TExtFunction; begin + JSCode(JSName + '.setTarget(' + VarToJSON([Target]) + ');', 'TExtComponentLoader'); + Result := Self; +end; + +destructor TExtComponentLoader.Destroy; begin + try + FLoadMaskObject.Free; + FTarget.Free; + except end; + inherited; +end; + +function TExtDdDDTarget.JSClassName : string; begin + Result := 'Ext.dd.DDTarget'; +end; + +{$IFDEF FPC}constructor TExtDdDDTarget.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDdDDTarget.Create(Id : String; SGroup : String; Config : TExtObject); begin + CreateVar(JSClassName + '(' + VarToJSON([Id, SGroup, Config, false]) + ');'); + InitDefaults; +end; + function TExtDrawEngineSvg.JSClassName : string; begin Result := 'Ext.draw.engine.Svg'; end; @@ -32709,8 +32614,8 @@ procedure TExtContainerAbstractContainer.SetFDefaults(Value : TExtObject); begin JSCode('defaults:' + VarToJSON([Value, false])); end; -procedure TExtContainerAbstractContainer.SetFDefaultsTExtFunction(Value : TExtFunction); begin - FDefaultsTExtFunction := Value; +procedure TExtContainerAbstractContainer.SetFDefaultsFunction(Value : TExtFunction); begin + FDefaultsFunction := Value; JSCode('defaults:' + VarToJSON([Value, true])); end; @@ -32724,26 +32629,19 @@ procedure TExtContainerAbstractContainer.SetFDetachOnRemove(Value : Boolean); be JSCode('detachOnRemove:' + VarToJSON([Value])); end; -procedure TExtContainerAbstractContainer.SetFItems(Value : TExtObject); begin +procedure TExtContainerAbstractContainer.SetFItems(Value : TExtObjectList); begin FItems := Value; Value.DeleteFromGarbage; JSCode('items:' + VarToJSON([Value, false])); end; -procedure TExtContainerAbstractContainer.SetFItemsTExtObjectList(Value : TExtObjectList); begin - FItemsTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('items:' + VarToJSON([Value, false])); -end; - procedure TExtContainerAbstractContainer.SetFLayout(Value : TExtEnumsLayout); begin FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); end; -procedure TExtContainerAbstractContainer.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; +procedure TExtContainerAbstractContainer.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; Value.DeleteFromGarbage; JSCode('layout:' + VarToJSON([Value, false])); end; @@ -32801,10 +32699,8 @@ procedure TExtContainerAbstractContainer.InitDefaults; begin inherited; FBubbleEvents := TExtObjectList.Create(Self, 'bubbleEvents'); FDefaults := TExtObject.CreateInternal(Self, 'defaults'); - FItems := TExtObject.CreateInternal(Self, 'items'); - FItemsTExtObjectList := TExtObjectList.Create(Self, 'items'); - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); + FItems := TExtObjectList.Create(Self, 'items'); + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); end; {$IFDEF FPC}constructor TExtContainerAbstractContainer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -32899,9 +32795,7 @@ destructor TExtContainerAbstractContainer.Destroy; begin FBubbleEvents.Free; FDefaults.Free; FItems.Free; - FItemsTExtObjectList.Free; - FLayout.Free; - FLayoutTExtObject.Free; + FLayoutObject.Free; except end; inherited; end; @@ -32931,80 +32825,65 @@ function TExtDrawEngineVml.AddGradient(Gradient : TExtObject) : TExtFunction; be Result := Self; end; -procedure TExtDrawComponent.SetFAutoSize(Value : Boolean); begin - FAutoSize := Value; - JSCode('autoSize:' + VarToJSON([Value])); +procedure TExtAjaxSingleton.SetFAutoAbort(Value : Boolean); begin + FAutoAbort := Value; + JSCode(JSName + '.autoAbort=' + VarToJSON([Value]) + ';'); end; -procedure TExtDrawComponent.SetFEnginePriority(Value : TExtObjectList); begin - FEnginePriority := Value; +procedure TExtAjaxSingleton.SetFDefaultHeaders(Value : TExtObject); begin + FDefaultHeaders := Value; Value.DeleteFromGarbage; - JSCode('enginePriority:' + VarToJSON([Value, false])); + JSCode(JSName + '.defaultHeaders=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtDrawComponent.SetFGradients(Value : TExtObjectList); begin - FGradients := Value; - Value.DeleteFromGarbage; - JSCode('gradients:' + VarToJSON([Value, false])); +procedure TExtAjaxSingleton.SetFDisableCaching(Value : Boolean); begin + FDisableCaching := Value; + JSCode(JSName + '.disableCaching=' + VarToJSON([Value]) + ';'); end; -procedure TExtDrawComponent.SetFItems(Value : TExtObjectList); begin - FItems := Value; +procedure TExtAjaxSingleton.SetFExtraParams(Value : TExtObject); begin + FExtraParams := Value; Value.DeleteFromGarbage; - JSCode('items:' + VarToJSON([Value, false])); + JSCode(JSName + '.extraParams=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtDrawComponent.SetFSurface(Value : TExtDrawSurface); begin - FSurface := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.surface=' + VarToJSON([Value, false]) + ';'); +procedure TExtAjaxSingleton.SetFMethod(Value : String); begin + FMethod := Value; + JSCode(JSName + '.method=' + VarToJSON([Value]) + ';'); end; -procedure TExtDrawComponent.SetFViewBox(Value : Boolean); begin - FViewBox := Value; - JSCode('viewBox:' + VarToJSON([Value])); +procedure TExtAjaxSingleton.SetFTimeout(Value : Integer); begin + FTimeout := Value; + JSCode(JSName + '.timeout=' + VarToJSON([Value]) + ';'); end; -function TExtDrawComponent.JSClassName : string; begin - Result := 'Ext.draw.Component'; +procedure TExtAjaxSingleton.SetFUrl(Value : String); begin + FUrl := Value; + JSCode(JSName + '.url=' + VarToJSON([Value]) + ';'); end; -procedure TExtDrawComponent.InitDefaults; begin - inherited; - FEnginePriority := TExtObjectList.Create(Self, 'enginePriority'); - FGradients := TExtObjectList.Create(Self, 'gradients'); - FItems := TExtObjectList.Create(Self, 'items'); - FSurface := TExtDrawSurface.CreateInternal(Self, 'surface'); +function TExtAjaxSingleton.JSClassName : string; begin + Result := 'Ext.Ajax'; end; -{$IFDEF FPC}constructor TExtDrawComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDrawComponent.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +procedure TExtAjaxSingleton.InitDefaults; begin + inherited; + FDefaultHeaders := TExtObject.CreateInternal(Self, 'defaultHeaders'); + FDisableCaching := true; + FExtraParams := TExtObject.CreateInternal(Self, 'extraParams'); + FTimeout := 30000; end; -destructor TExtDrawComponent.Destroy; begin +{$IFDEF FPC}constructor TExtAjaxSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +destructor TExtAjaxSingleton.Destroy; begin try - FEnginePriority.Free; - FGradients.Free; - FItems.Free; - FSurface.Free; + FDefaultHeaders.Free; + FExtraParams.Free; except end; inherited; end; -function TExtDdDDTarget.JSClassName : string; begin - Result := 'Ext.dd.DDTarget'; -end; - -{$IFDEF FPC}constructor TExtDdDDTarget.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDdDDTarget.Create(Id : String; SGroup : String; Config : TExtObject); begin - CreateVar(JSClassName + '(' + VarToJSON([Id, SGroup, Config, false]) + ');'); - InitDefaults; -end; - procedure TExtDomHelperSingleton.SetFUseDom(Value : Boolean); begin FUseDom := Value; JSCode(JSName + '.useDom=' + VarToJSON([Value]) + ';'); @@ -33087,42 +32966,208 @@ function TExtDdDD.SetDragElPos(IPageX : Integer; IPageY : Integer) : TExtFunctio Result := Self; end; -procedure TExtFormLabel.SetFForId(Value : String); begin - FForId := Value; - JSCode('forId:' + VarToJSON([Value])); +procedure TExtDrawComponent.SetFAutoSize(Value : Boolean); begin + FAutoSize := Value; + JSCode('autoSize:' + VarToJSON([Value])); end; -procedure TExtFormLabel.SetFHtml(Value : String); begin - FHtml := Value; - JSCode('html:' + VarToJSON([Value])); +procedure TExtDrawComponent.SetFEnginePriority(Value : TExtObjectList); begin + FEnginePriority := Value; + Value.DeleteFromGarbage; + JSCode('enginePriority:' + VarToJSON([Value, false])); end; -procedure TExtFormLabel.SetFText(Value : String); begin - FText := Value; - if not ConfigAvailable(JSName) then - SetText(Value) - else - JSCode('text:' + VarToJSON([Value])); +procedure TExtDrawComponent.SetFGradients(Value : TExtObjectList); begin + FGradients := Value; + Value.DeleteFromGarbage; + JSCode('gradients:' + VarToJSON([Value, false])); end; -function TExtFormLabel.JSClassName : string; begin - Result := 'Ext.form.Label'; +procedure TExtDrawComponent.SetFItems(Value : TExtObjectList); begin + FItems := Value; + Value.DeleteFromGarbage; + JSCode('items:' + VarToJSON([Value, false])); end; -{$IFDEF FPC}constructor TExtFormLabel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtDrawComponent.SetFSurface(Value : TExtDrawSurface); begin + FSurface := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.surface=' + VarToJSON([Value, false]) + ';'); +end; -function TExtFormLabel.SetText(Text : String; Encode : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.setText(' + VarToJSON([Text, Encode]) + ');', 'TExtFormLabel'); +procedure TExtDrawComponent.SetFViewBox(Value : Boolean); begin + FViewBox := Value; + JSCode('viewBox:' + VarToJSON([Value])); +end; + +function TExtDrawComponent.JSClassName : string; begin + Result := 'Ext.draw.Component'; +end; + +procedure TExtDrawComponent.InitDefaults; begin + inherited; + FEnginePriority := TExtObjectList.Create(Self, 'enginePriority'); + FGradients := TExtObjectList.Create(Self, 'gradients'); + FItems := TExtObjectList.Create(Self, 'items'); + FSurface := TExtDrawSurface.CreateInternal(Self, 'surface'); +end; + +{$IFDEF FPC}constructor TExtDrawComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDrawComponent.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtDrawComponent.Destroy; begin + try + FEnginePriority.Free; + FGradients.Free; + FItems.Free; + FSurface.Free; + except end; + inherited; +end; + +function TExtAppDomainStoreSingleton.JSClassName : string; begin + Result := 'Ext.app.domain.Store'; +end; + +{$IFDEF FPC}constructor TExtAppDomainStoreSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtPluginManagerSingleton.JSClassName : string; begin + Result := 'Ext.PluginManager'; +end; + +{$IFDEF FPC}constructor TExtPluginManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtPluginManagerSingleton.Create(Config : TExtObject; DefaultType : TExtFunction = nil); begin + CreateVarAlt(JSClassName + '.create(' + VarToJSON([Config, false, DefaultType, true]) + ');'); + InitDefaults; +end; + +function TExtPluginManagerSingleton.FindByType(TypeJS : String; DefaultsOnly : Boolean) : TExtFunction; begin + JSCode(JSName + '.findByType(' + VarToJSON([TypeJS, DefaultsOnly]) + ');', 'TExtPluginManagerSingleton'); Result := Self; end; +procedure TExtToolbarFill.SetFIsFill(Value : Boolean); begin + FIsFill := Value; + JSCode(JSName + '.isFill=' + VarToJSON([Value]) + ';'); +end; + +function TExtToolbarFill.JSClassName : string; begin + Result := 'Ext.toolbar.Fill'; +end; + +{$IFDEF FPC}constructor TExtToolbarFill.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtTreePluginTreeViewDragDrop.SetFAllowContainerDrops(Value : Boolean); begin + FAllowContainerDrops := Value; + JSCode('allowContainerDrops:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFAllowParentInserts(Value : Boolean); begin + FAllowParentInserts := Value; + JSCode('allowParentInserts:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFAppendOnly(Value : Boolean); begin + FAppendOnly := Value; + JSCode('appendOnly:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFContainerScroll(Value : TExtObject); begin + FContainerScroll := Value; + Value.DeleteFromGarbage; + JSCode('containerScroll:' + VarToJSON([Value, false])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFContainerScrollBoolean(Value : Boolean); begin + FContainerScrollBoolean := Value; + JSCode('containerScroll:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFDdGroup(Value : String); begin + FDdGroup := Value; + JSCode('ddGroup:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFDisplayField(Value : String); begin + FDisplayField := Value; + JSCode('displayField:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFDropGroup(Value : String); begin + FDropGroup := Value; + JSCode('dropGroup:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFEnableDrag(Value : Boolean); begin + FEnableDrag := Value; + JSCode('enableDrag:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFEnableDrop(Value : Boolean); begin + FEnableDrop := Value; + JSCode('enableDrop:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFExpandDelay(Value : String); begin + FExpandDelay := Value; + JSCode('expandDelay:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightColor(Value : String); begin + FNodeHighlightColor := Value; + JSCode('nodeHighlightColor:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightOnDrop(Value : Boolean); begin + FNodeHighlightOnDrop := Value; + JSCode('nodeHighlightOnDrop:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightOnRepair(Value : Boolean); begin + FNodeHighlightOnRepair := Value; + JSCode('nodeHighlightOnRepair:' + VarToJSON([Value])); +end; + +procedure TExtTreePluginTreeViewDragDrop.SetFSortOnDrop(Value : Boolean); begin + FSortOnDrop := Value; + JSCode('sortOnDrop:' + VarToJSON([Value])); +end; + +function TExtTreePluginTreeViewDragDrop.JSClassName : string; begin + Result := 'Ext.tree.plugin.TreeViewDragDrop'; +end; + +procedure TExtTreePluginTreeViewDragDrop.InitDefaults; begin + inherited; + FContainerScroll := TExtObject.CreateInternal(Self, 'containerScroll'); +end; + +{$IFDEF FPC}constructor TExtTreePluginTreeViewDragDrop.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtTreePluginTreeViewDragDrop.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtTreePluginTreeViewDragDrop.Destroy; begin + try + FContainerScroll.Free; + except end; + inherited; +end; + procedure TExtProgressBar.SetFAnimate(Value : Boolean); begin FAnimate := Value; JSCode('animate:' + VarToJSON([Value])); end; -procedure TExtProgressBar.SetFAnimateTExtObject(Value : TExtObject); begin - FAnimateTExtObject := Value; +procedure TExtProgressBar.SetFAnimateObject(Value : TExtObject); begin + FAnimateObject := Value; Value.DeleteFromGarbage; JSCode('animate:' + VarToJSON([Value, false])); end; @@ -33147,8 +33192,8 @@ procedure TExtProgressBar.SetFTextEl(Value : String); begin JSCode('textEl:' + VarToJSON([Value])); end; -procedure TExtProgressBar.SetFTextElTExtElement(Value : TExtElement); begin - FTextElTExtElement := Value; +procedure TExtProgressBar.SetFTextElElement(Value : TExtElement); begin + FTextElElement := Value; Value.DeleteFromGarbage; JSCode('textEl:' + VarToJSON([Value, false])); end; @@ -33178,8 +33223,8 @@ function TExtProgressBar.JSClassName : string; begin procedure TExtProgressBar.InitDefaults; begin inherited; - FAnimateTExtObject := TExtObject.CreateInternal(Self, 'animate'); - FTextElTExtElement := TExtElement.CreateInternal(Self, 'textEl'); + FAnimateObject := TExtObject.CreateInternal(Self, 'animate'); + FTextElElement := TExtElement.CreateInternal(Self, 'textEl'); end; {$IFDEF FPC}constructor TExtProgressBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -33216,8 +33261,8 @@ function TExtProgressBar.Wait(Config : TExtObject = nil; ConfigDuration : Intege destructor TExtProgressBar.Destroy; begin try - FAnimateTExtObject.Free; - FTextElTExtElement.Free; + FAnimateObject.Free; + FTextElElement.Free; except end; inherited; end; @@ -33379,132 +33424,11 @@ destructor TExtDataProxyServer.Destroy; begin inherited; end; -function TExtAppDomainStoreSingleton.JSClassName : string; begin - Result := 'Ext.app.domain.Store'; -end; - -{$IFDEF FPC}constructor TExtAppDomainStoreSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtTreePluginTreeViewDragDrop.SetFAllowContainerDrops(Value : Boolean); begin - FAllowContainerDrops := Value; - JSCode('allowContainerDrops:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFAllowParentInserts(Value : Boolean); begin - FAllowParentInserts := Value; - JSCode('allowParentInserts:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFAppendOnly(Value : Boolean); begin - FAppendOnly := Value; - JSCode('appendOnly:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFContainerScroll(Value : TExtObject); begin - FContainerScroll := Value; - Value.DeleteFromGarbage; - JSCode('containerScroll:' + VarToJSON([Value, false])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFContainerScrollBoolean(Value : Boolean); begin - FContainerScrollBoolean := Value; - JSCode('containerScroll:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFDdGroup(Value : String); begin - FDdGroup := Value; - JSCode('ddGroup:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFDisplayField(Value : String); begin - FDisplayField := Value; - JSCode('displayField:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFDropGroup(Value : String); begin - FDropGroup := Value; - JSCode('dropGroup:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFEnableDrag(Value : Boolean); begin - FEnableDrag := Value; - JSCode('enableDrag:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFEnableDrop(Value : Boolean); begin - FEnableDrop := Value; - JSCode('enableDrop:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFExpandDelay(Value : String); begin - FExpandDelay := Value; - JSCode('expandDelay:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightColor(Value : String); begin - FNodeHighlightColor := Value; - JSCode('nodeHighlightColor:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightOnDrop(Value : Boolean); begin - FNodeHighlightOnDrop := Value; - JSCode('nodeHighlightOnDrop:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFNodeHighlightOnRepair(Value : Boolean); begin - FNodeHighlightOnRepair := Value; - JSCode('nodeHighlightOnRepair:' + VarToJSON([Value])); -end; - -procedure TExtTreePluginTreeViewDragDrop.SetFSortOnDrop(Value : Boolean); begin - FSortOnDrop := Value; - JSCode('sortOnDrop:' + VarToJSON([Value])); -end; - -function TExtTreePluginTreeViewDragDrop.JSClassName : string; begin - Result := 'Ext.tree.plugin.TreeViewDragDrop'; -end; - -procedure TExtTreePluginTreeViewDragDrop.InitDefaults; begin - inherited; - FContainerScroll := TExtObject.CreateInternal(Self, 'containerScroll'); -end; - -{$IFDEF FPC}constructor TExtTreePluginTreeViewDragDrop.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtTreePluginTreeViewDragDrop.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtTreePluginTreeViewDragDrop.Destroy; begin - try - FContainerScroll.Free; - except end; - inherited; -end; - -procedure TExtToolbarFill.SetFIsFill(Value : Boolean); begin - FIsFill := Value; - JSCode(JSName + '.isFill=' + VarToJSON([Value]) + ';'); -end; - -function TExtToolbarFill.JSClassName : string; begin - Result := 'Ext.toolbar.Fill'; -end; - -{$IFDEF FPC}constructor TExtToolbarFill.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtToolbarItem.SetFOverflowText(Value : String); begin - FOverflowText := Value; - JSCode('overflowText:' + VarToJSON([Value])); -end; - -function TExtToolbarItem.JSClassName : string; begin - Result := 'Ext.toolbar.Item'; +function TExtDataReader.JSClassName : string; begin + Result := 'Ext.data.reader.Reader'; end; -{$IFDEF FPC}constructor TExtToolbarItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtDataReader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtPickerDate.SetFAriaTitle(Value : String); begin FAriaTitle := Value; @@ -33794,6 +33718,12 @@ procedure TExtPickerDate.HandleEvent(const AEvtName : string); begin FOnSelect(TExtPickerDate(ParamAsObject('This')), ParamAsTDateTime('Date')); end; +function TExtToolbarSpacer.JSClassName : string; begin + Result := 'Ext.toolbar.Spacer'; +end; + +{$IFDEF FPC}constructor TExtToolbarSpacer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtPickerMonth.SetFBaseCls(Value : String); begin FBaseCls := Value; JSCode('baseCls:' + VarToJSON([Value])); @@ -33929,22 +33859,46 @@ procedure TExtPickerMonth.HandleEvent(const AEvtName : string); begin FOnYeardblclick(TExtPickerMonth(ParamAsObject('This')), TExtObjectList(ParamAsObject('Value'))); end; -function TExtPluginManagerSingleton.JSClassName : string; begin - Result := 'Ext.PluginManager'; +procedure TExtFormLabel.SetFForId(Value : String); begin + FForId := Value; + JSCode('forId:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtPluginManagerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtFormLabel.SetFHtml(Value : String); begin + FHtml := Value; + JSCode('html:' + VarToJSON([Value])); +end; -constructor TExtPluginManagerSingleton.Create(Config : TExtObject; DefaultType : TExtFunction = nil); begin - CreateVarAlt(JSClassName + '.create(' + VarToJSON([Config, false, DefaultType, true]) + ');'); - InitDefaults; +procedure TExtFormLabel.SetFText(Value : String); begin + FText := Value; + if not ConfigAvailable(JSName) then + SetText(Value) + else + JSCode('text:' + VarToJSON([Value])); end; -function TExtPluginManagerSingleton.FindByType(TypeJS : String; DefaultsOnly : Boolean) : TExtFunction; begin - JSCode(JSName + '.findByType(' + VarToJSON([TypeJS, DefaultsOnly]) + ');', 'TExtPluginManagerSingleton'); +function TExtFormLabel.JSClassName : string; begin + Result := 'Ext.form.Label'; +end; + +{$IFDEF FPC}constructor TExtFormLabel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFormLabel.SetText(Text : String; Encode : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.setText(' + VarToJSON([Text, Encode]) + ');', 'TExtFormLabel'); Result := Self; end; +procedure TExtToolbarItem.SetFOverflowText(Value : String); begin + FOverflowText := Value; + JSCode('overflowText:' + VarToJSON([Value])); +end; + +function TExtToolbarItem.JSClassName : string; begin + Result := 'Ext.toolbar.Item'; +end; + +{$IFDEF FPC}constructor TExtToolbarItem.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtPickerColor.SetFAllowReselect(Value : Boolean); begin FAllowReselect := Value; JSCode('allowReselect:' + VarToJSON([Value])); @@ -34033,23 +33987,11 @@ procedure TExtPickerColor.HandleEvent(const AEvtName : string); begin FOnSelect(TExtPickerColor(ParamAsObject('This')), ParamAsString('Color')); end; -function TExtToolbarSpacer.JSClassName : string; begin - Result := 'Ext.toolbar.Spacer'; -end; - -{$IFDEF FPC}constructor TExtToolbarSpacer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDataReader.JSClassName : string; begin - Result := 'Ext.data.reader.Reader'; -end; - -{$IFDEF FPC}constructor TExtDataReader.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtFxTargetElement.JSClassName : string; begin - Result := 'Ext.fx.target.Element'; +function TExtAppDomainComponentSingleton.JSClassName : string; begin + Result := 'Ext.app.domain.Component'; end; -{$IFDEF FPC}constructor TExtFxTargetElement.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtAppDomainComponentSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtPanelTool.SetFHandler(Value : TExtFunction); begin FHandler := Value; @@ -34072,8 +34014,8 @@ procedure TExtPanelTool.SetFTooltip(Value : String); begin JSCode('tooltip:' + VarToJSON([Value])); end; -procedure TExtPanelTool.SetFTooltipTExtObject(Value : TExtObject); begin - FTooltipTExtObject := Value; +procedure TExtPanelTool.SetFTooltipObject(Value : TExtObject); begin + FTooltipObject := Value; Value.DeleteFromGarbage; JSCode('tooltip:' + VarToJSON([Value, false])); end; @@ -34103,7 +34045,7 @@ function TExtPanelTool.JSClassName : string; begin procedure TExtPanelTool.InitDefaults; begin inherited; FScope := TExtObject.CreateInternal(Self, 'scope'); - FTooltipTExtObject := TExtObject.CreateInternal(Self, 'tooltip'); + FTooltipObject := TExtObject.CreateInternal(Self, 'tooltip'); end; {$IFDEF FPC}constructor TExtPanelTool.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -34121,7 +34063,7 @@ function TExtPanelTool.SetType(TypeJS : String) : TExtFunction; begin destructor TExtPanelTool.Destroy; begin try FScope.Free; - FTooltipTExtObject.Free; + FTooltipObject.Free; except end; inherited; end; @@ -34132,23 +34074,11 @@ procedure TExtPanelTool.HandleEvent(const AEvtName : string); begin FOnClick(TExtPanelTool(ParamAsObject('This')), TExtEventObject(ParamAsObject('E'))); end; -function TExtAppDomainComponentSingleton.JSClassName : string; begin - Result := 'Ext.app.domain.Component'; -end; - -{$IFDEF FPC}constructor TExtAppDomainComponentSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtXTemplateCompiler.JSClassName : string; begin - Result := 'Ext.XTemplateCompiler'; -end; - -{$IFDEF FPC}constructor TExtXTemplateCompiler.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtResizerHandle.JSClassName : string; begin - Result := 'Ext.resizer.Handle'; +function TExtAppDomainControllerSingleton.JSClassName : string; begin + Result := 'Ext.app.domain.Controller'; end; -{$IFDEF FPC}constructor TExtResizerHandle.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtAppDomainControllerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtUtilClickRepeater.SetFAccelerate(Value : Boolean); begin FAccelerate := Value; @@ -34165,8 +34095,8 @@ procedure TExtUtilClickRepeater.SetFEl(Value : String); begin JSCode('el:' + VarToJSON([Value])); end; -procedure TExtUtilClickRepeater.SetFElTExtElement(Value : TExtElement); begin - FElTExtElement := Value; +procedure TExtUtilClickRepeater.SetFElElement(Value : TExtElement); begin + FElElement := Value; Value.DeleteFromGarbage; JSCode('el:' + VarToJSON([Value, false])); end; @@ -34203,7 +34133,7 @@ function TExtUtilClickRepeater.JSClassName : string; begin procedure TExtUtilClickRepeater.InitDefaults; begin inherited; - FElTExtElement := TExtElement.CreateInternal(Self, 'el'); + FElElement := TExtElement.CreateInternal(Self, 'el'); end; {$IFDEF FPC}constructor TExtUtilClickRepeater.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -34230,16 +34160,39 @@ function TExtUtilClickRepeater.SetDisabled(Disabled : Boolean) : TExtFunction; b destructor TExtUtilClickRepeater.Destroy; begin try - FElTExtElement.Free; + FElElement.Free; except end; inherited; end; -function TExtAppDomainControllerSingleton.JSClassName : string; begin - Result := 'Ext.app.domain.Controller'; +function TExtXTemplateCompiler.JSClassName : string; begin + Result := 'Ext.XTemplateCompiler'; end; -{$IFDEF FPC}constructor TExtAppDomainControllerSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtXTemplateCompiler.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFxTargetElement.JSClassName : string; begin + Result := 'Ext.fx.target.Element'; +end; + +{$IFDEF FPC}constructor TExtFxTargetElement.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFxTargetComponent.JSClassName : string; begin + Result := 'Ext.fx.target.Component'; +end; + +{$IFDEF FPC}constructor TExtFxTargetComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtUtilGrouper.JSClassName : string; begin + Result := 'Ext.util.Grouper'; +end; + +{$IFDEF FPC}constructor TExtUtilGrouper.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtUtilGrouper.GetGroupString(Instance : TExtDataModel) : TExtFunction; begin + JSCode(JSName + '.getGroupString(' + VarToJSON([Instance, false]) + ');', 'TExtUtilGrouper'); + Result := Self; +end; function TExtAppDomainGlobalSingleton.JSClassName : string; begin Result := 'Ext.app.domain.Global'; @@ -34253,19 +34206,13 @@ function TExtAppDomainDirectSingleton.JSClassName : string; begin {$IFDEF FPC}constructor TExtAppDomainDirectSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtFxTargetComponent.JSClassName : string; begin - Result := 'Ext.fx.target.Component'; -end; - -{$IFDEF FPC}constructor TExtFxTargetComponent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtXTemplate.SetFDefinitions(Value : String); begin FDefinitions := Value; JSCode('definitions:' + VarToJSON([Value])); end; -procedure TExtXTemplate.SetFDefinitionsTExtObjectList(Value : TExtObjectList); begin - FDefinitionsTExtObjectList := Value; +procedure TExtXTemplate.SetFDefinitionsList(Value : TExtObjectList); begin + FDefinitionsList := Value; Value.DeleteFromGarbage; JSCode('definitions:' + VarToJSON([Value, false])); end; @@ -34276,7 +34223,7 @@ function TExtXTemplate.JSClassName : string; begin procedure TExtXTemplate.InitDefaults; begin inherited; - FDefinitionsTExtObjectList := TExtObjectList.Create(Self, 'definitions'); + FDefinitionsList := TExtObjectList.Create(Self, 'definitions'); end; {$IFDEF FPC}constructor TExtXTemplate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -34293,7 +34240,7 @@ constructor TExtXTemplate.Create; begin destructor TExtXTemplate.Destroy; begin try - FDefinitionsTExtObjectList.Free; + FDefinitionsList.Free; except end; inherited; end; @@ -34303,17 +34250,17 @@ procedure TExtLayoutContainerBorder.SetFPadding(Value : Integer); begin JSCode('padding:' + VarToJSON([Value])); end; +procedure TExtLayoutContainerBorder.SetFPaddingObject(Value : TExtObject); begin + FPaddingObject := Value; + Value.DeleteFromGarbage; + JSCode('padding:' + VarToJSON([Value, false])); +end; + procedure TExtLayoutContainerBorder.SetFPaddingString(Value : String); begin FPaddingString := Value; JSCode('padding:' + VarToJSON([Value])); end; -procedure TExtLayoutContainerBorder.SetFPaddingTExtObject(Value : TExtObject); begin - FPaddingTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('padding:' + VarToJSON([Value, false])); -end; - procedure TExtLayoutContainerBorder.SetFRegionWeights(Value : TExtObject); begin FRegionWeights := Value; Value.DeleteFromGarbage; @@ -34336,7 +34283,7 @@ function TExtLayoutContainerBorder.JSClassName : string; begin procedure TExtLayoutContainerBorder.InitDefaults; begin inherited; - FPaddingTExtObject := TExtObject.CreateInternal(Self, 'padding'); + FPaddingObject := TExtObject.CreateInternal(Self, 'padding'); FRegionWeights := TExtObject.CreateInternal(Self, 'regionWeights'); end; @@ -34349,7 +34296,7 @@ constructor TExtLayoutContainerBorder.Create; begin destructor TExtLayoutContainerBorder.Destroy; begin try - FPaddingTExtObject.Free; + FPaddingObject.Free; FRegionWeights.Free; except end; inherited; @@ -34397,6 +34344,12 @@ destructor TExtChartSeriesScatter.Destroy; begin inherited; end; +function TExtChartTipSurface.JSClassName : string; begin + Result := 'Ext.chart.TipSurface'; +end; + +{$IFDEF FPC}constructor TExtChartTipSurface.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtLayoutContainerBox.SetFDefaultMargins(Value : TExtObject); begin FDefaultMargins := Value; Value.DeleteFromGarbage; @@ -34423,8 +34376,8 @@ procedure TExtLayoutContainerBox.SetFStretchMaxPartner(Value : String); begin JSCode('stretchMaxPartner:' + VarToJSON([Value])); end; -procedure TExtLayoutContainerBox.SetFStretchMaxPartnerTExtComponent(Value : TExtComponent); begin - FStretchMaxPartnerTExtComponent := Value; +procedure TExtLayoutContainerBox.SetFStretchMaxPartnerComponent(Value : TExtComponent); begin + FStretchMaxPartnerComponent := Value; Value.DeleteFromGarbage; JSCode('stretchMaxPartner:' + VarToJSON([Value, false])); end; @@ -34436,7 +34389,7 @@ function TExtLayoutContainerBox.JSClassName : string; begin procedure TExtLayoutContainerBox.InitDefaults; begin inherited; FDefaultMargins := TExtObject.CreateInternal(Self, 'defaultMargins'); - FStretchMaxPartnerTExtComponent := TExtComponent.CreateInternal(Self, 'stretchMaxPartner'); + FStretchMaxPartnerComponent := TExtComponent.CreateInternal(Self, 'stretchMaxPartner'); end; {$IFDEF FPC}constructor TExtLayoutContainerBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -34449,17 +34402,11 @@ constructor TExtLayoutContainerBox.Create; begin destructor TExtLayoutContainerBox.Destroy; begin try FDefaultMargins.Free; - FStretchMaxPartnerTExtComponent.Free; + FStretchMaxPartnerComponent.Free; except end; inherited; end; -function TExtChartTipSurface.JSClassName : string; begin - Result := 'Ext.chart.TipSurface'; -end; - -{$IFDEF FPC}constructor TExtChartTipSurface.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtLayoutContainerTable.SetFColumns(Value : Integer); begin FColumns := Value; JSCode('columns:' + VarToJSON([Value])); @@ -34559,6 +34506,12 @@ function TExtDataErrors.IsValid : TExtFunction; begin Result := Self; end; +function TExtResizerBorderSplitterTracker.JSClassName : string; begin + Result := 'Ext.resizer.BorderSplitterTracker'; +end; + +{$IFDEF FPC}constructor TExtResizerBorderSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtMenuCheckItem.SetFCheckChangeDisabled(Value : Boolean); begin FCheckChangeDisabled := Value; JSCode('checkChangeDisabled:' + VarToJSON([Value])); @@ -34671,12 +34624,6 @@ procedure TExtMenuCheckItem.HandleEvent(const AEvtName : string); begin FOnCheckchange(TExtMenuCheckItem(ParamAsObject('This')), ParamAsBoolean('Checked')); end; -function TExtResizerBorderSplitterTracker.JSClassName : string; begin - Result := 'Ext.resizer.BorderSplitterTracker'; -end; - -{$IFDEF FPC}constructor TExtResizerBorderSplitterTracker.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtLayoutContainerCheckboxGroup.SetFAutoFlex(Value : Boolean); begin FAutoFlex := Value; JSCode('autoFlex:' + VarToJSON([Value])); @@ -34783,8 +34730,8 @@ procedure TExtChartSeriesBar.SetFXPadding(Value : Integer); begin JSCode('xPadding:' + VarToJSON([Value])); end; -procedure TExtChartSeriesBar.SetFXPaddingTExtObject(Value : TExtObject); begin - FXPaddingTExtObject := Value; +procedure TExtChartSeriesBar.SetFXPaddingObject(Value : TExtObject); begin + FXPaddingObject := Value; Value.DeleteFromGarbage; JSCode('xPadding:' + VarToJSON([Value, false])); end; @@ -34794,8 +34741,8 @@ procedure TExtChartSeriesBar.SetFYPadding(Value : Integer); begin JSCode('yPadding:' + VarToJSON([Value])); end; -procedure TExtChartSeriesBar.SetFYPaddingTExtObject(Value : TExtObject); begin - FYPaddingTExtObject := Value; +procedure TExtChartSeriesBar.SetFYPaddingObject(Value : TExtObject); begin + FYPaddingObject := Value; Value.DeleteFromGarbage; JSCode('yPadding:' + VarToJSON([Value, false])); end; @@ -34806,8 +34753,8 @@ function TExtChartSeriesBar.JSClassName : string; begin procedure TExtChartSeriesBar.InitDefaults; begin inherited; - FXPaddingTExtObject := TExtObject.CreateInternal(Self, 'xPadding'); - FYPaddingTExtObject := TExtObject.CreateInternal(Self, 'yPadding'); + FXPaddingObject := TExtObject.CreateInternal(Self, 'xPadding'); + FYPaddingObject := TExtObject.CreateInternal(Self, 'yPadding'); end; {$IFDEF FPC}constructor TExtChartSeriesBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -34829,8 +34776,8 @@ function TExtChartSeriesBar.GetLegendColor : TExtFunction; begin destructor TExtChartSeriesBar.Destroy; begin try - FXPaddingTExtObject.Free; - FYPaddingTExtObject.Free; + FXPaddingObject.Free; + FYPaddingObject.Free; except end; inherited; end; @@ -34937,11 +34884,49 @@ function TExtLayoutContainerEditor.JSClassName : string; begin {$IFDEF FPC}constructor TExtLayoutContainerEditor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtToolbarSeparator.JSClassName : string; begin - Result := 'Ext.toolbar.Separator'; +procedure TExtDataReaderJson.SetFJsonData(Value : TExtObject); begin + FJsonData := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.jsonData=' + VarToJSON([Value, false]) + ';'); end; -{$IFDEF FPC}constructor TExtToolbarSeparator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtDataReaderJson.SetFMetaProperty(Value : String); begin + FMetaProperty := Value; + JSCode('metaProperty:' + VarToJSON([Value])); +end; + +procedure TExtDataReaderJson.SetFRecordJS(Value : String); begin + FRecordJS := Value; + JSCode('recordJS:' + VarToJSON([Value])); +end; + +procedure TExtDataReaderJson.SetFUseSimpleAccessors(Value : Boolean); begin + FUseSimpleAccessors := Value; + JSCode('useSimpleAccessors:' + VarToJSON([Value])); +end; + +function TExtDataReaderJson.JSClassName : string; begin + Result := 'Ext.data.reader.Json'; +end; + +procedure TExtDataReaderJson.InitDefaults; begin + inherited; + FJsonData := TExtObject.CreateInternal(Self, 'jsonData'); +end; + +{$IFDEF FPC}constructor TExtDataReaderJson.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDataReaderJson.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtDataReaderJson.Destroy; begin + try + FJsonData.Free; + except end; + inherited; +end; procedure TExtDataProxyWebStorage.SetFCache(Value : TExtObject); begin FCache := Value; @@ -34987,16 +34972,45 @@ destructor TExtDataProxyWebStorage.Destroy; begin inherited; end; -procedure TExtFxTargetCompositeElement.SetFIsComposite(Value : Boolean); begin - FIsComposite := Value; - JSCode(JSName + '.isComposite=' + VarToJSON([Value]) + ';'); +procedure TExtDrawText.SetFDegrees(Value : Integer); begin + FDegrees := Value; + JSCode('degrees:' + VarToJSON([Value])); end; -function TExtFxTargetCompositeElement.JSClassName : string; begin - Result := 'Ext.fx.target.CompositeElement'; +procedure TExtDrawText.SetFStyleSelector(Value : String); begin + FStyleSelector := Value; + JSCode('styleSelector:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtFxTargetCompositeElement.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtDrawText.SetFText(Value : String); begin + FText := Value; + if not ConfigAvailable(JSName) then + SetText(Value) + else + JSCode('text:' + VarToJSON([Value])); +end; + +function TExtDrawText.JSClassName : string; begin + Result := 'Ext.draw.Text'; +end; + +{$IFDEF FPC}constructor TExtDrawText.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtDrawText.SetAngle(Degrees : Integer) : TExtFunction; begin + JSCode(JSName + '.setAngle(' + VarToJSON([Degrees]) + ');', 'TExtDrawText'); + Result := Self; +end; + +function TExtDrawText.SetText(T : String) : TExtFunction; begin + JSCode(JSName + '.setText(' + VarToJSON([T]) + ');', 'TExtDrawText'); + Result := Self; +end; + +function TExtToolbarSeparator.JSClassName : string; begin + Result := 'Ext.toolbar.Separator'; +end; + +{$IFDEF FPC}constructor TExtToolbarSeparator.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtFormRadioManagerSingleton.JSClassName : string; begin Result := 'Ext.form.RadioManager'; @@ -35043,83 +35057,16 @@ destructor TExtDataReaderXml.Destroy; begin inherited; end; -procedure TExtDataReaderJson.SetFJsonData(Value : TExtObject); begin - FJsonData := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.jsonData=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtDataReaderJson.SetFMetaProperty(Value : String); begin - FMetaProperty := Value; - JSCode('metaProperty:' + VarToJSON([Value])); -end; - -procedure TExtDataReaderJson.SetFRecordJS(Value : String); begin - FRecordJS := Value; - JSCode('recordJS:' + VarToJSON([Value])); -end; - -procedure TExtDataReaderJson.SetFUseSimpleAccessors(Value : Boolean); begin - FUseSimpleAccessors := Value; - JSCode('useSimpleAccessors:' + VarToJSON([Value])); -end; - -function TExtDataReaderJson.JSClassName : string; begin - Result := 'Ext.data.reader.Json'; -end; - -procedure TExtDataReaderJson.InitDefaults; begin - inherited; - FJsonData := TExtObject.CreateInternal(Self, 'jsonData'); -end; - -{$IFDEF FPC}constructor TExtDataReaderJson.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDataReaderJson.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtDataReaderJson.Destroy; begin - try - FJsonData.Free; - except end; - inherited; -end; - -procedure TExtDrawText.SetFDegrees(Value : Integer); begin - FDegrees := Value; - JSCode('degrees:' + VarToJSON([Value])); -end; - -procedure TExtDrawText.SetFStyleSelector(Value : String); begin - FStyleSelector := Value; - JSCode('styleSelector:' + VarToJSON([Value])); -end; - -procedure TExtDrawText.SetFText(Value : String); begin - FText := Value; - if not ConfigAvailable(JSName) then - SetText(Value) - else - JSCode('text:' + VarToJSON([Value])); -end; - -function TExtDrawText.JSClassName : string; begin - Result := 'Ext.draw.Text'; +procedure TExtFxTargetCompositeElement.SetFIsComposite(Value : Boolean); begin + FIsComposite := Value; + JSCode(JSName + '.isComposite=' + VarToJSON([Value]) + ';'); end; -{$IFDEF FPC}constructor TExtDrawText.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtDrawText.SetAngle(Degrees : Integer) : TExtFunction; begin - JSCode(JSName + '.setAngle(' + VarToJSON([Degrees]) + ');', 'TExtDrawText'); - Result := Self; +function TExtFxTargetCompositeElement.JSClassName : string; begin + Result := 'Ext.fx.target.CompositeElement'; end; -function TExtDrawText.SetText(T : String) : TExtFunction; begin - JSCode(JSName + '.setText(' + VarToJSON([T]) + ');', 'TExtDrawText'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtFxTargetCompositeElement.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtDataProxyMemory.SetFData(Value : TExtObject); begin FData := Value; @@ -35403,14 +35350,14 @@ procedure TExtDataTreeStore.SetFRoot(Value : TExtDataModel); begin JSCode('root:' + VarToJSON([Value, false])); end; -procedure TExtDataTreeStore.SetFRootTExtDataNodeInterface(Value : TExtDataNodeInterface); begin - FRootTExtDataNodeInterface := Value; +procedure TExtDataTreeStore.SetFRootInterface(Value : TExtDataNodeInterface); begin + FRootInterface := Value; Value.DeleteFromGarbage; JSCode('root:' + VarToJSON([Value, false])); end; -procedure TExtDataTreeStore.SetFRootTExtObject(Value : TExtObject); begin - FRootTExtObject := Value; +procedure TExtDataTreeStore.SetFRootObject(Value : TExtObject); begin + FRootObject := Value; Value.DeleteFromGarbage; JSCode('root:' + VarToJSON([Value, false])); end; @@ -35534,8 +35481,8 @@ function TExtDataTreeStore.JSClassName : string; begin procedure TExtDataTreeStore.InitDefaults; begin inherited; FRoot := TExtDataModel.CreateInternal(Self, 'root'); - FRootTExtDataNodeInterface := TExtDataNodeInterface.CreateInternal(Self, 'root'); - FRootTExtObject := TExtObject.CreateInternal(Self, 'root'); + FRootInterface := TExtDataNodeInterface.CreateInternal(Self, 'root'); + FRootObject := TExtObject.CreateInternal(Self, 'root'); end; {$IFDEF FPC}constructor TExtDataTreeStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -35548,8 +35495,8 @@ constructor TExtDataTreeStore.Create; begin destructor TExtDataTreeStore.Destroy; begin try FRoot.Free; - FRootTExtDataNodeInterface.Free; - FRootTExtObject.Free; + FRootInterface.Free; + FRootObject.Free; except end; inherited; end; @@ -35645,14 +35592,14 @@ procedure TExtDataStore.SetFData_(Value : TExtObjectList); begin JSCode(JSName + '.data=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtDataStore.SetFData_TExtDataStorePageMap(Value : TExtDataStorePageMap); begin - FData_TExtDataStorePageMap := Value; +procedure TExtDataStore.SetFData_Map(Value : TExtDataStorePageMap); begin + FData_Map := Value; Value.DeleteFromGarbage; JSCode(JSName + '.data=' + VarToJSON([Value, false]) + ';'); end; -procedure TExtDataStore.SetFDataTExtObjectList(Value : TExtObjectList); begin - FDataTExtObjectList := Value; +procedure TExtDataStore.SetFDataList(Value : TExtObjectList); begin + FDataList := Value; Value.DeleteFromGarbage; JSCode('data:' + VarToJSON([Value, false])); end; @@ -35688,14 +35635,14 @@ procedure TExtDataStore.SetFProxy(Value : String); begin JSCode('proxy:' + VarToJSON([Value])); end; -procedure TExtDataStore.SetFProxyTExtDataProxy(Value : TExtDataProxy); begin - FProxyTExtDataProxy := Value; +procedure TExtDataStore.SetFProxyObject(Value : TExtObject); begin + FProxyObject := Value; Value.DeleteFromGarbage; JSCode('proxy:' + VarToJSON([Value, false])); end; -procedure TExtDataStore.SetFProxyTExtObject(Value : TExtObject); begin - FProxyTExtObject := Value; +procedure TExtDataStore.SetFProxyProxy(Value : TExtDataProxy); begin + FProxyProxy := Value; Value.DeleteFromGarbage; JSCode('proxy:' + VarToJSON([Value, false])); end; @@ -35738,12 +35685,12 @@ procedure TExtDataStore.InitDefaults; begin inherited; FData := TExtObjectList.Create(Self, 'data'); FData_ := TExtObjectList.Create(Self, 'data'); - FData_TExtDataStorePageMap := TExtDataStorePageMap.CreateInternal(Self, 'data'); - FDataTExtObjectList := TExtObjectList.Create(Self, 'data'); + FData_Map := TExtDataStorePageMap.CreateInternal(Self, 'data'); + FDataList := TExtObjectList.Create(Self, 'data'); FGroupers := TExtObjectList.Create(Self, 'groupers'); FPageSize := 25; - FProxyTExtDataProxy := TExtDataProxy.CreateInternal(Self, 'proxy'); - FProxyTExtObject := TExtObject.CreateInternal(Self, 'proxy'); + FProxyObject := TExtObject.CreateInternal(Self, 'proxy'); + FProxyProxy := TExtDataProxy.CreateInternal(Self, 'proxy'); end; {$IFDEF FPC}constructor TExtDataStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -36022,11 +35969,11 @@ destructor TExtDataStore.Destroy; begin try FData.Free; FData_.Free; - FData_TExtDataStorePageMap.Free; - FDataTExtObjectList.Free; + FData_Map.Free; + FDataList.Free; FGroupers.Free; - FProxyTExtDataProxy.Free; - FProxyTExtObject.Free; + FProxyObject.Free; + FProxyProxy.Free; except end; inherited; end; @@ -36287,14 +36234,14 @@ procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTextTpl(Value : String); begin JSCode('afterBoxLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FAfterBoxLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTextTplList(Value : TExtObjectList); begin + FAfterBoxLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('afterBoxLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterBoxLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTextTplTemplate(Value : TExtXTemplate); begin + FAfterBoxLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterBoxLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -36304,14 +36251,14 @@ procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTpl(Value : String); begin JSCode('afterBoxLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTplTExtObjectList(Value : TExtObjectList); begin - FAfterBoxLabelTplTExtObjectList := Value; +procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTplList(Value : TExtObjectList); begin + FAfterBoxLabelTplList := Value; Value.DeleteFromGarbage; JSCode('afterBoxLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterBoxLabelTplTExtXTemplate := Value; +procedure TExtFormFieldCheckbox.SetFAfterBoxLabelTplTemplate(Value : TExtXTemplate); begin + FAfterBoxLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterBoxLabelTpl:' + VarToJSON([Value, false])); end; @@ -36321,14 +36268,14 @@ procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTextTpl(Value : String); begin JSCode('beforeBoxLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FBeforeBoxLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTextTplList(Value : TExtObjectList); begin + FBeforeBoxLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('beforeBoxLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeBoxLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTextTplTemplate(Value : TExtXTemplate); begin + FBeforeBoxLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeBoxLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -36338,14 +36285,14 @@ procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTpl(Value : String); begin JSCode('beforeBoxLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTplTExtObjectList(Value : TExtObjectList); begin - FBeforeBoxLabelTplTExtObjectList := Value; +procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTplList(Value : TExtObjectList); begin + FBeforeBoxLabelTplList := Value; Value.DeleteFromGarbage; JSCode('beforeBoxLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeBoxLabelTplTExtXTemplate := Value; +procedure TExtFormFieldCheckbox.SetFBeforeBoxLabelTplTemplate(Value : TExtXTemplate); begin + FBeforeBoxLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeBoxLabelTpl:' + VarToJSON([Value, false])); end; @@ -36368,14 +36315,14 @@ procedure TExtFormFieldCheckbox.SetFBoxLabelAttrTpl(Value : String); begin JSCode('boxLabelAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldCheckbox.SetFBoxLabelAttrTplTExtObjectList(Value : TExtObjectList); begin - FBoxLabelAttrTplTExtObjectList := Value; +procedure TExtFormFieldCheckbox.SetFBoxLabelAttrTplList(Value : TExtObjectList); begin + FBoxLabelAttrTplList := Value; Value.DeleteFromGarbage; JSCode('boxLabelAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldCheckbox.SetFBoxLabelAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FBoxLabelAttrTplTExtXTemplate := Value; +procedure TExtFormFieldCheckbox.SetFBoxLabelAttrTplTemplate(Value : TExtXTemplate); begin + FBoxLabelAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('boxLabelAttrTpl:' + VarToJSON([Value, false])); end; @@ -36443,16 +36390,16 @@ function TExtFormFieldCheckbox.JSClassName : string; begin procedure TExtFormFieldCheckbox.InitDefaults; begin inherited; - FAfterBoxLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'afterBoxLabelTextTpl'); - FAfterBoxLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterBoxLabelTextTpl'); - FAfterBoxLabelTplTExtObjectList := TExtObjectList.Create(Self, 'afterBoxLabelTpl'); - FAfterBoxLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterBoxLabelTpl'); - FBeforeBoxLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'beforeBoxLabelTextTpl'); - FBeforeBoxLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBoxLabelTextTpl'); - FBeforeBoxLabelTplTExtObjectList := TExtObjectList.Create(Self, 'beforeBoxLabelTpl'); - FBeforeBoxLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBoxLabelTpl'); - FBoxLabelAttrTplTExtObjectList := TExtObjectList.Create(Self, 'boxLabelAttrTpl'); - FBoxLabelAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'boxLabelAttrTpl'); + FAfterBoxLabelTextTplList := TExtObjectList.Create(Self, 'afterBoxLabelTextTpl'); + FAfterBoxLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterBoxLabelTextTpl'); + FAfterBoxLabelTplList := TExtObjectList.Create(Self, 'afterBoxLabelTpl'); + FAfterBoxLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterBoxLabelTpl'); + FBeforeBoxLabelTextTplList := TExtObjectList.Create(Self, 'beforeBoxLabelTextTpl'); + FBeforeBoxLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBoxLabelTextTpl'); + FBeforeBoxLabelTplList := TExtObjectList.Create(Self, 'beforeBoxLabelTpl'); + FBeforeBoxLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBoxLabelTpl'); + FBoxLabelAttrTplList := TExtObjectList.Create(Self, 'boxLabelAttrTpl'); + FBoxLabelAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'boxLabelAttrTpl'); FOriginalValue := TExtObject.CreateInternal(Self, 'originalValue'); FScope := TExtObject.CreateInternal(Self, 'scope'); end; @@ -36496,16 +36443,16 @@ function TExtFormFieldCheckbox.SetValue(Checked : Boolean) : TExtFunction; begin destructor TExtFormFieldCheckbox.Destroy; begin try - FAfterBoxLabelTextTplTExtObjectList.Free; - FAfterBoxLabelTextTplTExtXTemplate.Free; - FAfterBoxLabelTplTExtObjectList.Free; - FAfterBoxLabelTplTExtXTemplate.Free; - FBeforeBoxLabelTextTplTExtObjectList.Free; - FBeforeBoxLabelTextTplTExtXTemplate.Free; - FBeforeBoxLabelTplTExtObjectList.Free; - FBeforeBoxLabelTplTExtXTemplate.Free; - FBoxLabelAttrTplTExtObjectList.Free; - FBoxLabelAttrTplTExtXTemplate.Free; + FAfterBoxLabelTextTplList.Free; + FAfterBoxLabelTextTplTemplate.Free; + FAfterBoxLabelTplList.Free; + FAfterBoxLabelTplTemplate.Free; + FBeforeBoxLabelTextTplList.Free; + FBeforeBoxLabelTextTplTemplate.Free; + FBeforeBoxLabelTplList.Free; + FBeforeBoxLabelTplTemplate.Free; + FBoxLabelAttrTplList.Free; + FBoxLabelAttrTplTemplate.Free; FOriginalValue.Free; FScope.Free; except end; @@ -36562,48 +36509,273 @@ function TExtFormFieldFileButton.JSClassName : string; begin {$IFDEF FPC}constructor TExtFormFieldFileButton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtGridFeatureAbstractSummary.SetFRemoteRoot(Value : String); begin - FRemoteRoot := Value; - JSCode('remoteRoot:' + VarToJSON([Value])); +procedure TExtChart.SetFAnimate(Value : Boolean); begin + FAnimate := Value; + JSCode('animate:' + VarToJSON([Value])); end; -function TExtGridFeatureAbstractSummary.JSClassName : string; begin - Result := 'Ext.grid.feature.AbstractSummary'; +procedure TExtChart.SetFAnimateObject(Value : TExtObject); begin + FAnimateObject := Value; + Value.DeleteFromGarbage; + JSCode('animate:' + VarToJSON([Value, false])); end; -{$IFDEF FPC}constructor TExtGridFeatureAbstractSummary.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtChart.SetFAxes(Value : TExtObjectList); begin + FAxes := Value; + Value.DeleteFromGarbage; + JSCode('axes:' + VarToJSON([Value, false])); +end; -procedure TExtDdDropTarget.SetFDdGroup(Value : String); begin - FDdGroup := Value; - JSCode('ddGroup:' + VarToJSON([Value])); +procedure TExtChart.SetFBackground(Value : TExtObject); begin + FBackground := Value; + Value.DeleteFromGarbage; + JSCode('background:' + VarToJSON([Value, false])); end; -procedure TExtDdDropTarget.SetFDropAllowed(Value : String); begin - FDropAllowed := Value; - JSCode('dropAllowed:' + VarToJSON([Value])); +procedure TExtChart.SetFBackgroundBoolean(Value : Boolean); begin + FBackgroundBoolean := Value; + JSCode('background:' + VarToJSON([Value])); end; -procedure TExtDdDropTarget.SetFDropNotAllowed(Value : String); begin - FDropNotAllowed := Value; - JSCode('dropNotAllowed:' + VarToJSON([Value])); +procedure TExtChart.SetFGradients(Value : TExtObjectList); begin + FGradients := Value; + Value.DeleteFromGarbage; + JSCode('gradients:' + VarToJSON([Value, false])); end; -procedure TExtDdDropTarget.SetFOverClass(Value : String); begin - FOverClass := Value; - JSCode('overClass:' + VarToJSON([Value])); +procedure TExtChart.SetFHasListeners(Value : TExtObject); begin + FHasListeners := Value; + Value.DeleteFromGarbage; + JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); end; -function TExtDdDropTarget.JSClassName : string; begin - Result := 'Ext.dd.DropTarget'; +procedure TExtChart.SetFInsetPadding(Value : Integer); begin + FInsetPadding := Value; + JSCode('insetPadding:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtDdDropTarget.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtChart.SetFIsObservable(Value : Boolean); begin + FIsObservable := Value; + JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); +end; -function TExtLayoutComponentAuto.JSClassName : string; begin - Result := 'Ext.layout.component.Auto'; +procedure TExtChart.SetFLegend(Value : Boolean); begin + FLegend := Value; + JSCode('legend:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtLayoutComponentAuto.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtChart.SetFLegendObject(Value : TExtObject); begin + FLegendObject := Value; + Value.DeleteFromGarbage; + JSCode('legend:' + VarToJSON([Value, false])); +end; + +procedure TExtChart.SetFListeners(Value : TExtObject); begin + FListeners := Value; + Value.DeleteFromGarbage; + JSCode('listeners:' + VarToJSON([Value, false])); +end; + +procedure TExtChart.SetFMask(Value : Boolean); begin + FMask := Value; + JSCode('mask:' + VarToJSON([Value])); +end; + +procedure TExtChart.SetFMaskString(Value : String); begin + FMaskString := Value; + JSCode('mask:' + VarToJSON([Value])); +end; + +procedure TExtChart.SetFSeries(Value : TExtObjectList); begin + FSeries := Value; + Value.DeleteFromGarbage; + JSCode('series:' + VarToJSON([Value, false])); +end; + +procedure TExtChart.SetFStore(Value : TExtDataStore); begin + FStore := Value; + Value.DeleteFromGarbage; + JSCode('store:' + VarToJSON([Value, false])); +end; + +procedure TExtChart.SetFTheme(Value : String); begin + FTheme := Value; + JSCode('theme:' + VarToJSON([Value])); +end; + +procedure TExtChart.SetFOnBeforerefresh(Value : TExtChartOnBeforerefresh); begin + if Assigned(FOnBeforerefresh) then + JSCode(JSName+'.events ["beforerefresh"].listeners=[];'); + if Assigned(Value) then + AddListener('beforerefresh', Ajax('beforerefresh', ['This', '%0.nm'], true)); + FOnBeforerefresh := Value; +end; + +procedure TExtChart.SetFOnRefresh(Value : TExtChartOnRefresh); begin + if Assigned(FOnRefresh) then + JSCode(JSName+'.events ["refresh"].listeners=[];'); + if Assigned(Value) then + AddListener('refresh', Ajax('refresh', ['This', '%0.nm'], true)); + FOnRefresh := Value; +end; + +function TExtChart.JSClassName : string; begin + Result := 'Ext.chart.Chart'; +end; + +procedure TExtChart.InitDefaults; begin + inherited; + FAnimateObject := TExtObject.CreateInternal(Self, 'animate'); + FAxes := TExtObjectList.Create(Self, 'axes'); + FBackground := TExtObject.CreateInternal(Self, 'background'); + FGradients := TExtObjectList.Create(Self, 'gradients'); + FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); + FInsetPadding := 10; + FLegendObject := TExtObject.CreateInternal(Self, 'legend'); + FListeners := TExtObject.CreateInternal(Self, 'listeners'); + FSeries := TExtObjectList.Create(Self, 'series'); + FStore := TExtDataStore.CreateInternal(Self, 'store'); +end; + +{$IFDEF FPC}constructor TExtChart.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtChart.AddEvents(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin + JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.BindStore(Store : String = '') : TExtFunction; begin + JSCode(JSName + '.bindStore(' + VarToJSON([Store]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.ClearListeners : TExtFunction; begin + JSCode(JSName + '.clearListeners();', 'TExtChart'); + Result := Self; +end; + +function TExtChart.ClearManagedListeners : TExtFunction; begin + JSCode(JSName + '.clearManagedListeners();', 'TExtChart'); + Result := Self; +end; + +constructor TExtChart.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtChart.EnableBubble(EventNames : String) : TExtFunction; begin + JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin + JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.GetStore : TExtFunction; begin + JSCode(JSName + '.getStore();', 'TExtChart'); + Result := Self; +end; + +function TExtChart.HasListener(EventName : String) : TExtFunction; begin + JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.Redraw(Resize : Boolean = false) : TExtFunction; begin + JSCode(JSName + '.redraw(' + VarToJSON([Resize]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin + JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.RestoreZoom : TExtFunction; begin + JSCode(JSName + '.restoreZoom();', 'TExtChart'); + Result := Self; +end; + +function TExtChart.ResumeEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.ResumeEvents : TExtFunction; begin + JSCode(JSName + '.resumeEvents();', 'TExtChart'); + Result := Self; +end; + +function TExtChart.Save(Config : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.save(' + VarToJSON([Config, false]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.SetZoom : TExtFunction; begin + JSCode(JSName + '.setZoom();', 'TExtChart'); + Result := Self; +end; + +function TExtChart.SuspendEvent(EventName : String) : TExtFunction; begin + JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtChart'); + Result := Self; +end; + +function TExtChart.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin + JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtChart'); + Result := Self; +end; + +destructor TExtChart.Destroy; begin + try + FAnimateObject.Free; + FAxes.Free; + FBackground.Free; + FGradients.Free; + FHasListeners.Free; + FLegendObject.Free; + FListeners.Free; + FSeries.Free; + FStore.Free; + except end; + inherited; +end; + +procedure TExtChart.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'beforerefresh') and Assigned(FOnBeforerefresh) then + FOnBeforerefresh(TExtChart(ParamAsObject('This'))) + else if (AEvtName = 'refresh') and Assigned(FOnRefresh) then + FOnRefresh(TExtChart(ParamAsObject('This'))); +end; procedure TExtSelectionRowModel.SetFEnableKeyNav(Value : Boolean); begin FEnableKeyNav := Value; @@ -36680,6 +36852,67 @@ procedure TExtSelectionRowModel.HandleEvent(const AEvtName : string); begin FOnSelect(TExtSelectionRowModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS')), ParamAsInteger('Index')); end; +function TExtLayoutComponentAuto.JSClassName : string; begin + Result := 'Ext.layout.component.Auto'; +end; + +{$IFDEF FPC}constructor TExtLayoutComponentAuto.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtSelectionDataViewModel.SetFEnableKeyNav(Value : Boolean); begin + FEnableKeyNav := Value; + JSCode('enableKeyNav:' + VarToJSON([Value])); +end; + +procedure TExtSelectionDataViewModel.SetFOnBeforedeselect(Value : TExtSelectionDataViewModelOnBeforedeselect); begin + if Assigned(FOnBeforedeselect) then + JSCode(JSName+'.events ["beforedeselect"].listeners=[];'); + if Assigned(Value) then + AddListener('beforedeselect', Ajax('beforedeselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); + FOnBeforedeselect := Value; +end; + +procedure TExtSelectionDataViewModel.SetFOnBeforeselect(Value : TExtSelectionDataViewModelOnBeforeselect); begin + if Assigned(FOnBeforeselect) then + JSCode(JSName+'.events ["beforeselect"].listeners=[];'); + if Assigned(Value) then + AddListener('beforeselect', Ajax('beforeselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); + FOnBeforeselect := Value; +end; + +procedure TExtSelectionDataViewModel.SetFOnDeselect(Value : TExtSelectionDataViewModelOnDeselect); begin + if Assigned(FOnDeselect) then + JSCode(JSName+'.events ["deselect"].listeners=[];'); + if Assigned(Value) then + AddListener('deselect', Ajax('deselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); + FOnDeselect := Value; +end; + +procedure TExtSelectionDataViewModel.SetFOnSelect(Value : TExtSelectionDataViewModelOnSelect); begin + if Assigned(FOnSelect) then + JSCode(JSName+'.events ["select"].listeners=[];'); + if Assigned(Value) then + AddListener('select', Ajax('select', ['This', '%0.nm','RecordJS', '%1.nm'], true)); + FOnSelect := Value; +end; + +function TExtSelectionDataViewModel.JSClassName : string; begin + Result := 'Ext.selection.DataViewModel'; +end; + +{$IFDEF FPC}constructor TExtSelectionDataViewModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtSelectionDataViewModel.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'beforedeselect') and Assigned(FOnBeforedeselect) then + FOnBeforedeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) + else if (AEvtName = 'beforeselect') and Assigned(FOnBeforeselect) then + FOnBeforeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) + else if (AEvtName = 'deselect') and Assigned(FOnDeselect) then + FOnDeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) + else if (AEvtName = 'select') and Assigned(FOnSelect) then + FOnSelect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))); +end; + procedure TExtSliderMulti.SetFAnimate(Value : Boolean); begin FAnimate := Value; JSCode('animate:' + VarToJSON([Value])); @@ -36967,60 +37200,31 @@ function TExtDdDDProxy.InitFrame : TExtFunction; begin Result := Self; end; -procedure TExtSelectionDataViewModel.SetFEnableKeyNav(Value : Boolean); begin - FEnableKeyNav := Value; - JSCode('enableKeyNav:' + VarToJSON([Value])); -end; - -procedure TExtSelectionDataViewModel.SetFOnBeforedeselect(Value : TExtSelectionDataViewModelOnBeforedeselect); begin - if Assigned(FOnBeforedeselect) then - JSCode(JSName+'.events ["beforedeselect"].listeners=[];'); - if Assigned(Value) then - AddListener('beforedeselect', Ajax('beforedeselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); - FOnBeforedeselect := Value; +procedure TExtDdDropTarget.SetFDdGroup(Value : String); begin + FDdGroup := Value; + JSCode('ddGroup:' + VarToJSON([Value])); end; -procedure TExtSelectionDataViewModel.SetFOnBeforeselect(Value : TExtSelectionDataViewModelOnBeforeselect); begin - if Assigned(FOnBeforeselect) then - JSCode(JSName+'.events ["beforeselect"].listeners=[];'); - if Assigned(Value) then - AddListener('beforeselect', Ajax('beforeselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); - FOnBeforeselect := Value; +procedure TExtDdDropTarget.SetFDropAllowed(Value : String); begin + FDropAllowed := Value; + JSCode('dropAllowed:' + VarToJSON([Value])); end; -procedure TExtSelectionDataViewModel.SetFOnDeselect(Value : TExtSelectionDataViewModelOnDeselect); begin - if Assigned(FOnDeselect) then - JSCode(JSName+'.events ["deselect"].listeners=[];'); - if Assigned(Value) then - AddListener('deselect', Ajax('deselect', ['This', '%0.nm','RecordJS', '%1.nm'], true)); - FOnDeselect := Value; +procedure TExtDdDropTarget.SetFDropNotAllowed(Value : String); begin + FDropNotAllowed := Value; + JSCode('dropNotAllowed:' + VarToJSON([Value])); end; -procedure TExtSelectionDataViewModel.SetFOnSelect(Value : TExtSelectionDataViewModelOnSelect); begin - if Assigned(FOnSelect) then - JSCode(JSName+'.events ["select"].listeners=[];'); - if Assigned(Value) then - AddListener('select', Ajax('select', ['This', '%0.nm','RecordJS', '%1.nm'], true)); - FOnSelect := Value; +procedure TExtDdDropTarget.SetFOverClass(Value : String); begin + FOverClass := Value; + JSCode('overClass:' + VarToJSON([Value])); end; -function TExtSelectionDataViewModel.JSClassName : string; begin - Result := 'Ext.selection.DataViewModel'; +function TExtDdDropTarget.JSClassName : string; begin + Result := 'Ext.dd.DropTarget'; end; -{$IFDEF FPC}constructor TExtSelectionDataViewModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtSelectionDataViewModel.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'beforedeselect') and Assigned(FOnBeforedeselect) then - FOnBeforedeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) - else if (AEvtName = 'beforeselect') and Assigned(FOnBeforeselect) then - FOnBeforeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) - else if (AEvtName = 'deselect') and Assigned(FOnDeselect) then - FOnDeselect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))) - else if (AEvtName = 'select') and Assigned(FOnSelect) then - FOnSelect(TExtSelectionDataViewModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS'))); -end; +{$IFDEF FPC}constructor TExtDdDropTarget.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtDirectRemotingProvider.SetFActions(Value : TExtObject); begin FActions := Value; @@ -37058,8 +37262,8 @@ procedure TExtDirectRemotingProvider.SetFNamespace(Value : String); begin JSCode('namespace:' + VarToJSON([Value])); end; -procedure TExtDirectRemotingProvider.SetFNamespaceTExtObject(Value : TExtObject); begin - FNamespaceTExtObject := Value; +procedure TExtDirectRemotingProvider.SetFNamespaceObject(Value : TExtObject); begin + FNamespaceObject := Value; Value.DeleteFromGarbage; JSCode('namespace:' + VarToJSON([Value, false])); end; @@ -37105,7 +37309,7 @@ function TExtDirectRemotingProvider.JSClassName : string; begin procedure TExtDirectRemotingProvider.InitDefaults; begin inherited; FActions := TExtObject.CreateInternal(Self, 'actions'); - FNamespaceTExtObject := TExtObject.CreateInternal(Self, 'namespace'); + FNamespaceObject := TExtObject.CreateInternal(Self, 'namespace'); end; {$IFDEF FPC}constructor TExtDirectRemotingProvider.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -37133,7 +37337,7 @@ function TExtDirectRemotingProvider.IsConnected : TExtFunction; begin destructor TExtDirectRemotingProvider.Destroy; begin try FActions.Free; - FNamespaceTExtObject.Free; + FNamespaceObject.Free; except end; inherited; end; @@ -37164,8 +37368,8 @@ procedure TExtDirectPollingProvider.SetFUrl(Value : String); begin JSCode('url:' + VarToJSON([Value])); end; -procedure TExtDirectPollingProvider.SetFUrlTExtFunction(Value : TExtFunction); begin - FUrlTExtFunction := Value; +procedure TExtDirectPollingProvider.SetFUrlFunction(Value : TExtFunction); begin + FUrlFunction := Value; JSCode('url:' + VarToJSON([Value, true])); end; @@ -37264,12 +37468,6 @@ function TExtLayoutComponentDock.InvalidateAxes : TExtFunction; begin Result := Self; end; -function TExtDirectExceptionEvent.JSClassName : string; begin - Result := 'Ext.direct.ExceptionEvent'; -end; - -{$IFDEF FPC}constructor TExtDirectExceptionEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtSelectionCellModel.SetFEnableKeyNav(Value : Boolean); begin FEnableKeyNav := Value; JSCode('enableKeyNav:' + VarToJSON([Value])); @@ -37325,6 +37523,12 @@ procedure TExtSelectionCellModel.HandleEvent(const AEvtName : string); begin FOnSelect(TExtSelectionCellModel(ParamAsObject('This')), TExtDataModel(ParamAsObject('RecordJS')), ParamAsInteger('Row'), ParamAsInteger('Column')); end; +function TExtDirectExceptionEvent.JSClassName : string; begin + Result := 'Ext.direct.ExceptionEvent'; +end; + +{$IFDEF FPC}constructor TExtDirectExceptionEvent.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + function TExtGridFeatureRowWrap.JSClassName : string; begin Result := 'Ext.grid.feature.RowWrap'; end; @@ -37707,6 +37911,17 @@ function TExtChartAxisCategory.JSClassName : string; begin {$IFDEF FPC}constructor TExtChartAxisCategory.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtGridFeatureAbstractSummary.SetFRemoteRoot(Value : String); begin + FRemoteRoot := Value; + JSCode('remoteRoot:' + VarToJSON([Value])); +end; + +function TExtGridFeatureAbstractSummary.JSClassName : string; begin + Result := 'Ext.grid.feature.AbstractSummary'; +end; + +{$IFDEF FPC}constructor TExtGridFeatureAbstractSummary.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtGridFeatureGrouping.SetFCollapsible(Value : Boolean); begin FCollapsible := Value; JSCode('collapsible:' + VarToJSON([Value])); @@ -37737,14 +37952,14 @@ procedure TExtGridFeatureGrouping.SetFGroupHeaderTpl(Value : String); begin JSCode('groupHeaderTpl:' + VarToJSON([Value])); end; -procedure TExtGridFeatureGrouping.SetFGroupHeaderTplTExtObjectList(Value : TExtObjectList); begin - FGroupHeaderTplTExtObjectList := Value; +procedure TExtGridFeatureGrouping.SetFGroupHeaderTplList(Value : TExtObjectList); begin + FGroupHeaderTplList := Value; Value.DeleteFromGarbage; JSCode('groupHeaderTpl:' + VarToJSON([Value, false])); end; -procedure TExtGridFeatureGrouping.SetFGroupHeaderTplTExtTemplate(Value : TExtTemplate); begin - FGroupHeaderTplTExtTemplate := Value; +procedure TExtGridFeatureGrouping.SetFGroupHeaderTplTemplate(Value : TExtTemplate); begin + FGroupHeaderTplTemplate := Value; Value.DeleteFromGarbage; JSCode('groupHeaderTpl:' + VarToJSON([Value, false])); end; @@ -37775,8 +37990,8 @@ function TExtGridFeatureGrouping.JSClassName : string; begin procedure TExtGridFeatureGrouping.InitDefaults; begin inherited; - FGroupHeaderTplTExtObjectList := TExtObjectList.Create(Self, 'groupHeaderTpl'); - FGroupHeaderTplTExtTemplate := TExtTemplate.CreateInternal(Self, 'groupHeaderTpl'); + FGroupHeaderTplList := TExtObjectList.Create(Self, 'groupHeaderTpl'); + FGroupHeaderTplTemplate := TExtTemplate.CreateInternal(Self, 'groupHeaderTpl'); end; {$IFDEF FPC}constructor TExtGridFeatureGrouping.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -37818,280 +38033,12 @@ function TExtGridFeatureGrouping.IsExpanded(GroupName : String) : TExtFunction; destructor TExtGridFeatureGrouping.Destroy; begin try - FGroupHeaderTplTExtObjectList.Free; - FGroupHeaderTplTExtTemplate.Free; + FGroupHeaderTplList.Free; + FGroupHeaderTplTemplate.Free; except end; inherited; end; -procedure TExtChart.SetFAnimate(Value : Boolean); begin - FAnimate := Value; - JSCode('animate:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFAnimateTExtObject(Value : TExtObject); begin - FAnimateTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('animate:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFAxes(Value : TExtObjectList); begin - FAxes := Value; - Value.DeleteFromGarbage; - JSCode('axes:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFBackground(Value : TExtObject); begin - FBackground := Value; - Value.DeleteFromGarbage; - JSCode('background:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFBackgroundBoolean(Value : Boolean); begin - FBackgroundBoolean := Value; - JSCode('background:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFGradients(Value : TExtObjectList); begin - FGradients := Value; - Value.DeleteFromGarbage; - JSCode('gradients:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFHasListeners(Value : TExtObject); begin - FHasListeners := Value; - Value.DeleteFromGarbage; - JSCode(JSName + '.hasListeners=' + VarToJSON([Value, false]) + ';'); -end; - -procedure TExtChart.SetFInsetPadding(Value : Integer); begin - FInsetPadding := Value; - JSCode('insetPadding:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFIsObservable(Value : Boolean); begin - FIsObservable := Value; - JSCode(JSName + '.isObservable=' + VarToJSON([Value]) + ';'); -end; - -procedure TExtChart.SetFLegend(Value : Boolean); begin - FLegend := Value; - JSCode('legend:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFLegendTExtObject(Value : TExtObject); begin - FLegendTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('legend:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFListeners(Value : TExtObject); begin - FListeners := Value; - Value.DeleteFromGarbage; - JSCode('listeners:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFMask(Value : Boolean); begin - FMask := Value; - JSCode('mask:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFMaskString(Value : String); begin - FMaskString := Value; - JSCode('mask:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFSeries(Value : TExtObjectList); begin - FSeries := Value; - Value.DeleteFromGarbage; - JSCode('series:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFStore(Value : TExtDataStore); begin - FStore := Value; - Value.DeleteFromGarbage; - JSCode('store:' + VarToJSON([Value, false])); -end; - -procedure TExtChart.SetFTheme(Value : String); begin - FTheme := Value; - JSCode('theme:' + VarToJSON([Value])); -end; - -procedure TExtChart.SetFOnBeforerefresh(Value : TExtChartOnBeforerefresh); begin - if Assigned(FOnBeforerefresh) then - JSCode(JSName+'.events ["beforerefresh"].listeners=[];'); - if Assigned(Value) then - AddListener('beforerefresh', Ajax('beforerefresh', ['This', '%0.nm'], true)); - FOnBeforerefresh := Value; -end; - -procedure TExtChart.SetFOnRefresh(Value : TExtChartOnRefresh); begin - if Assigned(FOnRefresh) then - JSCode(JSName+'.events ["refresh"].listeners=[];'); - if Assigned(Value) then - AddListener('refresh', Ajax('refresh', ['This', '%0.nm'], true)); - FOnRefresh := Value; -end; - -function TExtChart.JSClassName : string; begin - Result := 'Ext.chart.Chart'; -end; - -procedure TExtChart.InitDefaults; begin - inherited; - FAnimateTExtObject := TExtObject.CreateInternal(Self, 'animate'); - FAxes := TExtObjectList.Create(Self, 'axes'); - FBackground := TExtObject.CreateInternal(Self, 'background'); - FGradients := TExtObjectList.Create(Self, 'gradients'); - FHasListeners := TExtObject.CreateInternal(Self, 'hasListeners'); - FInsetPadding := 10; - FLegendTExtObject := TExtObject.CreateInternal(Self, 'legend'); - FListeners := TExtObject.CreateInternal(Self, 'listeners'); - FSeries := TExtObjectList.Create(Self, 'series'); - FStore := TExtDataStore.CreateInternal(Self, 'store'); -end; - -{$IFDEF FPC}constructor TExtChart.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtChart.AddEvents(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.addEvents(' + VarToJSON([EventNames]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.AddListener(EventName : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil; OptionsScope : TExtObject = nil; OptionsDelay : Integer = 0; OptionsSingle : Boolean = false; OptionsBuffer : Integer = 0; OptionsTarget : TExtUtilObservable = nil; OptionsElement : String = ''; OptionsDestroyable : Boolean = false; OptionsPriority : Integer = 0) : TExtFunction; begin - JSCode(JSName + '.addListener(' + VarToJSON([EventName, Fn, true, Scope, false, Options, false, OptionsScope, false, OptionsDelay, OptionsSingle, OptionsBuffer, OptionsTarget, false, OptionsElement, OptionsDestroyable, OptionsPriority]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.AddManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil; Options : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.addManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false, Options, false]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.BindStore(Store : String = '') : TExtFunction; begin - JSCode(JSName + '.bindStore(' + VarToJSON([Store]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.ClearListeners : TExtFunction; begin - JSCode(JSName + '.clearListeners();', 'TExtChart'); - Result := Self; -end; - -function TExtChart.ClearManagedListeners : TExtFunction; begin - JSCode(JSName + '.clearManagedListeners();', 'TExtChart'); - Result := Self; -end; - -constructor TExtChart.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtChart.EnableBubble(EventNames : String) : TExtFunction; begin - JSCode(JSName + '.enableBubble(' + VarToJSON([EventNames]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.FireEvent(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEvent(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.FireEventArgs(EventName : String; Args : TExtObjectList) : TExtFunction; begin - JSCode(JSName + '.fireEventArgs(' + VarToJSON([EventName]) + ',' + VarToJSON(Args) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.GetStore : TExtFunction; begin - JSCode(JSName + '.getStore();', 'TExtChart'); - Result := Self; -end; - -function TExtChart.HasListener(EventName : String) : TExtFunction; begin - JSCode(JSName + '.hasListener(' + VarToJSON([EventName]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.Redraw(Resize : Boolean = false) : TExtFunction; begin - JSCode(JSName + '.redraw(' + VarToJSON([Resize]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.RelayEvents(Origin : TExtObject; Events : TExtObjectList; Prefix : String = '') : TExtFunction; begin - JSCode(JSName + '.relayEvents(' + VarToJSON([Origin, false]) + ',' + VarToJSON(Events) + ',' + VarToJSON([Prefix]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.RemoveListener(EventName : String; Fn : TExtFunction; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeListener(' + VarToJSON([EventName, Fn, true, Scope, false]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.RemoveManagedListener(Item : TExtElement; Ename : String; Fn : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.removeManagedListener(' + VarToJSON([Item, false, Ename, Fn, true, Scope, false]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.RestoreZoom : TExtFunction; begin - JSCode(JSName + '.restoreZoom();', 'TExtChart'); - Result := Self; -end; - -function TExtChart.ResumeEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.resumeEvent(' + VarToJSON([EventName]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.ResumeEvents : TExtFunction; begin - JSCode(JSName + '.resumeEvents();', 'TExtChart'); - Result := Self; -end; - -function TExtChart.Save(Config : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.save(' + VarToJSON([Config, false]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.SetZoom : TExtFunction; begin - JSCode(JSName + '.setZoom();', 'TExtChart'); - Result := Self; -end; - -function TExtChart.SuspendEvent(EventName : String) : TExtFunction; begin - JSCode(JSName + '.suspendEvent(' + VarToJSON([EventName]) + ');', 'TExtChart'); - Result := Self; -end; - -function TExtChart.SuspendEvents(QueueSuspended : Boolean) : TExtFunction; begin - JSCode(JSName + '.suspendEvents(' + VarToJSON([QueueSuspended]) + ');', 'TExtChart'); - Result := Self; -end; - -destructor TExtChart.Destroy; begin - try - FAnimateTExtObject.Free; - FAxes.Free; - FBackground.Free; - FGradients.Free; - FHasListeners.Free; - FLegendTExtObject.Free; - FListeners.Free; - FSeries.Free; - FStore.Free; - except end; - inherited; -end; - -procedure TExtChart.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'beforerefresh') and Assigned(FOnBeforerefresh) then - FOnBeforerefresh(TExtChart(ParamAsObject('This'))) - else if (AEvtName = 'refresh') and Assigned(FOnRefresh) then - FOnRefresh(TExtChart(ParamAsObject('This'))); -end; - function TExtGridFeatureRowBody.JSClassName : string; begin Result := 'Ext.grid.feature.RowBody'; end; @@ -38310,8 +38257,8 @@ procedure TExtDataProxyDirect.SetFParamOrder(Value : String); begin JSCode('paramOrder:' + VarToJSON([Value])); end; -procedure TExtDataProxyDirect.SetFParamOrderTExtObjectList(Value : TExtObjectList); begin - FParamOrderTExtObjectList := Value; +procedure TExtDataProxyDirect.SetFParamOrderList(Value : TExtObjectList); begin + FParamOrderList := Value; Value.DeleteFromGarbage; JSCode('paramOrder:' + VarToJSON([Value, false])); end; @@ -38329,7 +38276,7 @@ procedure TExtDataProxyDirect.InitDefaults; begin inherited; FApi := TExtObject.CreateInternal(Self, 'api'); FExtraParams := TExtObject.CreateInternal(Self, 'extraParams'); - FParamOrderTExtObjectList := TExtObjectList.Create(Self, 'paramOrder'); + FParamOrderList := TExtObjectList.Create(Self, 'paramOrder'); end; {$IFDEF FPC}constructor TExtDataProxyDirect.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -38343,7 +38290,7 @@ destructor TExtDataProxyDirect.Destroy; begin try FApi.Free; FExtraParams.Free; - FParamOrderTExtObjectList.Free; + FParamOrderList.Free; except end; inherited; end; @@ -38452,6 +38399,22 @@ procedure TExtGridPluginCellEditing.HandleEvent(const AEvtName : string); begin FOnValidateedit(TExtGridPluginCellEditing(ParamAsObject('Editor')), TExtObject(ParamAsObject('E'))); end; +procedure TExtChartAxisRadial.SetFMaximum(Value : Integer); begin + FMaximum := Value; + JSCode('maximum:' + VarToJSON([Value])); +end; + +procedure TExtChartAxisRadial.SetFSteps(Value : Integer); begin + FSteps := Value; + JSCode('steps:' + VarToJSON([Value])); +end; + +function TExtChartAxisRadial.JSClassName : string; begin + Result := 'Ext.chart.axis.Radial'; +end; + +{$IFDEF FPC}constructor TExtChartAxisRadial.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtSelectionCheckboxModel.SetFCheckOnly(Value : Boolean); begin FCheckOnly := Value; JSCode('checkOnly:' + VarToJSON([Value])); @@ -38503,12 +38466,6 @@ function TExtSelectionCheckboxModel.Renderer : TExtFunction; begin Result := Self; end; -function TExtSelectionTreeModel.JSClassName : string; begin - Result := 'Ext.selection.TreeModel'; -end; - -{$IFDEF FPC}constructor TExtSelectionTreeModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - function TExtChartLegendItem.JSClassName : string; begin Result := 'Ext.chart.LegendItem'; end; @@ -38579,21 +38536,11 @@ destructor TExtChartAxisTime.Destroy; begin inherited; end; -procedure TExtChartAxisRadial.SetFMaximum(Value : Integer); begin - FMaximum := Value; - JSCode('maximum:' + VarToJSON([Value])); -end; - -procedure TExtChartAxisRadial.SetFSteps(Value : Integer); begin - FSteps := Value; - JSCode('steps:' + VarToJSON([Value])); -end; - -function TExtChartAxisRadial.JSClassName : string; begin - Result := 'Ext.chart.axis.Radial'; +function TExtSelectionTreeModel.JSClassName : string; begin + Result := 'Ext.selection.TreeModel'; end; -{$IFDEF FPC}constructor TExtChartAxisRadial.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtSelectionTreeModel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtButtonCycle.SetFChangeHandler(Value : TExtFunction); begin FChangeHandler := Value; @@ -38685,12 +38632,11 @@ procedure TExtToolbar.SetFEnableOverflow(Value : Boolean); begin procedure TExtToolbar.SetFLayout(Value : TExtEnumsLayout); begin FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); end; -procedure TExtToolbar.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; +procedure TExtToolbar.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; Value.DeleteFromGarbage; JSCode('layout:' + VarToJSON([Value, false])); end; @@ -38719,8 +38665,7 @@ function TExtToolbar.JSClassName : string; begin procedure TExtToolbar.InitDefaults; begin inherited; - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); end; {$IFDEF FPC}constructor TExtToolbar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -38732,8 +38677,7 @@ constructor TExtToolbar.Create; begin destructor TExtToolbar.Destroy; begin try - FLayout.Free; - FLayoutTExtObject.Free; + FLayoutObject.Free; except end; inherited; end; @@ -38754,8 +38698,8 @@ procedure TExtChartSeriesColumn.SetFXPadding(Value : Integer); begin JSCode('xPadding:' + VarToJSON([Value])); end; -procedure TExtChartSeriesColumn.SetFXPaddingTExtObject(Value : TExtObject); begin - FXPaddingTExtObject := Value; +procedure TExtChartSeriesColumn.SetFXPaddingObject(Value : TExtObject); begin + FXPaddingObject := Value; Value.DeleteFromGarbage; JSCode('xPadding:' + VarToJSON([Value, false])); end; @@ -38765,8 +38709,8 @@ procedure TExtChartSeriesColumn.SetFYPadding(Value : Integer); begin JSCode('yPadding:' + VarToJSON([Value])); end; -procedure TExtChartSeriesColumn.SetFYPaddingTExtObject(Value : TExtObject); begin - FYPaddingTExtObject := Value; +procedure TExtChartSeriesColumn.SetFYPaddingObject(Value : TExtObject); begin + FYPaddingObject := Value; Value.DeleteFromGarbage; JSCode('yPadding:' + VarToJSON([Value, false])); end; @@ -38777,8 +38721,8 @@ function TExtChartSeriesColumn.JSClassName : string; begin procedure TExtChartSeriesColumn.InitDefaults; begin inherited; - FXPaddingTExtObject := TExtObject.CreateInternal(Self, 'xPadding'); - FYPaddingTExtObject := TExtObject.CreateInternal(Self, 'yPadding'); + FXPaddingObject := TExtObject.CreateInternal(Self, 'xPadding'); + FYPaddingObject := TExtObject.CreateInternal(Self, 'yPadding'); end; {$IFDEF FPC}constructor TExtChartSeriesColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -38790,8 +38734,8 @@ constructor TExtChartSeriesColumn.Create; begin destructor TExtChartSeriesColumn.Destroy; begin try - FXPaddingTExtObject.Free; - FYPaddingTExtObject.Free; + FXPaddingObject.Free; + FYPaddingObject.Free; except end; inherited; end; @@ -39074,12 +39018,11 @@ procedure TExtFormFieldSet.SetFFieldDefaults(Value : TExtObject); begin procedure TExtFormFieldSet.SetFLayout(Value : TExtEnumsLayout); begin FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); end; -procedure TExtFormFieldSet.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; +procedure TExtFormFieldSet.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; Value.DeleteFromGarbage; JSCode('layout:' + VarToJSON([Value, false])); end; @@ -39127,8 +39070,7 @@ procedure TExtFormFieldSet.InitDefaults; begin inherited; FCheckboxCmp := TExtFormFieldCheckbox.CreateInternal(Self, 'checkboxCmp'); FFieldDefaults := TExtObject.CreateInternal(Self, 'fieldDefaults'); - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); FToggleCmp := TExtPanelTool.CreateInternal(Self, 'toggleCmp'); end; @@ -39163,8 +39105,7 @@ destructor TExtFormFieldSet.Destroy; begin try FCheckboxCmp.Free; FFieldDefaults.Free; - FLayout.Free; - FLayoutTExtObject.Free; + FLayoutObject.Free; FToggleCmp.Free; except end; inherited; @@ -39261,11 +39202,11 @@ function TExtLayoutComponentBody.JSClassName : string; begin {$IFDEF FPC}constructor TExtLayoutComponentBody.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtDataReaderArray.JSClassName : string; begin - Result := 'Ext.data.reader.Array'; +function TExtFxTargetCompositeElementCSS.JSClassName : string; begin + Result := 'Ext.fx.target.CompositeElementCSS'; end; -{$IFDEF FPC}constructor TExtDataReaderArray.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtFxTargetCompositeElementCSS.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtViewTable.SetFBody(Value : TExtDomAbstractElementFly); begin FBody := Value; @@ -39402,6 +39343,12 @@ function TExtViewTableLayout.JSClassName : string; begin {$IFDEF FPC}constructor TExtViewTableLayout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtDataReaderArray.JSClassName : string; begin + Result := 'Ext.data.reader.Array'; +end; + +{$IFDEF FPC}constructor TExtDataReaderArray.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + function TExtDataProxySessionStorage.JSClassName : string; begin Result := 'Ext.data.proxy.SessionStorage'; end; @@ -39444,12 +39391,6 @@ constructor TExtDataProxyRest.Create; begin InitDefaults; end; -function TExtFxTargetCompositeElementCSS.JSClassName : string; begin - Result := 'Ext.fx.target.CompositeElementCSS'; -end; - -{$IFDEF FPC}constructor TExtFxTargetCompositeElementCSS.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtViewBoundList.SetFDisplayField(Value : String); begin FDisplayField := Value; JSCode('displayField:' + VarToJSON([Value])); @@ -39465,8 +39406,8 @@ procedure TExtViewBoundList.SetFTpl(Value : String); begin JSCode('tpl:' + VarToJSON([Value])); end; -procedure TExtViewBoundList.SetFTplTExtXTemplate(Value : TExtXTemplate); begin - FTplTExtXTemplate := Value; +procedure TExtViewBoundList.SetFTplTemplate(Value : TExtXTemplate); begin + FTplTemplate := Value; Value.DeleteFromGarbage; JSCode('tpl:' + VarToJSON([Value, false])); end; @@ -39477,7 +39418,7 @@ function TExtViewBoundList.JSClassName : string; begin procedure TExtViewBoundList.InitDefaults; begin inherited; - FTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); + FTplTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); end; {$IFDEF FPC}constructor TExtViewBoundList.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -39494,7 +39435,7 @@ function TExtViewBoundList.GetInnerTpl(DisplayField : String) : TExtFunction; be destructor TExtViewBoundList.Destroy; begin try - FTplTExtXTemplate.Free; + FTplTemplate.Free; except end; inherited; end; @@ -39655,56 +39596,11 @@ function TExtDataDirectStore.JSClassName : string; begin {$IFDEF FPC}constructor TExtDataDirectStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtDdDragSource.SetFAnimRepair(Value : Boolean); begin - FAnimRepair := Value; - JSCode('animRepair:' + VarToJSON([Value])); -end; - -procedure TExtDdDragSource.SetFDdGroup(Value : String); begin - FDdGroup := Value; - JSCode('ddGroup:' + VarToJSON([Value])); -end; - -procedure TExtDdDragSource.SetFDropAllowed(Value : String); begin - FDropAllowed := Value; - JSCode('dropAllowed:' + VarToJSON([Value])); -end; - -procedure TExtDdDragSource.SetFDropNotAllowed(Value : String); begin - FDropNotAllowed := Value; - JSCode('dropNotAllowed:' + VarToJSON([Value])); -end; - -procedure TExtDdDragSource.SetFRepairHighlightColor(Value : String); begin - FRepairHighlightColor := Value; - JSCode('repairHighlightColor:' + VarToJSON([Value])); -end; - -function TExtDdDragSource.JSClassName : string; begin - Result := 'Ext.dd.DragSource'; -end; - -{$IFDEF FPC}constructor TExtDdDragSource.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtDdDragSource.Create(El : String; Config : TExtObject = nil); begin - CreateVar(JSClassName + '(' + VarToJSON([El, Config, false]) + ');'); - InitDefaults; -end; - -function TExtDdDragSource.GetDragData : TExtFunction; begin - JSCode(JSName + '.getDragData();', 'TExtDdDragSource'); - Result := Self; -end; - -function TExtDdDragSource.GetProxy : TExtFunction; begin - JSCode(JSName + '.getProxy();', 'TExtDdDragSource'); - Result := Self; +function TExtDataBufferStore.JSClassName : string; begin + Result := 'Ext.data.BufferStore'; end; -function TExtDdDragSource.HideProxy : TExtFunction; begin - JSCode(JSName + '.hideProxy();', 'TExtDdDragSource'); - Result := Self; -end; +{$IFDEF FPC}constructor TExtDataBufferStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtLayoutContainerCard.SetFDeferredRender(Value : Boolean); begin FDeferredRender := Value; @@ -39807,6 +39703,57 @@ function TExtContainerViewport.JSClassName : string; begin {$IFDEF FPC}constructor TExtContainerViewport.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtDdDragSource.SetFAnimRepair(Value : Boolean); begin + FAnimRepair := Value; + JSCode('animRepair:' + VarToJSON([Value])); +end; + +procedure TExtDdDragSource.SetFDdGroup(Value : String); begin + FDdGroup := Value; + JSCode('ddGroup:' + VarToJSON([Value])); +end; + +procedure TExtDdDragSource.SetFDropAllowed(Value : String); begin + FDropAllowed := Value; + JSCode('dropAllowed:' + VarToJSON([Value])); +end; + +procedure TExtDdDragSource.SetFDropNotAllowed(Value : String); begin + FDropNotAllowed := Value; + JSCode('dropNotAllowed:' + VarToJSON([Value])); +end; + +procedure TExtDdDragSource.SetFRepairHighlightColor(Value : String); begin + FRepairHighlightColor := Value; + JSCode('repairHighlightColor:' + VarToJSON([Value])); +end; + +function TExtDdDragSource.JSClassName : string; begin + Result := 'Ext.dd.DragSource'; +end; + +{$IFDEF FPC}constructor TExtDdDragSource.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtDdDragSource.Create(El : String; Config : TExtObject = nil); begin + CreateVar(JSClassName + '(' + VarToJSON([El, Config, false]) + ');'); + InitDefaults; +end; + +function TExtDdDragSource.GetDragData : TExtFunction; begin + JSCode(JSName + '.getDragData();', 'TExtDdDragSource'); + Result := Self; +end; + +function TExtDdDragSource.GetProxy : TExtFunction; begin + JSCode(JSName + '.getProxy();', 'TExtDdDragSource'); + Result := Self; +end; + +function TExtDdDragSource.HideProxy : TExtFunction; begin + JSCode(JSName + '.hideProxy();', 'TExtDdDragSource'); + Result := Self; +end; + procedure TExtPanelAbstractPanel.SetFBaseCls(Value : String); begin FBaseCls := Value; JSCode('baseCls:' + VarToJSON([Value])); @@ -39822,8 +39769,8 @@ procedure TExtPanelAbstractPanel.SetFBodyCls(Value : String); begin JSCode('bodyCls:' + VarToJSON([Value])); end; -procedure TExtPanelAbstractPanel.SetFBodyClsTExtObjectList(Value : TExtObjectList); begin - FBodyClsTExtObjectList := Value; +procedure TExtPanelAbstractPanel.SetFBodyClsList(Value : TExtObjectList); begin + FBodyClsList := Value; Value.DeleteFromGarbage; JSCode('bodyCls:' + VarToJSON([Value, false])); end; @@ -39846,13 +39793,13 @@ procedure TExtPanelAbstractPanel.SetFBodyStyle(Value : String); begin JSCode('bodyStyle:' + VarToJSON([Value])); end; -procedure TExtPanelAbstractPanel.SetFBodyStyleTExtFunction(Value : TExtFunction); begin - FBodyStyleTExtFunction := Value; +procedure TExtPanelAbstractPanel.SetFBodyStyleFunction(Value : TExtFunction); begin + FBodyStyleFunction := Value; JSCode('bodyStyle:' + VarToJSON([Value, true])); end; -procedure TExtPanelAbstractPanel.SetFBodyStyleTExtObject(Value : TExtObject); begin - FBodyStyleTExtObject := Value; +procedure TExtPanelAbstractPanel.SetFBodyStyleObject(Value : TExtObject); begin + FBodyStyleObject := Value; Value.DeleteFromGarbage; JSCode('bodyStyle:' + VarToJSON([Value, false])); end; @@ -39863,18 +39810,12 @@ procedure TExtPanelAbstractPanel.SetFDefaultDockWeights(Value : TExtObject); beg JSCode('defaultDockWeights:' + VarToJSON([Value, false])); end; -procedure TExtPanelAbstractPanel.SetFDockedItems(Value : TExtObject); begin +procedure TExtPanelAbstractPanel.SetFDockedItems(Value : TExtObjectList); begin FDockedItems := Value; Value.DeleteFromGarbage; JSCode('dockedItems:' + VarToJSON([Value, false])); end; -procedure TExtPanelAbstractPanel.SetFDockedItemsTExtObjectList(Value : TExtObjectList); begin - FDockedItemsTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('dockedItems:' + VarToJSON([Value, false])); -end; - procedure TExtPanelAbstractPanel.SetFShrinkWrapDock(Value : Boolean); begin FShrinkWrapDock := Value; JSCode('shrinkWrapDock:' + VarToJSON([Value])); @@ -39891,11 +39832,10 @@ function TExtPanelAbstractPanel.JSClassName : string; begin procedure TExtPanelAbstractPanel.InitDefaults; begin inherited; - FBodyClsTExtObjectList := TExtObjectList.Create(Self, 'bodyCls'); - FBodyStyleTExtObject := TExtObject.CreateInternal(Self, 'bodyStyle'); + FBodyClsList := TExtObjectList.Create(Self, 'bodyCls'); + FBodyStyleObject := TExtObject.CreateInternal(Self, 'bodyStyle'); FDefaultDockWeights := TExtObject.CreateInternal(Self, 'defaultDockWeights'); - FDockedItems := TExtObject.CreateInternal(Self, 'dockedItems'); - FDockedItemsTExtObjectList := TExtObjectList.Create(Self, 'dockedItems'); + FDockedItems := TExtObjectList.Create(Self, 'dockedItems'); end; {$IFDEF FPC}constructor TExtPanelAbstractPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -39952,11 +39892,10 @@ function TExtPanelAbstractPanel.SetBodyStyle(Style : String; Value : String) : T destructor TExtPanelAbstractPanel.Destroy; begin try - FBodyClsTExtObjectList.Free; - FBodyStyleTExtObject.Free; + FBodyClsList.Free; + FBodyStyleObject.Free; FDefaultDockWeights.Free; FDockedItems.Free; - FDockedItemsTExtObjectList.Free; except end; inherited; end; @@ -40078,12 +40017,6 @@ procedure TExtPanelHeader.HandleEvent(const AEvtName : string); begin FOnDblclick(TExtPanelHeader(ParamAsObject('This')), TExtEventObject(ParamAsObject('E'))); end; -function TExtDataBufferStore.JSClassName : string; begin - Result := 'Ext.data.BufferStore'; -end; - -{$IFDEF FPC}constructor TExtDataBufferStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - function TExtLayoutComponentProgressBar.JSClassName : string; begin Result := 'Ext.layout.component.ProgressBar'; end; @@ -40105,8 +40038,8 @@ procedure TExtEditor.SetFAutoSize(Value : Boolean); begin JSCode('autoSize:' + VarToJSON([Value])); end; -procedure TExtEditor.SetFAutoSizeTExtObject(Value : TExtObject); begin - FAutoSizeTExtObject := Value; +procedure TExtEditor.SetFAutoSizeObject(Value : TExtObject); begin + FAutoSizeObject := Value; Value.DeleteFromGarbage; JSCode('autoSize:' + VarToJSON([Value, false])); end; @@ -40152,8 +40085,8 @@ procedure TExtEditor.SetFParentEl(Value : String); begin JSCode('parentEl:' + VarToJSON([Value])); end; -procedure TExtEditor.SetFParentElTExtElement(Value : TExtElement); begin - FParentElTExtElement := Value; +procedure TExtEditor.SetFParentElElement(Value : TExtElement); begin + FParentElElement := Value; Value.DeleteFromGarbage; JSCode('parentEl:' + VarToJSON([Value, false])); end; @@ -40252,9 +40185,9 @@ function TExtEditor.JSClassName : string; begin procedure TExtEditor.InitDefaults; begin inherited; - FAutoSizeTExtObject := TExtObject.CreateInternal(Self, 'autoSize'); + FAutoSizeObject := TExtObject.CreateInternal(Self, 'autoSize'); FField := TExtFormField.CreateInternal(Self, 'field'); - FParentElTExtElement := TExtElement.CreateInternal(Self, 'parentEl'); + FParentElElement := TExtElement.CreateInternal(Self, 'parentEl'); FValue := TExtObject.CreateInternal(Self, 'value'); end; @@ -40297,9 +40230,9 @@ function TExtEditor.StartEdit(El : String; Value : String = '') : TExtFunction; destructor TExtEditor.Destroy; begin try - FAutoSizeTExtObject.Free; + FAutoSizeObject.Free; FField.Free; - FParentElTExtElement.Free; + FParentElElement.Free; FValue.Free; except end; inherited; @@ -40334,14 +40267,14 @@ procedure TExtFormFieldContainer.SetFActiveErrorsTpl(Value : String); begin JSCode('activeErrorsTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFActiveErrorsTplTExtObjectList(Value : TExtObjectList); begin - FActiveErrorsTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFActiveErrorsTplList(Value : TExtObjectList); begin + FActiveErrorsTplList := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFActiveErrorsTplTExtXTemplate(Value : TExtXTemplate); begin - FActiveErrorsTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFActiveErrorsTplTemplate(Value : TExtXTemplate); begin + FActiveErrorsTplTemplate := Value; Value.DeleteFromGarbage; JSCode('activeErrorsTpl:' + VarToJSON([Value, false])); end; @@ -40351,14 +40284,14 @@ procedure TExtFormFieldContainer.SetFAfterBodyEl(Value : String); begin JSCode('afterBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFAfterBodyElTExtObjectList(Value : TExtObjectList); begin - FAfterBodyElTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFAfterBodyElList(Value : TExtObjectList); begin + FAfterBodyElList := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFAfterBodyElTExtXTemplate(Value : TExtXTemplate); begin - FAfterBodyElTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFAfterBodyElTemplate(Value : TExtXTemplate); begin + FAfterBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('afterBodyEl:' + VarToJSON([Value, false])); end; @@ -40368,14 +40301,14 @@ procedure TExtFormFieldContainer.SetFAfterLabelTextTpl(Value : String); begin JSCode('afterLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFAfterLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFAfterLabelTextTplList(Value : TExtObjectList); begin + FAfterLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFAfterLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFAfterLabelTextTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -40385,14 +40318,14 @@ procedure TExtFormFieldContainer.SetFAfterLabelTpl(Value : String); begin JSCode('afterLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFAfterLabelTplTExtObjectList(Value : TExtObjectList); begin - FAfterLabelTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFAfterLabelTplList(Value : TExtObjectList); begin + FAfterLabelTplList := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFAfterLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterLabelTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFAfterLabelTplTemplate(Value : TExtXTemplate); begin + FAfterLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterLabelTpl:' + VarToJSON([Value, false])); end; @@ -40402,14 +40335,14 @@ procedure TExtFormFieldContainer.SetFAfterSubTpl(Value : String); begin JSCode('afterSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFAfterSubTplTExtObjectList(Value : TExtObjectList); begin - FAfterSubTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFAfterSubTplList(Value : TExtObjectList); begin + FAfterSubTplList := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFAfterSubTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterSubTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFAfterSubTplTemplate(Value : TExtXTemplate); begin + FAfterSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterSubTpl:' + VarToJSON([Value, false])); end; @@ -40429,14 +40362,14 @@ procedure TExtFormFieldContainer.SetFBeforeBodyEl(Value : String); begin JSCode('beforeBodyEl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFBeforeBodyElTExtObjectList(Value : TExtObjectList); begin - FBeforeBodyElTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFBeforeBodyElList(Value : TExtObjectList); begin + FBeforeBodyElList := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFBeforeBodyElTExtXTemplate(Value : TExtXTemplate); begin - FBeforeBodyElTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFBeforeBodyElTemplate(Value : TExtXTemplate); begin + FBeforeBodyElTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeBodyEl:' + VarToJSON([Value, false])); end; @@ -40446,14 +40379,14 @@ procedure TExtFormFieldContainer.SetFBeforeLabelTextTpl(Value : String); begin JSCode('beforeLabelTextTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFBeforeLabelTextTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTextTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFBeforeLabelTextTplList(Value : TExtObjectList); begin + FBeforeLabelTextTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFBeforeLabelTextTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTextTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFBeforeLabelTextTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTextTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTextTpl:' + VarToJSON([Value, false])); end; @@ -40463,14 +40396,14 @@ procedure TExtFormFieldContainer.SetFBeforeLabelTpl(Value : String); begin JSCode('beforeLabelTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFBeforeLabelTplTExtObjectList(Value : TExtObjectList); begin - FBeforeLabelTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFBeforeLabelTplList(Value : TExtObjectList); begin + FBeforeLabelTplList := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFBeforeLabelTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeLabelTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFBeforeLabelTplTemplate(Value : TExtXTemplate); begin + FBeforeLabelTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeLabelTpl:' + VarToJSON([Value, false])); end; @@ -40480,14 +40413,14 @@ procedure TExtFormFieldContainer.SetFBeforeSubTpl(Value : String); begin JSCode('beforeSubTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFBeforeSubTplTExtObjectList(Value : TExtObjectList); begin - FBeforeSubTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFBeforeSubTplList(Value : TExtObjectList); begin + FBeforeSubTplList := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFBeforeSubTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeSubTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFBeforeSubTplTemplate(Value : TExtXTemplate); begin + FBeforeSubTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeSubTpl:' + VarToJSON([Value, false])); end; @@ -40559,14 +40492,14 @@ procedure TExtFormFieldContainer.SetFLabelableRenderTpl(Value : String); begin JSCode('labelableRenderTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFLabelableRenderTplTExtObjectList(Value : TExtObjectList); begin - FLabelableRenderTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFLabelableRenderTplList(Value : TExtObjectList); begin + FLabelableRenderTplList := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFLabelableRenderTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelableRenderTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFLabelableRenderTplTemplate(Value : TExtXTemplate); begin + FLabelableRenderTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelableRenderTpl:' + VarToJSON([Value, false])); end; @@ -40581,14 +40514,14 @@ procedure TExtFormFieldContainer.SetFLabelAttrTpl(Value : String); begin JSCode('labelAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldContainer.SetFLabelAttrTplTExtObjectList(Value : TExtObjectList); begin - FLabelAttrTplTExtObjectList := Value; +procedure TExtFormFieldContainer.SetFLabelAttrTplList(Value : TExtObjectList); begin + FLabelAttrTplList := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldContainer.SetFLabelAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FLabelAttrTplTExtXTemplate := Value; +procedure TExtFormFieldContainer.SetFLabelAttrTplTemplate(Value : TExtXTemplate); begin + FLabelAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('labelAttrTpl:' + VarToJSON([Value, false])); end; @@ -40668,29 +40601,29 @@ function TExtFormFieldContainer.JSClassName : string; begin procedure TExtFormFieldContainer.InitDefaults; begin inherited; - FActiveErrorsTplTExtObjectList := TExtObjectList.Create(Self, 'activeErrorsTpl'); - FActiveErrorsTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); - FAfterBodyElTExtObjectList := TExtObjectList.Create(Self, 'afterBodyEl'); - FAfterBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); - FAfterLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); - FAfterLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); - FAfterLabelTplTExtObjectList := TExtObjectList.Create(Self, 'afterLabelTpl'); - FAfterLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); - FAfterSubTplTExtObjectList := TExtObjectList.Create(Self, 'afterSubTpl'); - FAfterSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); - FBeforeBodyElTExtObjectList := TExtObjectList.Create(Self, 'beforeBodyEl'); - FBeforeBodyElTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); - FBeforeLabelTextTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); - FBeforeLabelTextTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); - FBeforeLabelTplTExtObjectList := TExtObjectList.Create(Self, 'beforeLabelTpl'); - FBeforeLabelTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); - FBeforeSubTplTExtObjectList := TExtObjectList.Create(Self, 'beforeSubTpl'); - FBeforeSubTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); + FActiveErrorsTplList := TExtObjectList.Create(Self, 'activeErrorsTpl'); + FActiveErrorsTplTemplate := TExtXTemplate.CreateInternal(Self, 'activeErrorsTpl'); + FAfterBodyElList := TExtObjectList.Create(Self, 'afterBodyEl'); + FAfterBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'afterBodyEl'); + FAfterLabelTextTplList := TExtObjectList.Create(Self, 'afterLabelTextTpl'); + FAfterLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTextTpl'); + FAfterLabelTplList := TExtObjectList.Create(Self, 'afterLabelTpl'); + FAfterLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterLabelTpl'); + FAfterSubTplList := TExtObjectList.Create(Self, 'afterSubTpl'); + FAfterSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterSubTpl'); + FBeforeBodyElList := TExtObjectList.Create(Self, 'beforeBodyEl'); + FBeforeBodyElTemplate := TExtXTemplate.CreateInternal(Self, 'beforeBodyEl'); + FBeforeLabelTextTplList := TExtObjectList.Create(Self, 'beforeLabelTextTpl'); + FBeforeLabelTextTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTextTpl'); + FBeforeLabelTplList := TExtObjectList.Create(Self, 'beforeLabelTpl'); + FBeforeLabelTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeLabelTpl'); + FBeforeSubTplList := TExtObjectList.Create(Self, 'beforeSubTpl'); + FBeforeSubTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeSubTpl'); FFieldDefaults := TExtObject.CreateInternal(Self, 'fieldDefaults'); - FLabelableRenderTplTExtObjectList := TExtObjectList.Create(Self, 'labelableRenderTpl'); - FLabelableRenderTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); - FLabelAttrTplTExtObjectList := TExtObjectList.Create(Self, 'labelAttrTpl'); - FLabelAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); + FLabelableRenderTplList := TExtObjectList.Create(Self, 'labelableRenderTpl'); + FLabelableRenderTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelableRenderTpl'); + FLabelAttrTplList := TExtObjectList.Create(Self, 'labelAttrTpl'); + FLabelAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'labelAttrTpl'); FLabelConnector := ','; end; @@ -40792,8 +40725,8 @@ procedure TExtLayoutContainerAnchor.SetFAnchorSize(Value : Integer); begin JSCode('anchorSize:' + VarToJSON([Value])); end; -procedure TExtLayoutContainerAnchor.SetFAnchorSizeTExtObject(Value : TExtObject); begin - FAnchorSizeTExtObject := Value; +procedure TExtLayoutContainerAnchor.SetFAnchorSizeObject(Value : TExtObject); begin + FAnchorSizeObject := Value; Value.DeleteFromGarbage; JSCode('anchorSize:' + VarToJSON([Value, false])); end; @@ -40809,7 +40742,7 @@ function TExtLayoutContainerAnchor.JSClassName : string; begin procedure TExtLayoutContainerAnchor.InitDefaults; begin inherited; - FAnchorSizeTExtObject := TExtObject.CreateInternal(Self, 'anchorSize'); + FAnchorSizeObject := TExtObject.CreateInternal(Self, 'anchorSize'); end; {$IFDEF FPC}constructor TExtLayoutContainerAnchor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -40821,7 +40754,7 @@ constructor TExtLayoutContainerAnchor.Create; begin destructor TExtLayoutContainerAnchor.Destroy; begin try - FAnchorSizeTExtObject.Free; + FAnchorSizeObject.Free; except end; inherited; end; @@ -40888,88 +40821,177 @@ function TExtDataXmlStore.JSClassName : string; begin {$IFDEF FPC}constructor TExtDataXmlStore.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtFormFieldFile.SetFButtonConfig(Value : TExtObject); begin - FButtonConfig := Value; - Value.DeleteFromGarbage; - JSCode('buttonConfig:' + VarToJSON([Value, false])); +procedure TExtToolbarPaging.SetFAfterPageText(Value : String); begin + FAfterPageText := Value; + JSCode('afterPageText:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFButtonMargin(Value : Integer); begin - FButtonMargin := Value; - JSCode('buttonMargin:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFBeforePageText(Value : String); begin + FBeforePageText := Value; + JSCode('beforePageText:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFButtonOnly(Value : Boolean); begin - FButtonOnly := Value; - JSCode('buttonOnly:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFDisplayInfo(Value : Boolean); begin + FDisplayInfo := Value; + JSCode('displayInfo:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFButtonText(Value : String); begin - FButtonText := Value; - JSCode('buttonText:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFDisplayMsg(Value : String); begin + FDisplayMsg := Value; + JSCode('displayMsg:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFClearOnSubmit(Value : Boolean); begin - FClearOnSubmit := Value; - JSCode('clearOnSubmit:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFEmptyMsg(Value : String); begin + FEmptyMsg := Value; + JSCode('emptyMsg:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFFieldBodyCls(Value : String); begin - FFieldBodyCls := Value; - JSCode('fieldBodyCls:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFFirstText(Value : String); begin + FFirstText := Value; + JSCode('firstText:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.SetFReadOnly(Value : Boolean); begin - FReadOnly := Value; - JSCode('readOnly:' + VarToJSON([Value])); +procedure TExtToolbarPaging.SetFInputItemWidth(Value : Integer); begin + FInputItemWidth := Value; + JSCode('inputItemWidth:' + VarToJSON([Value])); end; -function TExtFormFieldFile.JSClassName : string; begin - Result := 'Ext.form.field.File'; +procedure TExtToolbarPaging.SetFLastText(Value : String); begin + FLastText := Value; + JSCode('lastText:' + VarToJSON([Value])); end; -procedure TExtFormFieldFile.InitDefaults; begin +procedure TExtToolbarPaging.SetFNextText(Value : String); begin + FNextText := Value; + JSCode('nextText:' + VarToJSON([Value])); +end; + +procedure TExtToolbarPaging.SetFPrependButtons(Value : Boolean); begin + FPrependButtons := Value; + JSCode('prependButtons:' + VarToJSON([Value])); +end; + +procedure TExtToolbarPaging.SetFPrevText(Value : String); begin + FPrevText := Value; + JSCode('prevText:' + VarToJSON([Value])); +end; + +procedure TExtToolbarPaging.SetFRefreshText(Value : String); begin + FRefreshText := Value; + JSCode('refreshText:' + VarToJSON([Value])); +end; + +procedure TExtToolbarPaging.SetFStore(Value : TExtDataStore); begin + FStore := Value; + Value.DeleteFromGarbage; + JSCode('store:' + VarToJSON([Value, false])); +end; + +procedure TExtToolbarPaging.SetFOnBeforechange(Value : TExtToolbarPagingOnBeforechange); begin + if Assigned(FOnBeforechange) then + JSCode(JSName+'.events ["beforechange"].listeners=[];'); + if Assigned(Value) then + AddListener('beforechange', Ajax('beforechange', ['This', '%0.nm','Page', '%1'], true)); + FOnBeforechange := Value; +end; + +procedure TExtToolbarPaging.SetFOnChange(Value : TExtToolbarPagingOnChange); begin + if Assigned(FOnChange) then + JSCode(JSName+'.events ["change"].listeners=[];'); + if Assigned(Value) then + AddListener('change', Ajax('change', ['This', '%0.nm','PageData', '%1.nm'], true)); + FOnChange := Value; +end; + +function TExtToolbarPaging.JSClassName : string; begin + Result := 'Ext.toolbar.Paging'; +end; + +procedure TExtToolbarPaging.InitDefaults; begin inherited; - FButtonConfig := TExtObject.CreateInternal(Self, 'buttonConfig'); + FStore := TExtDataStore.CreateInternal(Self, 'store'); end; -{$IFDEF FPC}constructor TExtFormFieldFile.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtToolbarPaging.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtFormFieldFile.Create; begin +function TExtToolbarPaging.Bind(Store : TExtDataStore) : TExtFunction; begin + JSCode(JSName + '.bind(' + VarToJSON([Store, false]) + ');', 'TExtToolbarPaging'); + Result := Self; +end; + +function TExtToolbarPaging.BindStore(Store : String = '') : TExtFunction; begin + JSCode(JSName + '.bindStore(' + VarToJSON([Store]) + ');', 'TExtToolbarPaging'); + Result := Self; +end; + +constructor TExtToolbarPaging.Create; begin CreateVar(JSClassName + '({});'); InitDefaults; end; -function TExtFormFieldFile.GetTriggerMarkup : TExtFunction; begin - JSCode(JSName + '.getTriggerMarkup();', 'TExtFormFieldFile'); +function TExtToolbarPaging.DoRefresh : TExtFunction; begin + JSCode(JSName + '.doRefresh();', 'TExtToolbarPaging'); Result := Self; end; -function TExtFormFieldFile.SetValueExtEmptyFnReset : TExtFunction; begin - JSCode(JSName + '.setValue: Ext.emptyFn, reset();', 'TExtFormFieldFile'); +function TExtToolbarPaging.GetStore : TExtFunction; begin + JSCode(JSName + '.getStore();', 'TExtToolbarPaging'); Result := Self; end; -destructor TExtFormFieldFile.Destroy; begin +function TExtToolbarPaging.MoveFirst : TExtFunction; begin + JSCode(JSName + '.moveFirst();', 'TExtToolbarPaging'); + Result := Self; +end; + +function TExtToolbarPaging.MoveLast : TExtFunction; begin + JSCode(JSName + '.moveLast();', 'TExtToolbarPaging'); + Result := Self; +end; + +function TExtToolbarPaging.MoveNext : TExtFunction; begin + JSCode(JSName + '.moveNext();', 'TExtToolbarPaging'); + Result := Self; +end; + +function TExtToolbarPaging.MovePrevious : TExtFunction; begin + JSCode(JSName + '.movePrevious();', 'TExtToolbarPaging'); + Result := Self; +end; + +function TExtToolbarPaging.Unbind(Store : TExtDataStore) : TExtFunction; begin + JSCode(JSName + '.unbind(' + VarToJSON([Store, false]) + ');', 'TExtToolbarPaging'); + Result := Self; +end; + +destructor TExtToolbarPaging.Destroy; begin try - FButtonConfig.Free; + FStore.Free; except end; inherited; end; +procedure TExtToolbarPaging.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'beforechange') and Assigned(FOnBeforechange) then + FOnBeforechange(TExtToolbarPaging(ParamAsObject('This')), ParamAsInteger('Page')) + else if (AEvtName = 'change') and Assigned(FOnChange) then + FOnChange(TExtToolbarPaging(ParamAsObject('This')), TExtObject(ParamAsObject('PageData'))); +end; + procedure TExtFormFieldHtmlEditor.SetFAfterIFrameTpl(Value : String); begin FAfterIFrameTpl := Value; JSCode('afterIFrameTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldHtmlEditor.SetFAfterIFrameTplTExtObjectList(Value : TExtObjectList); begin - FAfterIFrameTplTExtObjectList := Value; +procedure TExtFormFieldHtmlEditor.SetFAfterIFrameTplList(Value : TExtObjectList); begin + FAfterIFrameTplList := Value; Value.DeleteFromGarbage; JSCode('afterIFrameTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldHtmlEditor.SetFAfterIFrameTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterIFrameTplTExtXTemplate := Value; +procedure TExtFormFieldHtmlEditor.SetFAfterIFrameTplTemplate(Value : TExtXTemplate); begin + FAfterIFrameTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterIFrameTpl:' + VarToJSON([Value, false])); end; @@ -40979,14 +41001,14 @@ procedure TExtFormFieldHtmlEditor.SetFAfterTextAreaTpl(Value : String); begin JSCode('afterTextAreaTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldHtmlEditor.SetFAfterTextAreaTplTExtObjectList(Value : TExtObjectList); begin - FAfterTextAreaTplTExtObjectList := Value; +procedure TExtFormFieldHtmlEditor.SetFAfterTextAreaTplList(Value : TExtObjectList); begin + FAfterTextAreaTplList := Value; Value.DeleteFromGarbage; JSCode('afterTextAreaTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldHtmlEditor.SetFAfterTextAreaTplTExtXTemplate(Value : TExtXTemplate); begin - FAfterTextAreaTplTExtXTemplate := Value; +procedure TExtFormFieldHtmlEditor.SetFAfterTextAreaTplTemplate(Value : TExtXTemplate); begin + FAfterTextAreaTplTemplate := Value; Value.DeleteFromGarbage; JSCode('afterTextAreaTpl:' + VarToJSON([Value, false])); end; @@ -40996,14 +41018,14 @@ procedure TExtFormFieldHtmlEditor.SetFBeforeIFrameTpl(Value : String); begin JSCode('beforeIFrameTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldHtmlEditor.SetFBeforeIFrameTplTExtObjectList(Value : TExtObjectList); begin - FBeforeIFrameTplTExtObjectList := Value; +procedure TExtFormFieldHtmlEditor.SetFBeforeIFrameTplList(Value : TExtObjectList); begin + FBeforeIFrameTplList := Value; Value.DeleteFromGarbage; JSCode('beforeIFrameTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldHtmlEditor.SetFBeforeIFrameTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeIFrameTplTExtXTemplate := Value; +procedure TExtFormFieldHtmlEditor.SetFBeforeIFrameTplTemplate(Value : TExtXTemplate); begin + FBeforeIFrameTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeIFrameTpl:' + VarToJSON([Value, false])); end; @@ -41013,14 +41035,14 @@ procedure TExtFormFieldHtmlEditor.SetFBeforeTextAreaTpl(Value : String); begin JSCode('beforeTextAreaTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldHtmlEditor.SetFBeforeTextAreaTplTExtObjectList(Value : TExtObjectList); begin - FBeforeTextAreaTplTExtObjectList := Value; +procedure TExtFormFieldHtmlEditor.SetFBeforeTextAreaTplList(Value : TExtObjectList); begin + FBeforeTextAreaTplList := Value; Value.DeleteFromGarbage; JSCode('beforeTextAreaTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldHtmlEditor.SetFBeforeTextAreaTplTExtXTemplate(Value : TExtXTemplate); begin - FBeforeTextAreaTplTExtXTemplate := Value; +procedure TExtFormFieldHtmlEditor.SetFBeforeTextAreaTplTemplate(Value : TExtXTemplate); begin + FBeforeTextAreaTplTemplate := Value; Value.DeleteFromGarbage; JSCode('beforeTextAreaTpl:' + VarToJSON([Value, false])); end; @@ -41101,14 +41123,14 @@ procedure TExtFormFieldHtmlEditor.SetFIframeAttrTpl(Value : String); begin JSCode('iframeAttrTpl:' + VarToJSON([Value])); end; -procedure TExtFormFieldHtmlEditor.SetFIframeAttrTplTExtObjectList(Value : TExtObjectList); begin - FIframeAttrTplTExtObjectList := Value; +procedure TExtFormFieldHtmlEditor.SetFIframeAttrTplList(Value : TExtObjectList); begin + FIframeAttrTplList := Value; Value.DeleteFromGarbage; JSCode('iframeAttrTpl:' + VarToJSON([Value, false])); end; -procedure TExtFormFieldHtmlEditor.SetFIframeAttrTplTExtXTemplate(Value : TExtXTemplate); begin - FIframeAttrTplTExtXTemplate := Value; +procedure TExtFormFieldHtmlEditor.SetFIframeAttrTplTemplate(Value : TExtXTemplate); begin + FIframeAttrTplTemplate := Value; Value.DeleteFromGarbage; JSCode('iframeAttrTpl:' + VarToJSON([Value, false])); end; @@ -41213,17 +41235,17 @@ function TExtFormFieldHtmlEditor.JSClassName : string; begin procedure TExtFormFieldHtmlEditor.InitDefaults; begin inherited; - FAfterIFrameTplTExtObjectList := TExtObjectList.Create(Self, 'afterIFrameTpl'); - FAfterIFrameTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterIFrameTpl'); - FAfterTextAreaTplTExtObjectList := TExtObjectList.Create(Self, 'afterTextAreaTpl'); - FAfterTextAreaTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'afterTextAreaTpl'); - FBeforeIFrameTplTExtObjectList := TExtObjectList.Create(Self, 'beforeIFrameTpl'); - FBeforeIFrameTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeIFrameTpl'); - FBeforeTextAreaTplTExtObjectList := TExtObjectList.Create(Self, 'beforeTextAreaTpl'); - FBeforeTextAreaTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'beforeTextAreaTpl'); + FAfterIFrameTplList := TExtObjectList.Create(Self, 'afterIFrameTpl'); + FAfterIFrameTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterIFrameTpl'); + FAfterTextAreaTplList := TExtObjectList.Create(Self, 'afterTextAreaTpl'); + FAfterTextAreaTplTemplate := TExtXTemplate.CreateInternal(Self, 'afterTextAreaTpl'); + FBeforeIFrameTplList := TExtObjectList.Create(Self, 'beforeIFrameTpl'); + FBeforeIFrameTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeIFrameTpl'); + FBeforeTextAreaTplList := TExtObjectList.Create(Self, 'beforeTextAreaTpl'); + FBeforeTextAreaTplTemplate := TExtXTemplate.CreateInternal(Self, 'beforeTextAreaTpl'); FFontFamilies := TExtObjectList.Create(Self, 'fontFamilies'); - FIframeAttrTplTExtObjectList := TExtObjectList.Create(Self, 'iframeAttrTpl'); - FIframeAttrTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'iframeAttrTpl'); + FIframeAttrTplList := TExtObjectList.Create(Self, 'iframeAttrTpl'); + FIframeAttrTplTemplate := TExtXTemplate.CreateInternal(Self, 'iframeAttrTpl'); FOriginalValue := TExtObject.CreateInternal(Self, 'originalValue'); FValue := TExtObject.CreateInternal(Self, 'value'); end; @@ -41332,17 +41354,17 @@ function TExtFormFieldHtmlEditor.Validate : TExtFunction; begin destructor TExtFormFieldHtmlEditor.Destroy; begin try - FAfterIFrameTplTExtObjectList.Free; - FAfterIFrameTplTExtXTemplate.Free; - FAfterTextAreaTplTExtObjectList.Free; - FAfterTextAreaTplTExtXTemplate.Free; - FBeforeIFrameTplTExtObjectList.Free; - FBeforeIFrameTplTExtXTemplate.Free; - FBeforeTextAreaTplTExtObjectList.Free; - FBeforeTextAreaTplTExtXTemplate.Free; + FAfterIFrameTplList.Free; + FAfterIFrameTplTemplate.Free; + FAfterTextAreaTplList.Free; + FAfterTextAreaTplTemplate.Free; + FBeforeIFrameTplList.Free; + FBeforeIFrameTplTemplate.Free; + FBeforeTextAreaTplList.Free; + FBeforeTextAreaTplTemplate.Free; FFontFamilies.Free; - FIframeAttrTplTExtObjectList.Free; - FIframeAttrTplTExtXTemplate.Free; + FIframeAttrTplList.Free; + FIframeAttrTplTemplate.Free; FOriginalValue.Free; FValue.Free; except end; @@ -41369,6 +41391,75 @@ procedure TExtFormFieldHtmlEditor.HandleEvent(const AEvtName : string); begin FOnSync(TExtFormFieldHtmlEditor(ParamAsObject('This')), ParamAsString('Html')); end; +procedure TExtFormFieldFile.SetFButtonConfig(Value : TExtObject); begin + FButtonConfig := Value; + Value.DeleteFromGarbage; + JSCode('buttonConfig:' + VarToJSON([Value, false])); +end; + +procedure TExtFormFieldFile.SetFButtonMargin(Value : Integer); begin + FButtonMargin := Value; + JSCode('buttonMargin:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldFile.SetFButtonOnly(Value : Boolean); begin + FButtonOnly := Value; + JSCode('buttonOnly:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldFile.SetFButtonText(Value : String); begin + FButtonText := Value; + JSCode('buttonText:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldFile.SetFClearOnSubmit(Value : Boolean); begin + FClearOnSubmit := Value; + JSCode('clearOnSubmit:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldFile.SetFFieldBodyCls(Value : String); begin + FFieldBodyCls := Value; + JSCode('fieldBodyCls:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldFile.SetFReadOnly(Value : Boolean); begin + FReadOnly := Value; + JSCode('readOnly:' + VarToJSON([Value])); +end; + +function TExtFormFieldFile.JSClassName : string; begin + Result := 'Ext.form.field.File'; +end; + +procedure TExtFormFieldFile.InitDefaults; begin + inherited; + FButtonConfig := TExtObject.CreateInternal(Self, 'buttonConfig'); +end; + +{$IFDEF FPC}constructor TExtFormFieldFile.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtFormFieldFile.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtFormFieldFile.GetTriggerMarkup : TExtFunction; begin + JSCode(JSName + '.getTriggerMarkup();', 'TExtFormFieldFile'); + Result := Self; +end; + +function TExtFormFieldFile.SetValueExtEmptyFnReset : TExtFunction; begin + JSCode(JSName + '.setValue: Ext.emptyFn, reset();', 'TExtFormFieldFile'); + Result := Self; +end; + +destructor TExtFormFieldFile.Destroy; begin + try + FButtonConfig.Free; + except end; + inherited; +end; + procedure TExtDdDragZone.SetFContainerScroll(Value : TExtObject); begin FContainerScroll := Value; Value.DeleteFromGarbage; @@ -41385,8 +41476,8 @@ procedure TExtDdDragZone.SetFScrollEl(Value : String); begin JSCode('scrollEl:' + VarToJSON([Value])); end; -procedure TExtDdDragZone.SetFScrollElTExtDomElement(Value : TExtDomElement); begin - FScrollElTExtDomElement := Value; +procedure TExtDdDragZone.SetFScrollElElement(Value : TExtDomElement); begin + FScrollElElement := Value; Value.DeleteFromGarbage; JSCode('scrollEl:' + VarToJSON([Value, false])); end; @@ -41404,7 +41495,7 @@ function TExtDdDragZone.JSClassName : string; begin procedure TExtDdDragZone.InitDefaults; begin inherited; FContainerScroll := TExtObject.CreateInternal(Self, 'containerScroll'); - FScrollElTExtDomElement := TExtDomElement.CreateInternal(Self, 'scrollEl'); + FScrollElElement := TExtDomElement.CreateInternal(Self, 'scrollEl'); end; {$IFDEF FPC}constructor TExtDdDragZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -41422,7 +41513,7 @@ function TExtDdDragZone.GetDragData(E : TEvent) : TExtFunction; begin destructor TExtDdDragZone.Destroy; begin try FContainerScroll.Free; - FScrollElTExtDomElement.Free; + FScrollElElement.Free; except end; inherited; end; @@ -41433,6 +41524,81 @@ function TExtDrawSpriteDD.JSClassName : string; begin {$IFDEF FPC}constructor TExtDrawSpriteDD.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtTreeView.SetFAnimate(Value : Boolean); begin + FAnimate := Value; + JSCode('animate:' + VarToJSON([Value])); +end; + +procedure TExtTreeView.SetFDeferInitialRefresh(Value : Boolean); begin + FDeferInitialRefresh := Value; + JSCode('deferInitialRefresh:' + VarToJSON([Value])); +end; + +procedure TExtTreeView.SetFRootVisible(Value : Boolean); begin + FRootVisible := Value; + JSCode('rootVisible:' + VarToJSON([Value])); +end; + +procedure TExtTreeView.SetFOnAfteritemcollapse(Value : TExtTreeViewOnAfteritemcollapse); begin + if Assigned(FOnAfteritemcollapse) then + JSCode(JSName+'.events ["afteritemcollapse"].listeners=[];'); + if Assigned(Value) then + AddListener('afteritemcollapse', Ajax('afteritemcollapse', ['Node', '%0.nm','Index', '%1','Item', '%2.nm'], true)); + FOnAfteritemcollapse := Value; +end; + +procedure TExtTreeView.SetFOnAfteritemexpand(Value : TExtTreeViewOnAfteritemexpand); begin + if Assigned(FOnAfteritemexpand) then + JSCode(JSName+'.events ["afteritemexpand"].listeners=[];'); + if Assigned(Value) then + AddListener('afteritemexpand', Ajax('afteritemexpand', ['Node', '%0.nm','Index', '%1','Item', '%2.nm'], true)); + FOnAfteritemexpand := Value; +end; + +procedure TExtTreeView.SetFOnNodedragover(Value : TExtTreeViewOnNodedragover); begin + if Assigned(FOnNodedragover) then + JSCode(JSName+'.events ["nodedragover"].listeners=[];'); + if Assigned(Value) then + AddListener('nodedragover', Ajax('nodedragover', ['TargetNode', '%0.nm','Position', '%1','DragData', '%2.nm','E', '%3.nm'], true)); + FOnNodedragover := Value; +end; + +function TExtTreeView.JSClassName : string; begin + Result := 'Ext.tree.View'; +end; + +{$IFDEF FPC}constructor TExtTreeView.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtTreeView.Collapse(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.collapse(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); + Result := Self; +end; + +function TExtTreeView.Expand(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.expand(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); + Result := Self; +end; + +function TExtTreeView.GetTreeStore : TExtFunction; begin + JSCode(JSName + '.getTreeStore();', 'TExtTreeView'); + Result := Self; +end; + +function TExtTreeView.Toggle(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.toggle(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); + Result := Self; +end; + +procedure TExtTreeView.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'afteritemcollapse') and Assigned(FOnAfteritemcollapse) then + FOnAfteritemcollapse(TExtDataNodeInterface(ParamAsObject('Node')), ParamAsInteger('Index'), THTMLElement(ParamAsObject('Item'))) + else if (AEvtName = 'afteritemexpand') and Assigned(FOnAfteritemexpand) then + FOnAfteritemexpand(TExtDataNodeInterface(ParamAsObject('Node')), ParamAsInteger('Index'), THTMLElement(ParamAsObject('Item'))) + else if (AEvtName = 'nodedragover') and Assigned(FOnNodedragover) then + FOnNodedragover(TExtDataNodeInterface(ParamAsObject('TargetNode')), ParamAsString('Position'), TExtObject(ParamAsObject('DragData')), TExtEventObject(ParamAsObject('E'))); +end; + procedure TExtFormFieldSpinner.SetFKeyNavEnabled(Value : Boolean); begin FKeyNavEnabled := Value; JSCode('keyNavEnabled:' + VarToJSON([Value])); @@ -41531,81 +41697,6 @@ destructor TExtFormFieldSpinner.Destroy; begin inherited; end; -procedure TExtTreeView.SetFAnimate(Value : Boolean); begin - FAnimate := Value; - JSCode('animate:' + VarToJSON([Value])); -end; - -procedure TExtTreeView.SetFDeferInitialRefresh(Value : Boolean); begin - FDeferInitialRefresh := Value; - JSCode('deferInitialRefresh:' + VarToJSON([Value])); -end; - -procedure TExtTreeView.SetFRootVisible(Value : Boolean); begin - FRootVisible := Value; - JSCode('rootVisible:' + VarToJSON([Value])); -end; - -procedure TExtTreeView.SetFOnAfteritemcollapse(Value : TExtTreeViewOnAfteritemcollapse); begin - if Assigned(FOnAfteritemcollapse) then - JSCode(JSName+'.events ["afteritemcollapse"].listeners=[];'); - if Assigned(Value) then - AddListener('afteritemcollapse', Ajax('afteritemcollapse', ['Node', '%0.nm','Index', '%1','Item', '%2.nm'], true)); - FOnAfteritemcollapse := Value; -end; - -procedure TExtTreeView.SetFOnAfteritemexpand(Value : TExtTreeViewOnAfteritemexpand); begin - if Assigned(FOnAfteritemexpand) then - JSCode(JSName+'.events ["afteritemexpand"].listeners=[];'); - if Assigned(Value) then - AddListener('afteritemexpand', Ajax('afteritemexpand', ['Node', '%0.nm','Index', '%1','Item', '%2.nm'], true)); - FOnAfteritemexpand := Value; -end; - -procedure TExtTreeView.SetFOnNodedragover(Value : TExtTreeViewOnNodedragover); begin - if Assigned(FOnNodedragover) then - JSCode(JSName+'.events ["nodedragover"].listeners=[];'); - if Assigned(Value) then - AddListener('nodedragover', Ajax('nodedragover', ['TargetNode', '%0.nm','Position', '%1','DragData', '%2.nm','E', '%3.nm'], true)); - FOnNodedragover := Value; -end; - -function TExtTreeView.JSClassName : string; begin - Result := 'Ext.tree.View'; -end; - -{$IFDEF FPC}constructor TExtTreeView.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtTreeView.Collapse(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.collapse(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); - Result := Self; -end; - -function TExtTreeView.Expand(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.expand(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); - Result := Self; -end; - -function TExtTreeView.GetTreeStore : TExtFunction; begin - JSCode(JSName + '.getTreeStore();', 'TExtTreeView'); - Result := Self; -end; - -function TExtTreeView.Toggle(RecordJS : TExtDataModel; Deep : Boolean = false; Callback : TExtFunction = nil; Scope : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.toggle(' + VarToJSON([RecordJS, false, Deep, Callback, true, Scope, false]) + ');', 'TExtTreeView'); - Result := Self; -end; - -procedure TExtTreeView.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'afteritemcollapse') and Assigned(FOnAfteritemcollapse) then - FOnAfteritemcollapse(TExtDataNodeInterface(ParamAsObject('Node')), ParamAsInteger('Index'), THTMLElement(ParamAsObject('Item'))) - else if (AEvtName = 'afteritemexpand') and Assigned(FOnAfteritemexpand) then - FOnAfteritemexpand(TExtDataNodeInterface(ParamAsObject('Node')), ParamAsInteger('Index'), THTMLElement(ParamAsObject('Item'))) - else if (AEvtName = 'nodedragover') and Assigned(FOnNodedragover) then - FOnNodedragover(TExtDataNodeInterface(ParamAsObject('TargetNode')), ParamAsString('Position'), TExtObject(ParamAsObject('DragData')), TExtEventObject(ParamAsObject('E'))); -end; - procedure TExtFormFieldPicker.SetFEditable(Value : Boolean); begin FEditable := Value; JSCode('editable:' + VarToJSON([Value])); @@ -41733,8 +41824,8 @@ procedure TExtFormCheckboxGroup.SetFItems(Value : TExtObjectList); begin JSCode('items:' + VarToJSON([Value, false])); end; -procedure TExtFormCheckboxGroup.SetFItemsTExtObjectList(Value : TExtObjectList); begin - FItemsTExtObjectList := Value; +procedure TExtFormCheckboxGroup.SetFItemsList(Value : TExtObjectList); begin + FItemsList := Value; Value.DeleteFromGarbage; JSCode('items:' + VarToJSON([Value, false])); end; @@ -41781,7 +41872,7 @@ function TExtFormCheckboxGroup.JSClassName : string; begin procedure TExtFormCheckboxGroup.InitDefaults; begin inherited; FItems := TExtObjectList.Create(Self, 'items'); - FItemsTExtObjectList := TExtObjectList.Create(Self, 'items'); + FItemsList := TExtObjectList.Create(Self, 'items'); FOriginalValue := TExtObject.CreateInternal(Self, 'originalValue'); FValue := TExtObject.CreateInternal(Self, 'value'); end; @@ -41886,171 +41977,13 @@ function TExtFormCheckboxGroup.Validate : TExtFunction; begin destructor TExtFormCheckboxGroup.Destroy; begin try FItems.Free; - FItemsTExtObjectList.Free; + FItemsList.Free; FOriginalValue.Free; FValue.Free; except end; inherited; end; -procedure TExtToolbarPaging.SetFAfterPageText(Value : String); begin - FAfterPageText := Value; - JSCode('afterPageText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFBeforePageText(Value : String); begin - FBeforePageText := Value; - JSCode('beforePageText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFDisplayInfo(Value : Boolean); begin - FDisplayInfo := Value; - JSCode('displayInfo:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFDisplayMsg(Value : String); begin - FDisplayMsg := Value; - JSCode('displayMsg:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFEmptyMsg(Value : String); begin - FEmptyMsg := Value; - JSCode('emptyMsg:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFFirstText(Value : String); begin - FFirstText := Value; - JSCode('firstText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFInputItemWidth(Value : Integer); begin - FInputItemWidth := Value; - JSCode('inputItemWidth:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFLastText(Value : String); begin - FLastText := Value; - JSCode('lastText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFNextText(Value : String); begin - FNextText := Value; - JSCode('nextText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFPrependButtons(Value : Boolean); begin - FPrependButtons := Value; - JSCode('prependButtons:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFPrevText(Value : String); begin - FPrevText := Value; - JSCode('prevText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFRefreshText(Value : String); begin - FRefreshText := Value; - JSCode('refreshText:' + VarToJSON([Value])); -end; - -procedure TExtToolbarPaging.SetFStore(Value : TExtDataStore); begin - FStore := Value; - Value.DeleteFromGarbage; - JSCode('store:' + VarToJSON([Value, false])); -end; - -procedure TExtToolbarPaging.SetFOnBeforechange(Value : TExtToolbarPagingOnBeforechange); begin - if Assigned(FOnBeforechange) then - JSCode(JSName+'.events ["beforechange"].listeners=[];'); - if Assigned(Value) then - AddListener('beforechange', Ajax('beforechange', ['This', '%0.nm','Page', '%1'], true)); - FOnBeforechange := Value; -end; - -procedure TExtToolbarPaging.SetFOnChange(Value : TExtToolbarPagingOnChange); begin - if Assigned(FOnChange) then - JSCode(JSName+'.events ["change"].listeners=[];'); - if Assigned(Value) then - AddListener('change', Ajax('change', ['This', '%0.nm','PageData', '%1.nm'], true)); - FOnChange := Value; -end; - -function TExtToolbarPaging.JSClassName : string; begin - Result := 'Ext.toolbar.Paging'; -end; - -procedure TExtToolbarPaging.InitDefaults; begin - inherited; - FStore := TExtDataStore.CreateInternal(Self, 'store'); -end; - -{$IFDEF FPC}constructor TExtToolbarPaging.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtToolbarPaging.Bind(Store : TExtDataStore) : TExtFunction; begin - JSCode(JSName + '.bind(' + VarToJSON([Store, false]) + ');', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.BindStore(Store : String = '') : TExtFunction; begin - JSCode(JSName + '.bindStore(' + VarToJSON([Store]) + ');', 'TExtToolbarPaging'); - Result := Self; -end; - -constructor TExtToolbarPaging.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtToolbarPaging.DoRefresh : TExtFunction; begin - JSCode(JSName + '.doRefresh();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.GetStore : TExtFunction; begin - JSCode(JSName + '.getStore();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.MoveFirst : TExtFunction; begin - JSCode(JSName + '.moveFirst();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.MoveLast : TExtFunction; begin - JSCode(JSName + '.moveLast();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.MoveNext : TExtFunction; begin - JSCode(JSName + '.moveNext();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.MovePrevious : TExtFunction; begin - JSCode(JSName + '.movePrevious();', 'TExtToolbarPaging'); - Result := Self; -end; - -function TExtToolbarPaging.Unbind(Store : TExtDataStore) : TExtFunction; begin - JSCode(JSName + '.unbind(' + VarToJSON([Store, false]) + ');', 'TExtToolbarPaging'); - Result := Self; -end; - -destructor TExtToolbarPaging.Destroy; begin - try - FStore.Free; - except end; - inherited; -end; - -procedure TExtToolbarPaging.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'beforechange') and Assigned(FOnBeforechange) then - FOnBeforechange(TExtToolbarPaging(ParamAsObject('This')), ParamAsInteger('Page')) - else if (AEvtName = 'change') and Assigned(FOnChange) then - FOnChange(TExtToolbarPaging(ParamAsObject('This')), TExtObject(ParamAsObject('PageData'))); -end; - function TExtLayoutComponentFieldText.JSClassName : string; begin Result := 'Ext.layout.component.field.Text'; end; @@ -42149,35 +42082,23 @@ procedure TExtPanel.SetFAnimCollapse(Value : Boolean); begin JSCode('animCollapse:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFBbar(Value : TExtObject); begin +procedure TExtPanel.SetFBbar(Value : TExtObjectList); begin FBbar := Value; Value.DeleteFromGarbage; JSCode('bbar:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFBbarTExtObjectList(Value : TExtObjectList); begin - FBbarTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('bbar:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFButtonAlign(Value : String); begin FButtonAlign := Value; JSCode('buttonAlign:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFButtons(Value : TExtObject); begin +procedure TExtPanel.SetFButtons(Value : TExtObjectList); begin FButtons := Value; Value.DeleteFromGarbage; JSCode('buttons:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFButtonsTExtObjectList(Value : TExtObjectList); begin - FButtonsTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('buttons:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFClosable(Value : Boolean); begin FClosable := Value; JSCode('closable:' + VarToJSON([Value])); @@ -42228,30 +42149,18 @@ procedure TExtPanel.SetFConstrainHeader(Value : Boolean); begin JSCode('constrainHeader:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFDockedItems(Value : TExtObject); begin +procedure TExtPanel.SetFDockedItems(Value : TExtObjectList); begin FDockedItems := Value; Value.DeleteFromGarbage; JSCode('dockedItems:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFDockedItemsTExtObjectList(Value : TExtObjectList); begin - FDockedItemsTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('dockedItems:' + VarToJSON([Value, false])); -end; - -procedure TExtPanel.SetFFbar(Value : TExtObject); begin +procedure TExtPanel.SetFFbar(Value : TExtObjectList); begin FFbar := Value; Value.DeleteFromGarbage; JSCode('fbar:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFFbarTExtObjectList(Value : TExtObjectList); begin - FFbarTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('fbar:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFFloatable(Value : Boolean); begin FFloatable := Value; JSCode('floatable:' + VarToJSON([Value])); @@ -42282,6 +42191,12 @@ procedure TExtPanel.SetFHeader(Value : Boolean); begin JSCode('header:' + VarToJSON([Value])); end; +procedure TExtPanel.SetFHeaderObject(Value : TExtObject); begin + FHeaderObject := Value; + Value.DeleteFromGarbage; + JSCode('header:' + VarToJSON([Value, false])); +end; + procedure TExtPanel.SetFHeaderOverCls(Value : String); begin FHeaderOverCls := Value; JSCode('headerOverCls:' + VarToJSON([Value])); @@ -42292,12 +42207,6 @@ procedure TExtPanel.SetFHeaderPosition(Value : String); begin JSCode('headerPosition:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFHeaderTExtObject(Value : TExtObject); begin - FHeaderTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('header:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFHideCollapseTool(Value : Boolean); begin FHideCollapseTool := Value; JSCode('hideCollapseTool:' + VarToJSON([Value])); @@ -42313,18 +42222,12 @@ procedure TExtPanel.SetFIconCls(Value : String); begin JSCode('iconCls:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFLbar(Value : TExtObject); begin +procedure TExtPanel.SetFLbar(Value : TExtObjectList); begin FLbar := Value; Value.DeleteFromGarbage; JSCode('lbar:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFLbarTExtObjectList(Value : TExtObjectList); begin - FLbarTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('lbar:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFManageHeight(Value : Boolean); begin FManageHeight := Value; JSCode('manageHeight:' + VarToJSON([Value])); @@ -42351,41 +42254,29 @@ procedure TExtPanel.SetFPlaceholderCollapseHideMode(Value : Integer); begin JSCode('placeholderCollapseHideMode:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFPlaceholderTExtObject(Value : TExtObject); begin - FPlaceholderTExtObject := Value; +procedure TExtPanel.SetFPlaceholderObject(Value : TExtObject); begin + FPlaceholderObject := Value; Value.DeleteFromGarbage; JSCode('placeholder:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFRbar(Value : TExtObject); begin +procedure TExtPanel.SetFRbar(Value : TExtObjectList); begin FRbar := Value; Value.DeleteFromGarbage; JSCode('rbar:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFRbarTExtObjectList(Value : TExtObjectList); begin - FRbarTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('rbar:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFSimpleDrag(Value : Boolean); begin FSimpleDrag := Value; JSCode('simpleDrag:' + VarToJSON([Value])); end; -procedure TExtPanel.SetFTbar(Value : TExtObject); begin +procedure TExtPanel.SetFTbar(Value : TExtObjectList); begin FTbar := Value; Value.DeleteFromGarbage; JSCode('tbar:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFTbarTExtObjectList(Value : TExtObjectList); begin - FTbarTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('tbar:' + VarToJSON([Value, false])); -end; - procedure TExtPanel.SetFTitle(Value : String); begin FTitle := Value; JSCode('title:' + VarToJSON([Value])); @@ -42407,8 +42298,8 @@ procedure TExtPanel.SetFTools(Value : TExtObjectList); begin JSCode('tools:' + VarToJSON([Value, false])); end; -procedure TExtPanel.SetFToolsTExtObjectList(Value : TExtObjectList); begin - FToolsTExtObjectList := Value; +procedure TExtPanel.SetFToolsList(Value : TExtObjectList); begin + FToolsList := Value; Value.DeleteFromGarbage; JSCode('tools:' + VarToJSON([Value, false])); end; @@ -42419,26 +42310,19 @@ function TExtPanel.JSClassName : string; begin procedure TExtPanel.InitDefaults; begin inherited; - FBbar := TExtObject.CreateInternal(Self, 'bbar'); - FBbarTExtObjectList := TExtObjectList.Create(Self, 'bbar'); - FButtons := TExtObject.CreateInternal(Self, 'buttons'); - FButtonsTExtObjectList := TExtObjectList.Create(Self, 'buttons'); - FDockedItems := TExtObject.CreateInternal(Self, 'dockedItems'); - FDockedItemsTExtObjectList := TExtObjectList.Create(Self, 'dockedItems'); - FFbar := TExtObject.CreateInternal(Self, 'fbar'); - FFbarTExtObjectList := TExtObjectList.Create(Self, 'fbar'); - FHeaderTExtObject := TExtObject.CreateInternal(Self, 'header'); - FLbar := TExtObject.CreateInternal(Self, 'lbar'); - FLbarTExtObjectList := TExtObjectList.Create(Self, 'lbar'); + FBbar := TExtObjectList.Create(Self, 'bbar'); + FButtons := TExtObjectList.Create(Self, 'buttons'); + FDockedItems := TExtObjectList.Create(Self, 'dockedItems'); + FFbar := TExtObjectList.Create(Self, 'fbar'); + FHeaderObject := TExtObject.CreateInternal(Self, 'header'); + FLbar := TExtObjectList.Create(Self, 'lbar'); FPlaceholder := TExtComponent.CreateInternal(Self, 'placeholder'); - FPlaceholderTExtObject := TExtObject.CreateInternal(Self, 'placeholder'); - FRbar := TExtObject.CreateInternal(Self, 'rbar'); - FRbarTExtObjectList := TExtObjectList.Create(Self, 'rbar'); - FTbar := TExtObject.CreateInternal(Self, 'tbar'); - FTbarTExtObjectList := TExtObjectList.Create(Self, 'tbar'); + FPlaceholderObject := TExtObject.CreateInternal(Self, 'placeholder'); + FRbar := TExtObjectList.Create(Self, 'rbar'); + FTbar := TExtObjectList.Create(Self, 'tbar'); FTitleAlign := 's natural * behavior depending on the css direction property - `'; FTools := TExtObjectList.Create(Self, 'tools'); - FToolsTExtObjectList := TExtObjectList.Create(Self, 'tools'); + FToolsList := TExtObjectList.Create(Self, 'tools'); end; {$IFDEF FPC}constructor TExtPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -42486,24 +42370,17 @@ function TExtPanel.ToggleCollapse : TExtFunction; begin destructor TExtPanel.Destroy; begin try FBbar.Free; - FBbarTExtObjectList.Free; FButtons.Free; - FButtonsTExtObjectList.Free; FDockedItems.Free; - FDockedItemsTExtObjectList.Free; FFbar.Free; - FFbarTExtObjectList.Free; - FHeaderTExtObject.Free; + FHeaderObject.Free; FLbar.Free; - FLbarTExtObjectList.Free; FPlaceholder.Free; - FPlaceholderTExtObject.Free; + FPlaceholderObject.Free; FRbar.Free; - FRbarTExtObjectList.Free; FTbar.Free; - FTbarTExtObjectList.Free; FTools.Free; - FToolsTExtObjectList.Free; + FToolsList.Free; except end; inherited; end; @@ -42577,11 +42454,35 @@ function TExtViewDropZone.JSClassName : string; begin {$IFDEF FPC}constructor TExtViewDropZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtGridColumnLayout.JSClassName : string; begin - Result := 'Ext.grid.ColumnLayout'; +procedure TExtTabBar.SetFPlain(Value : Boolean); begin + FPlain := Value; + JSCode('plain:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtGridColumnLayout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtTabBar.SetFTitle(Value : String); begin + FTitle := Value; + JSCode('title:' + VarToJSON([Value])); +end; + +procedure TExtTabBar.SetFOnChange(Value : TExtTabBarOnChange); begin + if Assigned(FOnChange) then + JSCode(JSName+'.events ["change"].listeners=[];'); + if Assigned(Value) then + AddListener('change', Ajax('change', ['TabBar', '%0.nm','Tab', '%1.nm','Card', '%2.nm'], true)); + FOnChange := Value; +end; + +function TExtTabBar.JSClassName : string; begin + Result := 'Ext.tab.Bar'; +end; + +{$IFDEF FPC}constructor TExtTabBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtTabBar.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'change') and Assigned(FOnChange) then + FOnChange(TExtTabBar(ParamAsObject('TabBar')), TExtTab(ParamAsObject('Tab')), TExtComponent(ParamAsObject('Card'))); +end; function TExtGridCellEditor.JSClassName : string; begin Result := 'Ext.grid.CellEditor'; @@ -42810,35 +42711,11 @@ function TExtGridHeaderDropZone.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridHeaderDropZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtTabBar.SetFPlain(Value : Boolean); begin - FPlain := Value; - JSCode('plain:' + VarToJSON([Value])); -end; - -procedure TExtTabBar.SetFTitle(Value : String); begin - FTitle := Value; - JSCode('title:' + VarToJSON([Value])); -end; - -procedure TExtTabBar.SetFOnChange(Value : TExtTabBarOnChange); begin - if Assigned(FOnChange) then - JSCode(JSName+'.events ["change"].listeners=[];'); - if Assigned(Value) then - AddListener('change', Ajax('change', ['TabBar', '%0.nm','Tab', '%1.nm','Card', '%2.nm'], true)); - FOnChange := Value; -end; - -function TExtTabBar.JSClassName : string; begin - Result := 'Ext.tab.Bar'; +function TExtGridColumnLayout.JSClassName : string; begin + Result := 'Ext.grid.ColumnLayout'; end; -{$IFDEF FPC}constructor TExtTabBar.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtTabBar.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'change') and Assigned(FOnChange) then - FOnChange(TExtTabBar(ParamAsObject('TabBar')), TExtTab(ParamAsObject('Tab')), TExtComponent(ParamAsObject('Card'))); -end; +{$IFDEF FPC}constructor TExtGridColumnLayout.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} function TExtGridPropertyHeaderContainer.JSClassName : string; begin Result := 'Ext.grid.property.HeaderContainer'; @@ -42856,8 +42733,8 @@ procedure TExtWindow.SetFAnimateTarget(Value : String); begin JSCode('animateTarget:' + VarToJSON([Value])); end; -procedure TExtWindow.SetFAnimateTargetTExtElement(Value : TExtElement); begin - FAnimateTargetTExtElement := Value; +procedure TExtWindow.SetFAnimateTargetElement(Value : TExtElement); begin + FAnimateTargetElement := Value; Value.DeleteFromGarbage; JSCode('animateTarget:' + VarToJSON([Value, false])); end; @@ -42898,17 +42775,17 @@ procedure TExtWindow.SetFDefaultFocus(Value : String); begin JSCode('defaultFocus:' + VarToJSON([Value])); end; +procedure TExtWindow.SetFDefaultFocusComponent(Value : TExtComponent); begin + FDefaultFocusComponent := Value; + Value.DeleteFromGarbage; + JSCode('defaultFocus:' + VarToJSON([Value, false])); +end; + procedure TExtWindow.SetFDefaultFocusInteger(Value : Integer); begin FDefaultFocusInteger := Value; JSCode('defaultFocus:' + VarToJSON([Value])); end; -procedure TExtWindow.SetFDefaultFocusTExtComponent(Value : TExtComponent); begin - FDefaultFocusTExtComponent := Value; - Value.DeleteFromGarbage; - JSCode('defaultFocus:' + VarToJSON([Value, false])); -end; - procedure TExtWindow.SetFDraggable(Value : Boolean); begin FDraggable := Value; JSCode('draggable:' + VarToJSON([Value])); @@ -42924,8 +42801,8 @@ procedure TExtWindow.SetFGhost(Value : Boolean); begin JSCode('ghost:' + VarToJSON([Value])); end; -procedure TExtWindow.SetFGhostTExtFunction(Value : TExtFunction); begin - FGhostTExtFunction := Value; +procedure TExtWindow.SetFGhostFunction(Value : TExtFunction); begin + FGhostFunction := Value; JSCode('ghost:' + VarToJSON([Value, true])); end; @@ -42979,8 +42856,8 @@ procedure TExtWindow.SetFResizable(Value : Boolean); begin JSCode('resizable:' + VarToJSON([Value])); end; -procedure TExtWindow.SetFResizableTExtObject(Value : TExtObject); begin - FResizableTExtObject := Value; +procedure TExtWindow.SetFResizableObject(Value : TExtObject); begin + FResizableObject := Value; Value.DeleteFromGarbage; JSCode('resizable:' + VarToJSON([Value, false])); end; @@ -43001,10 +42878,10 @@ function TExtWindow.JSClassName : string; begin procedure TExtWindow.InitDefaults; begin inherited; - FAnimateTargetTExtElement := TExtElement.CreateInternal(Self, 'animateTarget'); + FAnimateTargetElement := TExtElement.CreateInternal(Self, 'animateTarget'); FDd := TExtUtilComponentDragger.CreateInternal(Self, 'dd'); - FDefaultFocusTExtComponent := TExtComponent.CreateInternal(Self, 'defaultFocus'); - FResizableTExtObject := TExtObject.CreateInternal(Self, 'resizable'); + FDefaultFocusComponent := TExtComponent.CreateInternal(Self, 'defaultFocus'); + FResizableObject := TExtObject.CreateInternal(Self, 'resizable'); end; {$IFDEF FPC}constructor TExtWindow.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -43041,10 +42918,10 @@ function TExtWindow.ToggleMaximize : TExtFunction; begin destructor TExtWindow.Destroy; begin try - FAnimateTargetTExtElement.Free; + FAnimateTargetElement.Free; FDd.Free; - FDefaultFocusTExtComponent.Free; - FResizableTExtObject.Free; + FDefaultFocusComponent.Free; + FResizableObject.Free; except end; inherited; end; @@ -43066,16 +42943,39 @@ function TExtGridColumnNumber.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridColumnNumber.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtGridColumnDate.SetFFormat(Value : String); begin - FFormat := Value; - JSCode('format:' + VarToJSON([Value])); +procedure TExtGridColumnTemplate.SetFTpl(Value : String); begin + FTpl := Value; + JSCode('tpl:' + VarToJSON([Value])); end; -function TExtGridColumnDate.JSClassName : string; begin - Result := 'Ext.grid.column.Date'; +procedure TExtGridColumnTemplate.SetFTplTemplate(Value : TExtXTemplate); begin + FTplTemplate := Value; + Value.DeleteFromGarbage; + JSCode('tpl:' + VarToJSON([Value, false])); end; -{$IFDEF FPC}constructor TExtGridColumnDate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtGridColumnTemplate.JSClassName : string; begin + Result := 'Ext.grid.column.Template'; +end; + +procedure TExtGridColumnTemplate.InitDefaults; begin + inherited; + FTplTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); +end; + +{$IFDEF FPC}constructor TExtGridColumnTemplate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtGridColumnTemplate.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtGridColumnTemplate.Destroy; begin + try + FTplTemplate.Free; + except end; + inherited; +end; procedure TExtGridColumnCheckColumn.SetFStopSelection(Value : Boolean); begin FStopSelection := Value; @@ -43122,45 +43022,34 @@ procedure TExtGridColumnCheckColumn.HandleEvent(const AEvtName : string); begin FOnCheckchange(TExtGridColumnCheckColumn(ParamAsObject('This')), ParamAsInteger('RowIndex'), ParamAsBoolean('Checked')); end; -procedure TExtGridColumnTemplate.SetFTpl(Value : String); begin - FTpl := Value; - JSCode('tpl:' + VarToJSON([Value])); +procedure TExtGridColumnDate.SetFFormat(Value : String); begin + FFormat := Value; + JSCode('format:' + VarToJSON([Value])); end; -procedure TExtGridColumnTemplate.SetFTplTExtXTemplate(Value : TExtXTemplate); begin - FTplTExtXTemplate := Value; - Value.DeleteFromGarbage; - JSCode('tpl:' + VarToJSON([Value, false])); +function TExtGridColumnDate.JSClassName : string; begin + Result := 'Ext.grid.column.Date'; end; -function TExtGridColumnTemplate.JSClassName : string; begin - Result := 'Ext.grid.column.Template'; -end; +{$IFDEF FPC}constructor TExtGridColumnDate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtGridColumnTemplate.InitDefaults; begin - inherited; - FTplTExtXTemplate := TExtXTemplate.CreateInternal(Self, 'tpl'); +function TExtGridViewDropZone.JSClassName : string; begin + Result := 'Ext.grid.ViewDropZone'; end; -{$IFDEF FPC}constructor TExtGridColumnTemplate.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtGridViewDropZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -constructor TExtGridColumnTemplate.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; +function TExtLayoutComponentFieldComboBox.JSClassName : string; begin + Result := 'Ext.layout.component.field.ComboBox'; end; -destructor TExtGridColumnTemplate.Destroy; begin - try - FTplTExtXTemplate.Free; - except end; - inherited; -end; +{$IFDEF FPC}constructor TExtLayoutComponentFieldComboBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtGridViewDropZone.JSClassName : string; begin - Result := 'Ext.grid.ViewDropZone'; +function TExtGridHeaderDragZone.JSClassName : string; begin + Result := 'Ext.grid.header.DragZone'; end; -{$IFDEF FPC}constructor TExtGridViewDropZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +{$IFDEF FPC}constructor TExtGridHeaderDragZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} procedure TExtGridRowNumberer.SetFDraggable(Value : Boolean); begin FDraggable := Value; @@ -43183,33 +43072,6 @@ function TExtGridRowNumberer.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridRowNumberer.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtGridHeaderDragZone.JSClassName : string; begin - Result := 'Ext.grid.header.DragZone'; -end; - -{$IFDEF FPC}constructor TExtGridHeaderDragZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtGridColumnBoolean.SetFFalseText(Value : String); begin - FFalseText := Value; - JSCode('falseText:' + VarToJSON([Value])); -end; - -procedure TExtGridColumnBoolean.SetFTrueText(Value : String); begin - FTrueText := Value; - JSCode('trueText:' + VarToJSON([Value])); -end; - -procedure TExtGridColumnBoolean.SetFUndefinedText(Value : String); begin - FUndefinedText := Value; - JSCode('undefinedText:' + VarToJSON([Value])); -end; - -function TExtGridColumnBoolean.JSClassName : string; begin - Result := 'Ext.grid.column.Boolean'; -end; - -{$IFDEF FPC}constructor TExtGridColumnBoolean.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtFormFieldDate.SetFAltFormats(Value : String); begin FAltFormats := Value; JSCode('altFormats:' + VarToJSON([Value])); @@ -43330,6 +43192,152 @@ destructor TExtFormFieldDate.Destroy; begin inherited; end; +procedure TExtFormFieldNumber.SetFAllowDecimals(Value : Boolean); begin + FAllowDecimals := Value; + JSCode('allowDecimals:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFAutoStripChars(Value : Boolean); begin + FAutoStripChars := Value; + JSCode('autoStripChars:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFBaseChars(Value : String); begin + FBaseChars := Value; + JSCode('baseChars:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFDecimalPrecision(Value : Integer); begin + FDecimalPrecision := Value; + JSCode('decimalPrecision:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFDecimalSeparator(Value : String); begin + FDecimalSeparator := Value; + JSCode('decimalSeparator:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFMaxText(Value : String); begin + FMaxText := Value; + JSCode('maxText:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFMaxValue(Value : Integer); begin + FMaxValue := Value; + if not ConfigAvailable(JSName) then + SetMaxValue(Value) + else + JSCode('maxValue:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFMinText(Value : String); begin + FMinText := Value; + JSCode('minText:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFMinValue(Value : Integer); begin + FMinValue := Value; + if not ConfigAvailable(JSName) then + SetMinValue(Value) + else + JSCode('minValue:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFNanText(Value : String); begin + FNanText := Value; + JSCode('nanText:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFNegativeText(Value : String); begin + FNegativeText := Value; + JSCode('negativeText:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFStep(Value : Integer); begin + FStep := Value; + JSCode('step:' + VarToJSON([Value])); +end; + +procedure TExtFormFieldNumber.SetFSubmitLocaleSeparator(Value : Boolean); begin + FSubmitLocaleSeparator := Value; + JSCode('submitLocaleSeparator:' + VarToJSON([Value])); +end; + +function TExtFormFieldNumber.JSClassName : string; begin + Result := 'Ext.form.field.Number'; +end; + +{$IFDEF FPC}constructor TExtFormFieldNumber.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFormFieldNumber.GetErrors(Value : TExtObject = nil) : TExtFunction; begin + JSCode(JSName + '.getErrors(' + VarToJSON([Value, false]) + ');', 'TExtFormFieldNumber'); + Result := Self; +end; + +function TExtFormFieldNumber.SetMaxValue(Value : Integer) : TExtFunction; begin + JSCode(JSName + '.setMaxValue(' + VarToJSON([Value]) + ');', 'TExtFormFieldNumber'); + Result := Self; +end; + +function TExtFormFieldNumber.SetMinValue(Value : Integer) : TExtFunction; begin + JSCode(JSName + '.setMinValue(' + VarToJSON([Value]) + ');', 'TExtFormFieldNumber'); + Result := Self; +end; + +procedure TExtContainerButtonGroup.SetFBaseCls(Value : String); begin + FBaseCls := Value; + JSCode('baseCls:' + VarToJSON([Value])); +end; + +procedure TExtContainerButtonGroup.SetFColumns(Value : Integer); begin + FColumns := Value; + JSCode('columns:' + VarToJSON([Value])); +end; + +procedure TExtContainerButtonGroup.SetFDefaultButtonUI(Value : String); begin + FDefaultButtonUI := Value; + JSCode('defaultButtonUI:' + VarToJSON([Value])); +end; + +procedure TExtContainerButtonGroup.SetFFrame(Value : Boolean); begin + FFrame := Value; + JSCode('frame:' + VarToJSON([Value])); +end; + +procedure TExtContainerButtonGroup.SetFLayout(Value : TExtEnumsLayout); begin + FLayout := Value; + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); +end; + +procedure TExtContainerButtonGroup.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; + Value.DeleteFromGarbage; + JSCode('layout:' + VarToJSON([Value, false])); +end; + +function TExtContainerButtonGroup.JSClassName : string; begin + Result := 'Ext.container.ButtonGroup'; +end; + +procedure TExtContainerButtonGroup.InitDefaults; begin + inherited; + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); +end; + +{$IFDEF FPC}constructor TExtContainerButtonGroup.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtContainerButtonGroup.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtContainerButtonGroup.Destroy; begin + try + FLayoutObject.Free; + except end; + inherited; +end; + procedure TExtFormFieldComboBox.SetFAllQuery(Value : String); begin FAllQuery := Value; JSCode('allQuery:' + VarToJSON([Value])); @@ -43423,24 +43431,24 @@ procedure TExtFormFieldComboBox.SetFStore(Value : TExtDataStore); begin JSCode('store:' + VarToJSON([Value, false])); end; +procedure TExtFormFieldComboBox.SetFStoreList(Value : TExtObjectList); begin + FStoreList := Value; + Value.DeleteFromGarbage; + JSCode('store:' + VarToJSON([Value, false])); +end; + procedure TExtFormFieldComboBox.SetFStoreString(Value : String); begin FStoreString := Value; JSCode('store:' + VarToJSON([Value])); end; -procedure TExtFormFieldComboBox.SetFStoreTExtObjectList(Value : TExtObjectList); begin - FStoreTExtObjectList := Value; - Value.DeleteFromGarbage; - JSCode('store:' + VarToJSON([Value, false])); -end; - procedure TExtFormFieldComboBox.SetFTransform(Value : String); begin FTransform := Value; JSCode('transform:' + VarToJSON([Value])); end; -procedure TExtFormFieldComboBox.SetFTransformTExtElement(Value : TExtElement); begin - FTransformTExtElement := Value; +procedure TExtFormFieldComboBox.SetFTransformElement(Value : TExtElement); begin + FTransformElement := Value; Value.DeleteFromGarbage; JSCode('transform:' + VarToJSON([Value, false])); end; @@ -43523,8 +43531,8 @@ procedure TExtFormFieldComboBox.InitDefaults; begin FListConfig := TExtObject.CreateInternal(Self, 'listConfig'); FQueryDelay := 500; FStore := TExtDataStore.CreateInternal(Self, 'store'); - FStoreTExtObjectList := TExtObjectList.Create(Self, 'store'); - FTransformTExtElement := TExtElement.CreateInternal(Self, 'transform'); + FStoreList := TExtObjectList.Create(Self, 'store'); + FTransformElement := TExtElement.CreateInternal(Self, 'transform'); end; {$IFDEF FPC}constructor TExtFormFieldComboBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -43584,8 +43592,8 @@ destructor TExtFormFieldComboBox.Destroy; begin FDefaultListConfig.Free; FListConfig.Free; FStore.Free; - FStoreTExtObjectList.Free; - FTransformTExtElement.Free; + FStoreList.Free; + FTransformElement.Free; except end; inherited; end; @@ -43602,155 +43610,6 @@ procedure TExtFormFieldComboBox.HandleEvent(const AEvtName : string); begin FOnSelect(TExtFormFieldComboBox(ParamAsObject('Combo')), TExtObjectList(ParamAsObject('Records'))); end; -procedure TExtContainerButtonGroup.SetFBaseCls(Value : String); begin - FBaseCls := Value; - JSCode('baseCls:' + VarToJSON([Value])); -end; - -procedure TExtContainerButtonGroup.SetFColumns(Value : Integer); begin - FColumns := Value; - JSCode('columns:' + VarToJSON([Value])); -end; - -procedure TExtContainerButtonGroup.SetFDefaultButtonUI(Value : String); begin - FDefaultButtonUI := Value; - JSCode('defaultButtonUI:' + VarToJSON([Value])); -end; - -procedure TExtContainerButtonGroup.SetFFrame(Value : Boolean); begin - FFrame := Value; - JSCode('frame:' + VarToJSON([Value])); -end; - -procedure TExtContainerButtonGroup.SetFLayout(Value : TExtEnumsLayout); begin - FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -procedure TExtContainerButtonGroup.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -function TExtContainerButtonGroup.JSClassName : string; begin - Result := 'Ext.container.ButtonGroup'; -end; - -procedure TExtContainerButtonGroup.InitDefaults; begin - inherited; - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); -end; - -{$IFDEF FPC}constructor TExtContainerButtonGroup.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtContainerButtonGroup.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtContainerButtonGroup.Destroy; begin - try - FLayout.Free; - FLayoutTExtObject.Free; - except end; - inherited; -end; - -procedure TExtFormFieldNumber.SetFAllowDecimals(Value : Boolean); begin - FAllowDecimals := Value; - JSCode('allowDecimals:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFAutoStripChars(Value : Boolean); begin - FAutoStripChars := Value; - JSCode('autoStripChars:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFBaseChars(Value : String); begin - FBaseChars := Value; - JSCode('baseChars:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFDecimalPrecision(Value : Integer); begin - FDecimalPrecision := Value; - JSCode('decimalPrecision:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFDecimalSeparator(Value : String); begin - FDecimalSeparator := Value; - JSCode('decimalSeparator:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFMaxText(Value : String); begin - FMaxText := Value; - JSCode('maxText:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFMaxValue(Value : Integer); begin - FMaxValue := Value; - if not ConfigAvailable(JSName) then - SetMaxValue(Value) - else - JSCode('maxValue:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFMinText(Value : String); begin - FMinText := Value; - JSCode('minText:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFMinValue(Value : Integer); begin - FMinValue := Value; - if not ConfigAvailable(JSName) then - SetMinValue(Value) - else - JSCode('minValue:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFNanText(Value : String); begin - FNanText := Value; - JSCode('nanText:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFNegativeText(Value : String); begin - FNegativeText := Value; - JSCode('negativeText:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFStep(Value : Integer); begin - FStep := Value; - JSCode('step:' + VarToJSON([Value])); -end; - -procedure TExtFormFieldNumber.SetFSubmitLocaleSeparator(Value : Boolean); begin - FSubmitLocaleSeparator := Value; - JSCode('submitLocaleSeparator:' + VarToJSON([Value])); -end; - -function TExtFormFieldNumber.JSClassName : string; begin - Result := 'Ext.form.field.Number'; -end; - -{$IFDEF FPC}constructor TExtFormFieldNumber.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtFormFieldNumber.GetErrors(Value : TExtObject = nil) : TExtFunction; begin - JSCode(JSName + '.getErrors(' + VarToJSON([Value, false]) + ');', 'TExtFormFieldNumber'); - Result := Self; -end; - -function TExtFormFieldNumber.SetMaxValue(Value : Integer) : TExtFunction; begin - JSCode(JSName + '.setMaxValue(' + VarToJSON([Value]) + ');', 'TExtFormFieldNumber'); - Result := Self; -end; - -function TExtFormFieldNumber.SetMinValue(Value : Integer) : TExtFunction; begin - JSCode(JSName + '.setMinValue(' + VarToJSON([Value]) + ');', 'TExtFormFieldNumber'); - Result := Self; -end; - procedure TExtGridColumnAction.SetFAltText(Value : String); begin FAltText := Value; JSCode('altText:' + VarToJSON([Value])); @@ -43853,6 +43712,214 @@ destructor TExtGridColumnAction.Destroy; begin inherited; end; +procedure TExtGridColumnBoolean.SetFFalseText(Value : String); begin + FFalseText := Value; + JSCode('falseText:' + VarToJSON([Value])); +end; + +procedure TExtGridColumnBoolean.SetFTrueText(Value : String); begin + FTrueText := Value; + JSCode('trueText:' + VarToJSON([Value])); +end; + +procedure TExtGridColumnBoolean.SetFUndefinedText(Value : String); begin + FUndefinedText := Value; + JSCode('undefinedText:' + VarToJSON([Value])); +end; + +function TExtGridColumnBoolean.JSClassName : string; begin + Result := 'Ext.grid.column.Boolean'; +end; + +{$IFDEF FPC}constructor TExtGridColumnBoolean.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtFormPanel.SetFFieldDefaults(Value : TExtObject); begin + FFieldDefaults := Value; + Value.DeleteFromGarbage; + JSCode('fieldDefaults:' + VarToJSON([Value, false])); +end; + +procedure TExtFormPanel.SetFLayout(Value : TExtEnumsLayout); begin + FLayout := Value; + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); +end; + +procedure TExtFormPanel.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; + Value.DeleteFromGarbage; + JSCode('layout:' + VarToJSON([Value, false])); +end; + +procedure TExtFormPanel.SetFPollForChanges(Value : Boolean); begin + FPollForChanges := Value; + JSCode('pollForChanges:' + VarToJSON([Value])); +end; + +procedure TExtFormPanel.SetFPollInterval(Value : Integer); begin + FPollInterval := Value; + JSCode('pollInterval:' + VarToJSON([Value])); +end; + +procedure TExtFormPanel.SetFOnActioncomplete(Value : TExtFormPanelOnActioncomplete); begin + if Assigned(FOnActioncomplete) then + JSCode(JSName+'.events ["actioncomplete"].listeners=[];'); + if Assigned(Value) then + AddListener('actioncomplete', Ajax('actioncomplete', [], true)); + FOnActioncomplete := Value; +end; + +procedure TExtFormPanel.SetFOnActionfailed(Value : TExtFormPanelOnActionfailed); begin + if Assigned(FOnActionfailed) then + JSCode(JSName+'.events ["actionfailed"].listeners=[];'); + if Assigned(Value) then + AddListener('actionfailed', Ajax('actionfailed', [], true)); + FOnActionfailed := Value; +end; + +procedure TExtFormPanel.SetFOnBeforeaction(Value : TExtFormPanelOnBeforeaction); begin + if Assigned(FOnBeforeaction) then + JSCode(JSName+'.events ["beforeaction"].listeners=[];'); + if Assigned(Value) then + AddListener('beforeaction', Ajax('beforeaction', [], true)); + FOnBeforeaction := Value; +end; + +procedure TExtFormPanel.SetFOnDirtychange(Value : TExtFormPanelOnDirtychange); begin + if Assigned(FOnDirtychange) then + JSCode(JSName+'.events ["dirtychange"].listeners=[];'); + if Assigned(Value) then + AddListener('dirtychange', Ajax('dirtychange', [], true)); + FOnDirtychange := Value; +end; + +procedure TExtFormPanel.SetFOnFielderrorchange(Value : TExtFormPanelOnFielderrorchange); begin + if Assigned(FOnFielderrorchange) then + JSCode(JSName+'.events ["fielderrorchange"].listeners=[];'); + if Assigned(Value) then + AddListener('fielderrorchange', Ajax('fielderrorchange', ['This', '%0.nm','The', '%1.nm','Error', '%2'], true)); + FOnFielderrorchange := Value; +end; + +procedure TExtFormPanel.SetFOnFieldvaliditychange(Value : TExtFormPanelOnFieldvaliditychange); begin + if Assigned(FOnFieldvaliditychange) then + JSCode(JSName+'.events ["fieldvaliditychange"].listeners=[];'); + if Assigned(Value) then + AddListener('fieldvaliditychange', Ajax('fieldvaliditychange', ['This', '%0.nm','The', '%1.nm','IsValid', '%2'], true)); + FOnFieldvaliditychange := Value; +end; + +procedure TExtFormPanel.SetFOnValiditychange(Value : TExtFormPanelOnValiditychange); begin + if Assigned(FOnValiditychange) then + JSCode(JSName+'.events ["validitychange"].listeners=[];'); + if Assigned(Value) then + AddListener('validitychange', Ajax('validitychange', [], true)); + FOnValiditychange := Value; +end; + +function TExtFormPanel.JSClassName : string; begin + Result := 'Ext.form.Panel'; +end; + +procedure TExtFormPanel.InitDefaults; begin + inherited; + FFieldDefaults := TExtObject.CreateInternal(Self, 'fieldDefaults'); + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); + FPollInterval := 500; +end; + +{$IFDEF FPC}constructor TExtFormPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtFormPanel.CheckChange : TExtFunction; begin + JSCode(JSName + '.checkChange();', 'TExtFormPanel'); + Result := Self; +end; + +constructor TExtFormPanel.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtFormPanel.GetForm : TExtFunction; begin + JSCode(JSName + '.getForm();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.GetRecord : TExtFunction; begin + JSCode(JSName + '.getRecord();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.GetValues : TExtFunction; begin + JSCode(JSName + '.getValues();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.HasInvalidField : TExtFunction; begin + JSCode(JSName + '.hasInvalidField();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.IsDirty : TExtFunction; begin + JSCode(JSName + '.isDirty();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.IsValid : TExtFunction; begin + JSCode(JSName + '.isValid();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.Load(Options : TExtObject) : TExtFunction; begin + JSCode(JSName + '.load(' + VarToJSON([Options, false]) + ');', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.LoadRecord(RecordJS : TExtDataModel) : TExtFunction; begin + JSCode(JSName + '.loadRecord(' + VarToJSON([RecordJS, false]) + ');', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.StartPolling(Interval : Integer) : TExtFunction; begin + JSCode(JSName + '.startPolling(' + VarToJSON([Interval]) + ');', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.StopPolling : TExtFunction; begin + JSCode(JSName + '.stopPolling();', 'TExtFormPanel'); + Result := Self; +end; + +function TExtFormPanel.Submit(Options : TExtObject) : TExtFunction; begin + JSCode(JSName + '.submit(' + VarToJSON([Options, false]) + ');', 'TExtFormPanel'); + Result := Self; +end; + +destructor TExtFormPanel.Destroy; begin + try + FFieldDefaults.Free; + FLayoutObject.Free; + except end; + inherited; +end; + +procedure TExtFormPanel.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'actioncomplete') and Assigned(FOnActioncomplete) then + FOnActioncomplete() + else if (AEvtName = 'actionfailed') and Assigned(FOnActionfailed) then + FOnActionfailed() + else if (AEvtName = 'beforeaction') and Assigned(FOnBeforeaction) then + FOnBeforeaction() + else if (AEvtName = 'dirtychange') and Assigned(FOnDirtychange) then + FOnDirtychange() + else if (AEvtName = 'fielderrorchange') and Assigned(FOnFielderrorchange) then + FOnFielderrorchange(TExtFormFieldAncestor(ParamAsObject('This')), TExtFormLabelable(ParamAsObject('The')), ParamAsString('Error')) + else if (AEvtName = 'fieldvaliditychange') and Assigned(FOnFieldvaliditychange) then + FOnFieldvaliditychange(TExtFormFieldAncestor(ParamAsObject('This')), TExtFormLabelable(ParamAsObject('The')), ParamAsString('IsValid')) + else if (AEvtName = 'validitychange') and Assigned(FOnValiditychange) then + FOnValiditychange(); +end; + procedure TExtFormRadioGroup.SetFAllowBlank(Value : Boolean); begin FAllowBlank := Value; JSCode('allowBlank:' + VarToJSON([Value])); @@ -43869,8 +43936,8 @@ procedure TExtFormRadioGroup.SetFItems(Value : TExtObjectList); begin JSCode('items:' + VarToJSON([Value, false])); end; -procedure TExtFormRadioGroup.SetFItemsTExtObjectList(Value : TExtObjectList); begin - FItemsTExtObjectList := Value; +procedure TExtFormRadioGroup.SetFItemsList(Value : TExtObjectList); begin + FItemsList := Value; Value.DeleteFromGarbage; JSCode('items:' + VarToJSON([Value, false])); end; @@ -43882,7 +43949,7 @@ function TExtFormRadioGroup.JSClassName : string; begin procedure TExtFormRadioGroup.InitDefaults; begin inherited; FItems := TExtObjectList.Create(Self, 'items'); - FItemsTExtObjectList := TExtObjectList.Create(Self, 'items'); + FItemsList := TExtObjectList.Create(Self, 'items'); end; {$IFDEF FPC}constructor TExtFormRadioGroup.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -43900,345 +43967,11 @@ function TExtFormRadioGroup.SetValue(Value : TExtObject) : TExtFunction; begin destructor TExtFormRadioGroup.Destroy; begin try FItems.Free; - FItemsTExtObjectList.Free; + FItemsList.Free; except end; inherited; end; -procedure TExtFormPanel.SetFFieldDefaults(Value : TExtObject); begin - FFieldDefaults := Value; - Value.DeleteFromGarbage; - JSCode('fieldDefaults:' + VarToJSON([Value, false])); -end; - -procedure TExtFormPanel.SetFLayout(Value : TExtEnumsLayout); begin - FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -procedure TExtFormPanel.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -procedure TExtFormPanel.SetFPollForChanges(Value : Boolean); begin - FPollForChanges := Value; - JSCode('pollForChanges:' + VarToJSON([Value])); -end; - -procedure TExtFormPanel.SetFPollInterval(Value : Integer); begin - FPollInterval := Value; - JSCode('pollInterval:' + VarToJSON([Value])); -end; - -procedure TExtFormPanel.SetFOnActioncomplete(Value : TExtFormPanelOnActioncomplete); begin - if Assigned(FOnActioncomplete) then - JSCode(JSName+'.events ["actioncomplete"].listeners=[];'); - if Assigned(Value) then - AddListener('actioncomplete', Ajax('actioncomplete', [], true)); - FOnActioncomplete := Value; -end; - -procedure TExtFormPanel.SetFOnActionfailed(Value : TExtFormPanelOnActionfailed); begin - if Assigned(FOnActionfailed) then - JSCode(JSName+'.events ["actionfailed"].listeners=[];'); - if Assigned(Value) then - AddListener('actionfailed', Ajax('actionfailed', [], true)); - FOnActionfailed := Value; -end; - -procedure TExtFormPanel.SetFOnBeforeaction(Value : TExtFormPanelOnBeforeaction); begin - if Assigned(FOnBeforeaction) then - JSCode(JSName+'.events ["beforeaction"].listeners=[];'); - if Assigned(Value) then - AddListener('beforeaction', Ajax('beforeaction', [], true)); - FOnBeforeaction := Value; -end; - -procedure TExtFormPanel.SetFOnDirtychange(Value : TExtFormPanelOnDirtychange); begin - if Assigned(FOnDirtychange) then - JSCode(JSName+'.events ["dirtychange"].listeners=[];'); - if Assigned(Value) then - AddListener('dirtychange', Ajax('dirtychange', [], true)); - FOnDirtychange := Value; -end; - -procedure TExtFormPanel.SetFOnFielderrorchange(Value : TExtFormPanelOnFielderrorchange); begin - if Assigned(FOnFielderrorchange) then - JSCode(JSName+'.events ["fielderrorchange"].listeners=[];'); - if Assigned(Value) then - AddListener('fielderrorchange', Ajax('fielderrorchange', ['This', '%0.nm','The', '%1.nm','Error', '%2'], true)); - FOnFielderrorchange := Value; -end; - -procedure TExtFormPanel.SetFOnFieldvaliditychange(Value : TExtFormPanelOnFieldvaliditychange); begin - if Assigned(FOnFieldvaliditychange) then - JSCode(JSName+'.events ["fieldvaliditychange"].listeners=[];'); - if Assigned(Value) then - AddListener('fieldvaliditychange', Ajax('fieldvaliditychange', ['This', '%0.nm','The', '%1.nm','IsValid', '%2'], true)); - FOnFieldvaliditychange := Value; -end; - -procedure TExtFormPanel.SetFOnValiditychange(Value : TExtFormPanelOnValiditychange); begin - if Assigned(FOnValiditychange) then - JSCode(JSName+'.events ["validitychange"].listeners=[];'); - if Assigned(Value) then - AddListener('validitychange', Ajax('validitychange', [], true)); - FOnValiditychange := Value; -end; - -function TExtFormPanel.JSClassName : string; begin - Result := 'Ext.form.Panel'; -end; - -procedure TExtFormPanel.InitDefaults; begin - inherited; - FFieldDefaults := TExtObject.CreateInternal(Self, 'fieldDefaults'); - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); - FPollInterval := 500; -end; - -{$IFDEF FPC}constructor TExtFormPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtFormPanel.CheckChange : TExtFunction; begin - JSCode(JSName + '.checkChange();', 'TExtFormPanel'); - Result := Self; -end; - -constructor TExtFormPanel.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtFormPanel.GetForm : TExtFunction; begin - JSCode(JSName + '.getForm();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.GetRecord : TExtFunction; begin - JSCode(JSName + '.getRecord();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.GetValues : TExtFunction; begin - JSCode(JSName + '.getValues();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.HasInvalidField : TExtFunction; begin - JSCode(JSName + '.hasInvalidField();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.IsDirty : TExtFunction; begin - JSCode(JSName + '.isDirty();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.IsValid : TExtFunction; begin - JSCode(JSName + '.isValid();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.Load(Options : TExtObject) : TExtFunction; begin - JSCode(JSName + '.load(' + VarToJSON([Options, false]) + ');', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.LoadRecord(RecordJS : TExtDataModel) : TExtFunction; begin - JSCode(JSName + '.loadRecord(' + VarToJSON([RecordJS, false]) + ');', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.StartPolling(Interval : Integer) : TExtFunction; begin - JSCode(JSName + '.startPolling(' + VarToJSON([Interval]) + ');', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.StopPolling : TExtFunction; begin - JSCode(JSName + '.stopPolling();', 'TExtFormPanel'); - Result := Self; -end; - -function TExtFormPanel.Submit(Options : TExtObject) : TExtFunction; begin - JSCode(JSName + '.submit(' + VarToJSON([Options, false]) + ');', 'TExtFormPanel'); - Result := Self; -end; - -destructor TExtFormPanel.Destroy; begin - try - FFieldDefaults.Free; - FLayout.Free; - FLayoutTExtObject.Free; - except end; - inherited; -end; - -procedure TExtFormPanel.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'actioncomplete') and Assigned(FOnActioncomplete) then - FOnActioncomplete() - else if (AEvtName = 'actionfailed') and Assigned(FOnActionfailed) then - FOnActionfailed() - else if (AEvtName = 'beforeaction') and Assigned(FOnBeforeaction) then - FOnBeforeaction() - else if (AEvtName = 'dirtychange') and Assigned(FOnDirtychange) then - FOnDirtychange() - else if (AEvtName = 'fielderrorchange') and Assigned(FOnFielderrorchange) then - FOnFielderrorchange(TExtFormFieldAncestor(ParamAsObject('This')), TExtFormLabelable(ParamAsObject('The')), ParamAsString('Error')) - else if (AEvtName = 'fieldvaliditychange') and Assigned(FOnFieldvaliditychange) then - FOnFieldvaliditychange(TExtFormFieldAncestor(ParamAsObject('This')), TExtFormLabelable(ParamAsObject('The')), ParamAsString('IsValid')) - else if (AEvtName = 'validitychange') and Assigned(FOnValiditychange) then - FOnValiditychange(); -end; - -function TExtLayoutComponentFieldComboBox.JSClassName : string; begin - Result := 'Ext.layout.component.field.ComboBox'; -end; - -{$IFDEF FPC}constructor TExtLayoutComponentFieldComboBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtTreeColumn.JSClassName : string; begin - Result := 'Ext.tree.Column'; -end; - -{$IFDEF FPC}constructor TExtTreeColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -procedure TExtMenu.SetFAllowOtherMenus(Value : Boolean); begin - FAllowOtherMenus := Value; - JSCode('allowOtherMenus:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFEnableKeyNav(Value : Boolean); begin - FEnableKeyNav := Value; - JSCode('enableKeyNav:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFFloating(Value : Boolean); begin - FFloating := Value; - JSCode('floating:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFHidden(Value : Boolean); begin - FHidden := Value; - JSCode('hidden:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFIgnoreParentClicks(Value : Boolean); begin - FIgnoreParentClicks := Value; - JSCode('ignoreParentClicks:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFLayout(Value : TExtEnumsLayout); begin - FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -procedure TExtMenu.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); -end; - -procedure TExtMenu.SetFMinWidth(Value : Integer); begin - FMinWidth := Value; - JSCode('minWidth:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFPlain(Value : Boolean); begin - FPlain := Value; - JSCode('plain:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFShowSeparator(Value : Boolean); begin - FShowSeparator := Value; - JSCode('showSeparator:' + VarToJSON([Value])); -end; - -procedure TExtMenu.SetFOnClick(Value : TExtMenuOnClick); begin - if Assigned(FOnClick) then - JSCode(JSName+'.events ["click"].listeners=[];'); - if Assigned(Value) then - AddListener('click', Ajax('click', ['Menu', '%0.nm','Item', '%1.nm','E', '%2.nm'], true)); - FOnClick := Value; -end; - -procedure TExtMenu.SetFOnMouseenter(Value : TExtMenuOnMouseenter); begin - if Assigned(FOnMouseenter) then - JSCode(JSName+'.events ["mouseenter"].listeners=[];'); - if Assigned(Value) then - AddListener('mouseenter', Ajax('mouseenter', ['Menu', '%0.nm','E', '%1.nm'], true)); - FOnMouseenter := Value; -end; - -procedure TExtMenu.SetFOnMouseleave(Value : TExtMenuOnMouseleave); begin - if Assigned(FOnMouseleave) then - JSCode(JSName+'.events ["mouseleave"].listeners=[];'); - if Assigned(Value) then - AddListener('mouseleave', Ajax('mouseleave', ['Menu', '%0.nm','E', '%1.nm'], true)); - FOnMouseleave := Value; -end; - -procedure TExtMenu.SetFOnMouseover(Value : TExtMenuOnMouseover); begin - if Assigned(FOnMouseover) then - JSCode(JSName+'.events ["mouseover"].listeners=[];'); - if Assigned(Value) then - AddListener('mouseover', Ajax('mouseover', ['Menu', '%0.nm','Item', '%1.nm','E', '%2.nm'], true)); - FOnMouseover := Value; -end; - -function TExtMenu.JSClassName : string; begin - Result := 'Ext.menu.Menu'; -end; - -procedure TExtMenu.InitDefaults; begin - inherited; - FHidden := true; - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); -end; - -{$IFDEF FPC}constructor TExtMenu.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -function TExtMenu.CanActivateItem : TExtFunction; begin - JSCode(JSName + '.canActivateItem();', 'TExtMenu'); - Result := Self; -end; - -constructor TExtMenu.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtMenu.DeactivateActiveItem : TExtFunction; begin - JSCode(JSName + '.deactivateActiveItem();', 'TExtMenu'); - Result := Self; -end; - -destructor TExtMenu.Destroy; begin - try - FLayout.Free; - FLayoutTExtObject.Free; - except end; - inherited; -end; - -procedure TExtMenu.HandleEvent(const AEvtName : string); begin - inherited; - if (AEvtName = 'click') and Assigned(FOnClick) then - FOnClick(TExtMenu(ParamAsObject('Menu')), TExtComponent(ParamAsObject('Item')), TExtEventObject(ParamAsObject('E'))) - else if (AEvtName = 'mouseenter') and Assigned(FOnMouseenter) then - FOnMouseenter(TExtMenu(ParamAsObject('Menu')), TExtEventObject(ParamAsObject('E'))) - else if (AEvtName = 'mouseleave') and Assigned(FOnMouseleave) then - FOnMouseleave(TExtMenu(ParamAsObject('Menu')), TExtEventObject(ParamAsObject('E'))) - else if (AEvtName = 'mouseover') and Assigned(FOnMouseover) then - FOnMouseover(TExtMenu(ParamAsObject('Menu')), TExtComponent(ParamAsObject('Item')), TExtEventObject(ParamAsObject('E'))); -end; - procedure TExtPanelTable.SetFAllowDeselect(Value : Boolean); begin FAllowDeselect := Value; JSCode('allowDeselect:' + VarToJSON([Value])); @@ -44255,8 +43988,8 @@ procedure TExtPanelTable.SetFColumns(Value : TExtObjectList); begin JSCode('columns:' + VarToJSON([Value, false])); end; -procedure TExtPanelTable.SetFColumnsTExtObject(Value : TExtObject); begin - FColumnsTExtObject := Value; +procedure TExtPanelTable.SetFColumnsObject(Value : TExtObject); begin + FColumnsObject := Value; Value.DeleteFromGarbage; JSCode('columns:' + VarToJSON([Value, false])); end; @@ -44302,8 +44035,8 @@ procedure TExtPanelTable.SetFFeatures(Value : TExtObjectList); begin JSCode('features:' + VarToJSON([Value, false])); end; -procedure TExtPanelTable.SetFFeaturesTExtObjectList(Value : TExtObjectList); begin - FFeaturesTExtObjectList := Value; +procedure TExtPanelTable.SetFFeaturesList(Value : TExtObjectList); begin + FFeaturesList := Value; Value.DeleteFromGarbage; JSCode('features:' + VarToJSON([Value, false])); end; @@ -44349,8 +44082,8 @@ procedure TExtPanelTable.SetFSelModel(Value : TExtSelectionModel); begin JSCode('selModel:' + VarToJSON([Value, false])); end; -procedure TExtPanelTable.SetFSelModelTExtObject(Value : TExtObject); begin - FSelModelTExtObject := Value; +procedure TExtPanelTable.SetFSelModelObject(Value : TExtObject); begin + FSelModelObject := Value; Value.DeleteFromGarbage; JSCode('selModel:' + VarToJSON([Value, false])); end; @@ -44841,12 +44574,12 @@ function TExtPanelTable.JSClassName : string; begin procedure TExtPanelTable.InitDefaults; begin inherited; FColumns := TExtObjectList.Create(Self, 'columns'); - FColumnsTExtObject := TExtObject.CreateInternal(Self, 'columns'); + FColumnsObject := TExtObject.CreateInternal(Self, 'columns'); FDeferRowRender := true; FFeatures := TExtObjectList.Create(Self, 'features'); - FFeaturesTExtObjectList := TExtObjectList.Create(Self, 'features'); + FFeaturesList := TExtObjectList.Create(Self, 'features'); FSelModel := TExtSelectionModel.CreateInternal(Self, 'selModel'); - FSelModelTExtObject := TExtObject.CreateInternal(Self, 'selModel'); + FSelModelObject := TExtObject.CreateInternal(Self, 'selModel'); FSelType := 'rowmodel'; FStore := TExtDataStore.CreateInternal(Self, 'store'); FVerticalScroller := TExtObject.CreateInternal(Self, 'verticalScroller'); @@ -44864,11 +44597,11 @@ constructor TExtPanelTable.Create; begin destructor TExtPanelTable.Destroy; begin try FColumns.Free; - FColumnsTExtObject.Free; + FColumnsObject.Free; FFeatures.Free; - FFeaturesTExtObjectList.Free; + FFeaturesList.Free; FSelModel.Free; - FSelModelTExtObject.Free; + FSelModelObject.Free; FStore.Free; FVerticalScroller.Free; FView.Free; @@ -44991,6 +44724,12 @@ procedure TExtPanelTable.HandleEvent(const AEvtName : string); begin FOnViewready(TExtPanelTable(ParamAsObject('This'))); end; +function TExtTreeColumn.JSClassName : string; begin + Result := 'Ext.tree.Column'; +end; + +{$IFDEF FPC}constructor TExtTreeColumn.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtTip.SetFClosable(Value : Boolean); begin FClosable := Value; JSCode('closable:' + VarToJSON([Value])); @@ -45067,17 +44806,17 @@ procedure TExtTabPanel.SetFActiveTab(Value : String); begin JSCode('activeTab:' + VarToJSON([Value])); end; +procedure TExtTabPanel.SetFActiveTabComponent(Value : TExtComponent); begin + FActiveTabComponent := Value; + Value.DeleteFromGarbage; + JSCode('activeTab:' + VarToJSON([Value, false])); +end; + procedure TExtTabPanel.SetFActiveTabInteger(Value : Integer); begin FActiveTabInteger := Value; JSCode('activeTab:' + VarToJSON([Value])); end; -procedure TExtTabPanel.SetFActiveTabTExtComponent(Value : TExtComponent); begin - FActiveTabTExtComponent := Value; - Value.DeleteFromGarbage; - JSCode('activeTab:' + VarToJSON([Value, false])); -end; - procedure TExtTabPanel.SetFDeferredRender(Value : Boolean); begin FDeferredRender := Value; JSCode('deferredRender:' + VarToJSON([Value])); @@ -45090,12 +44829,11 @@ procedure TExtTabPanel.SetFItemCls(Value : String); begin procedure TExtTabPanel.SetFLayout(Value : TExtEnumsLayout); begin FLayout := Value; - Value.DeleteFromGarbage; - JSCode('layout:' + VarToJSON([Value, false])); + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); end; -procedure TExtTabPanel.SetFLayoutTExtObject(Value : TExtObject); begin - FLayoutTExtObject := Value; +procedure TExtTabPanel.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; Value.DeleteFromGarbage; JSCode('layout:' + VarToJSON([Value, false])); end; @@ -45143,9 +44881,8 @@ function TExtTabPanel.JSClassName : string; begin procedure TExtTabPanel.InitDefaults; begin inherited; - FActiveTabTExtComponent := TExtComponent.CreateInternal(Self, 'activeTab'); - FLayout := TExtEnumsLayout.CreateInternal(Self, 'layout'); - FLayoutTExtObject := TExtObject.CreateInternal(Self, 'layout'); + FActiveTabComponent := TExtComponent.CreateInternal(Self, 'activeTab'); + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); FTabBar := TExtObject.CreateInternal(Self, 'tabBar'); FTabBar_ := TExtTabBar.CreateInternal(Self, 'tabBar'); end; @@ -45174,9 +44911,8 @@ function TExtTabPanel.SetActiveTab(Card : Integer) : TExtFunction; begin destructor TExtTabPanel.Destroy; begin try - FActiveTabTExtComponent.Free; - FLayout.Free; - FLayoutTExtObject.Free; + FActiveTabComponent.Free; + FLayoutObject.Free; FTabBar.Free; FTabBar_.Free; except end; @@ -45209,11 +44945,134 @@ function TExtTreeViewDropZone.JSClassName : string; begin {$IFDEF FPC}constructor TExtTreeViewDropZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtLayoutComponentFieldTextArea.JSClassName : string; begin - Result := 'Ext.layout.component.field.TextArea'; +procedure TExtMenu.SetFAllowOtherMenus(Value : Boolean); begin + FAllowOtherMenus := Value; + JSCode('allowOtherMenus:' + VarToJSON([Value])); end; -{$IFDEF FPC}constructor TExtLayoutComponentFieldTextArea.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +procedure TExtMenu.SetFEnableKeyNav(Value : Boolean); begin + FEnableKeyNav := Value; + JSCode('enableKeyNav:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFFloating(Value : Boolean); begin + FFloating := Value; + JSCode('floating:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFHidden(Value : Boolean); begin + FHidden := Value; + JSCode('hidden:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFIgnoreParentClicks(Value : Boolean); begin + FIgnoreParentClicks := Value; + JSCode('ignoreParentClicks:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFLayout(Value : TExtEnumsLayout); begin + FLayout := Value; + JSCode('layout:"' + EnumToJSString(TypeInfo(TExtEnumsLayout), ord(Value)) + '"'); +end; + +procedure TExtMenu.SetFLayoutObject(Value : TExtObject); begin + FLayoutObject := Value; + Value.DeleteFromGarbage; + JSCode('layout:' + VarToJSON([Value, false])); +end; + +procedure TExtMenu.SetFMinWidth(Value : Integer); begin + FMinWidth := Value; + JSCode('minWidth:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFPlain(Value : Boolean); begin + FPlain := Value; + JSCode('plain:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFShowSeparator(Value : Boolean); begin + FShowSeparator := Value; + JSCode('showSeparator:' + VarToJSON([Value])); +end; + +procedure TExtMenu.SetFOnClick(Value : TExtMenuOnClick); begin + if Assigned(FOnClick) then + JSCode(JSName+'.events ["click"].listeners=[];'); + if Assigned(Value) then + AddListener('click', Ajax('click', ['Menu', '%0.nm','Item', '%1.nm','E', '%2.nm'], true)); + FOnClick := Value; +end; + +procedure TExtMenu.SetFOnMouseenter(Value : TExtMenuOnMouseenter); begin + if Assigned(FOnMouseenter) then + JSCode(JSName+'.events ["mouseenter"].listeners=[];'); + if Assigned(Value) then + AddListener('mouseenter', Ajax('mouseenter', ['Menu', '%0.nm','E', '%1.nm'], true)); + FOnMouseenter := Value; +end; + +procedure TExtMenu.SetFOnMouseleave(Value : TExtMenuOnMouseleave); begin + if Assigned(FOnMouseleave) then + JSCode(JSName+'.events ["mouseleave"].listeners=[];'); + if Assigned(Value) then + AddListener('mouseleave', Ajax('mouseleave', ['Menu', '%0.nm','E', '%1.nm'], true)); + FOnMouseleave := Value; +end; + +procedure TExtMenu.SetFOnMouseover(Value : TExtMenuOnMouseover); begin + if Assigned(FOnMouseover) then + JSCode(JSName+'.events ["mouseover"].listeners=[];'); + if Assigned(Value) then + AddListener('mouseover', Ajax('mouseover', ['Menu', '%0.nm','Item', '%1.nm','E', '%2.nm'], true)); + FOnMouseover := Value; +end; + +function TExtMenu.JSClassName : string; begin + Result := 'Ext.menu.Menu'; +end; + +procedure TExtMenu.InitDefaults; begin + inherited; + FHidden := true; + FLayoutObject := TExtObject.CreateInternal(Self, 'layout'); +end; + +{$IFDEF FPC}constructor TExtMenu.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +function TExtMenu.CanActivateItem : TExtFunction; begin + JSCode(JSName + '.canActivateItem();', 'TExtMenu'); + Result := Self; +end; + +constructor TExtMenu.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtMenu.DeactivateActiveItem : TExtFunction; begin + JSCode(JSName + '.deactivateActiveItem();', 'TExtMenu'); + Result := Self; +end; + +destructor TExtMenu.Destroy; begin + try + FLayoutObject.Free; + except end; + inherited; +end; + +procedure TExtMenu.HandleEvent(const AEvtName : string); begin + inherited; + if (AEvtName = 'click') and Assigned(FOnClick) then + FOnClick(TExtMenu(ParamAsObject('Menu')), TExtComponent(ParamAsObject('Item')), TExtEventObject(ParamAsObject('E'))) + else if (AEvtName = 'mouseenter') and Assigned(FOnMouseenter) then + FOnMouseenter(TExtMenu(ParamAsObject('Menu')), TExtEventObject(ParamAsObject('E'))) + else if (AEvtName = 'mouseleave') and Assigned(FOnMouseleave) then + FOnMouseleave(TExtMenu(ParamAsObject('Menu')), TExtEventObject(ParamAsObject('E'))) + else if (AEvtName = 'mouseover') and Assigned(FOnMouseover) then + FOnMouseover(TExtMenu(ParamAsObject('Menu')), TExtComponent(ParamAsObject('Item')), TExtEventObject(ParamAsObject('E'))); +end; function TExtLayoutComponentFieldHtmlEditor.JSClassName : string; begin Result := 'Ext.layout.component.field.HtmlEditor'; @@ -45221,6 +45080,117 @@ function TExtLayoutComponentFieldHtmlEditor.JSClassName : string; begin {$IFDEF FPC}constructor TExtLayoutComponentFieldHtmlEditor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} +function TExtLayoutComponentFieldTextArea.JSClassName : string; begin + Result := 'Ext.layout.component.field.TextArea'; +end; + +{$IFDEF FPC}constructor TExtLayoutComponentFieldTextArea.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +procedure TExtTipToolTip.SetFAnchor(Value : String); begin + FAnchor := Value; + JSCode('anchor:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFAnchorOffset(Value : Integer); begin + FAnchorOffset := Value; + JSCode('anchorOffset:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFAnchorToTarget(Value : Boolean); begin + FAnchorToTarget := Value; + JSCode('anchorToTarget:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFAutoHide(Value : Boolean); begin + FAutoHide := Value; + JSCode('autoHide:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFDelegate(Value : String); begin + FDelegate := Value; + JSCode('delegate:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFDismissDelay(Value : Integer); begin + FDismissDelay := Value; + JSCode('dismissDelay:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFHideDelay(Value : Integer); begin + FHideDelay := Value; + JSCode('hideDelay:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFMouseOffset(Value : TArrayOfInteger); begin + FMouseOffset := Value; + JSCode('mouseOffset:' + ArrayToJSON(Value)); +end; + +procedure TExtTipToolTip.SetFShowDelay(Value : Integer); begin + FShowDelay := Value; + JSCode('showDelay:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFTarget(Value : THTMLElement); begin + FTarget := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +procedure TExtTipToolTip.SetFTargetElement(Value : TExtElement); begin + FTargetElement := Value; + Value.DeleteFromGarbage; + JSCode('target:' + VarToJSON([Value, false])); +end; + +procedure TExtTipToolTip.SetFTargetString(Value : String); begin + FTargetString := Value; + JSCode('target:' + VarToJSON([Value])); +end; + +procedure TExtTipToolTip.SetFTrackMouse(Value : Boolean); begin + FTrackMouse := Value; + JSCode('trackMouse:' + VarToJSON([Value])); +end; + +function TExtTipToolTip.JSClassName : string; begin + Result := 'Ext.tip.ToolTip'; +end; + +procedure TExtTipToolTip.InitDefaults; begin + inherited; + FTargetElement := TExtElement.CreateInternal(Self, 'target'); +end; + +{$IFDEF FPC}constructor TExtTipToolTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtTipToolTip.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +function TExtTipToolTip.Hide : TExtFunction; begin + JSCode(JSName + '.hide();', 'TExtTipToolTip'); + Result := Self; +end; + +function TExtTipToolTip.SetTarget(T : String) : TExtFunction; begin + JSCode(JSName + '.setTarget(' + VarToJSON([T]) + ');', 'TExtTipToolTip'); + Result := Self; +end; + +function TExtTipToolTip.Show : TExtFunction; begin + JSCode(JSName + '.show();', 'TExtTipToolTip'); + Result := Self; +end; + +destructor TExtTipToolTip.Destroy; begin + try + FTargetElement.Free; + except end; + inherited; +end; + procedure TExtTreePanel.SetFAnimate(Value : Boolean); begin FAnimate := Value; JSCode('animate:' + VarToJSON([Value])); @@ -45252,14 +45222,14 @@ procedure TExtTreePanel.SetFRoot(Value : TExtDataModel); begin JSCode('root:' + VarToJSON([Value, false])); end; -procedure TExtTreePanel.SetFRootTExtDataNodeInterface(Value : TExtDataNodeInterface); begin - FRootTExtDataNodeInterface := Value; +procedure TExtTreePanel.SetFRootInterface(Value : TExtDataNodeInterface); begin + FRootInterface := Value; Value.DeleteFromGarbage; JSCode('root:' + VarToJSON([Value, false])); end; -procedure TExtTreePanel.SetFRootTExtObject(Value : TExtObject); begin - FRootTExtObject := Value; +procedure TExtTreePanel.SetFRootObject(Value : TExtObject); begin + FRootObject := Value; Value.DeleteFromGarbage; JSCode('root:' + VarToJSON([Value, false])); end; @@ -45433,8 +45403,8 @@ function TExtTreePanel.JSClassName : string; begin procedure TExtTreePanel.InitDefaults; begin inherited; FRoot := TExtDataModel.CreateInternal(Self, 'root'); - FRootTExtDataNodeInterface := TExtDataNodeInterface.CreateInternal(Self, 'root'); - FRootTExtObject := TExtObject.CreateInternal(Self, 'root'); + FRootInterface := TExtDataNodeInterface.CreateInternal(Self, 'root'); + FRootObject := TExtObject.CreateInternal(Self, 'root'); FStore := TExtDataTreeStore.CreateInternal(Self, 'store'); end; @@ -45493,8 +45463,8 @@ function TExtTreePanel.SetRootNode(Root : TExtDataModel) : TExtFunction; begin destructor TExtTreePanel.Destroy; begin try FRoot.Free; - FRootTExtDataNodeInterface.Free; - FRootTExtObject.Free; + FRootInterface.Free; + FRootObject.Free; FStore.Free; except end; inherited; @@ -45538,123 +45508,12 @@ procedure TExtTreePanel.HandleEvent(const AEvtName : string); begin FOnLoad(); end; -procedure TExtTipToolTip.SetFAnchor(Value : String); begin - FAnchor := Value; - JSCode('anchor:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFAnchorOffset(Value : Integer); begin - FAnchorOffset := Value; - JSCode('anchorOffset:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFAnchorToTarget(Value : Boolean); begin - FAnchorToTarget := Value; - JSCode('anchorToTarget:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFAutoHide(Value : Boolean); begin - FAutoHide := Value; - JSCode('autoHide:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFDelegate(Value : String); begin - FDelegate := Value; - JSCode('delegate:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFDismissDelay(Value : Integer); begin - FDismissDelay := Value; - JSCode('dismissDelay:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFHideDelay(Value : Integer); begin - FHideDelay := Value; - JSCode('hideDelay:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFMouseOffset(Value : TArrayOfInteger); begin - FMouseOffset := Value; - JSCode('mouseOffset:' + ArrayToJSON(Value)); -end; - -procedure TExtTipToolTip.SetFShowDelay(Value : Integer); begin - FShowDelay := Value; - JSCode('showDelay:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFTarget(Value : THTMLElement); begin - FTarget := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -procedure TExtTipToolTip.SetFTargetString(Value : String); begin - FTargetString := Value; - JSCode('target:' + VarToJSON([Value])); -end; - -procedure TExtTipToolTip.SetFTargetTExtElement(Value : TExtElement); begin - FTargetTExtElement := Value; - Value.DeleteFromGarbage; - JSCode('target:' + VarToJSON([Value, false])); -end; - -procedure TExtTipToolTip.SetFTrackMouse(Value : Boolean); begin - FTrackMouse := Value; - JSCode('trackMouse:' + VarToJSON([Value])); -end; - -function TExtTipToolTip.JSClassName : string; begin - Result := 'Ext.tip.ToolTip'; -end; - -procedure TExtTipToolTip.InitDefaults; begin - inherited; - FTargetTExtElement := TExtElement.CreateInternal(Self, 'target'); -end; - -{$IFDEF FPC}constructor TExtTipToolTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtTipToolTip.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -function TExtTipToolTip.Hide : TExtFunction; begin - JSCode(JSName + '.hide();', 'TExtTipToolTip'); - Result := Self; -end; - -function TExtTipToolTip.SetTarget(T : String) : TExtFunction; begin - JSCode(JSName + '.setTarget(' + VarToJSON([T]) + ');', 'TExtTipToolTip'); - Result := Self; -end; - -function TExtTipToolTip.Show : TExtFunction; begin - JSCode(JSName + '.show();', 'TExtTipToolTip'); - Result := Self; -end; - -destructor TExtTipToolTip.Destroy; begin - try - FTargetTExtElement.Free; - except end; - inherited; -end; - function TExtTreeViewDragZone.JSClassName : string; begin Result := 'Ext.tree.ViewDragZone'; end; {$IFDEF FPC}constructor TExtTreeViewDragZone.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -function TExtWindowMessageBox.JSClassName : string; begin - Result := 'Ext.window.MessageBox'; -end; - -{$IFDEF FPC}constructor TExtWindowMessageBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - procedure TExtFormFieldTime.SetFAltFormats(Value : String); begin FAltFormats := Value; JSCode('altFormats:' + VarToJSON([Value])); @@ -45761,6 +45620,12 @@ function TExtFormFieldTime.SetMinValue(Value : String) : TExtFunction; begin Result := Self; end; +function TExtWindowMessageBox.JSClassName : string; begin + Result := 'Ext.window.MessageBox'; +end; + +{$IFDEF FPC}constructor TExtWindowMessageBox.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + procedure TExtMenuColorPicker.SetFHideOnClick(Value : Boolean); begin FHideOnClick := Value; JSCode('hideOnClick:' + VarToJSON([Value])); @@ -45820,8 +45685,8 @@ procedure TExtGridPanel.SetFColumns(Value : TExtObjectList); begin JSCode('columns:' + VarToJSON([Value, false])); end; -procedure TExtGridPanel.SetFColumnsTExtObject(Value : TExtObject); begin - FColumnsTExtObject := Value; +procedure TExtGridPanel.SetFColumnsObject(Value : TExtObject); begin + FColumnsObject := Value; Value.DeleteFromGarbage; JSCode('columns:' + VarToJSON([Value, false])); end; @@ -45854,7 +45719,7 @@ function TExtGridPanel.JSClassName : string; begin procedure TExtGridPanel.InitDefaults; begin inherited; FColumns := TExtObjectList.Create(Self, 'columns'); - FColumnsTExtObject := TExtObject.CreateInternal(Self, 'columns'); + FColumnsObject := TExtObject.CreateInternal(Self, 'columns'); end; {$IFDEF FPC}constructor TExtGridPanel.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -45867,7 +45732,7 @@ constructor TExtGridPanel.Create; begin destructor TExtGridPanel.Destroy; begin try FColumns.Free; - FColumnsTExtObject.Free; + FColumnsObject.Free; except end; inherited; end; @@ -45886,45 +45751,6 @@ function TExtGridRowEditor.JSClassName : string; begin {$IFDEF FPC}constructor TExtGridRowEditor.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} -procedure TExtSliderTip.SetFAlign(Value : String); begin - FAlign := Value; - JSCode('align:' + VarToJSON([Value])); -end; - -procedure TExtSliderTip.SetFOffsets(Value : TExtObjectList); begin - FOffsets := Value; - Value.DeleteFromGarbage; - JSCode('offsets:' + VarToJSON([Value, false])); -end; - -procedure TExtSliderTip.SetFPosition(Value : String); begin - FPosition := Value; - JSCode('position:' + VarToJSON([Value])); -end; - -function TExtSliderTip.JSClassName : string; begin - Result := 'Ext.slider.Tip'; -end; - -procedure TExtSliderTip.InitDefaults; begin - inherited; - FOffsets := TExtObjectList.Create(Self, 'offsets'); -end; - -{$IFDEF FPC}constructor TExtSliderTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} - -constructor TExtSliderTip.Create; begin - CreateVar(JSClassName + '({});'); - InitDefaults; -end; - -destructor TExtSliderTip.Destroy; begin - try - FOffsets.Free; - except end; - inherited; -end; - procedure TExtMenuDatePicker.SetFHideOnClick(Value : Boolean); begin FHideOnClick := Value; JSCode('hideOnClick:' + VarToJSON([Value])); @@ -45978,6 +45804,45 @@ procedure TExtMenuDatePicker.HandleEvent(const AEvtName : string); begin FOnSelect(); end; +procedure TExtSliderTip.SetFAlign(Value : String); begin + FAlign := Value; + JSCode('align:' + VarToJSON([Value])); +end; + +procedure TExtSliderTip.SetFOffsets(Value : TExtObjectList); begin + FOffsets := Value; + Value.DeleteFromGarbage; + JSCode('offsets:' + VarToJSON([Value, false])); +end; + +procedure TExtSliderTip.SetFPosition(Value : String); begin + FPosition := Value; + JSCode('position:' + VarToJSON([Value])); +end; + +function TExtSliderTip.JSClassName : string; begin + Result := 'Ext.slider.Tip'; +end; + +procedure TExtSliderTip.InitDefaults; begin + inherited; + FOffsets := TExtObjectList.Create(Self, 'offsets'); +end; + +{$IFDEF FPC}constructor TExtSliderTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + +constructor TExtSliderTip.Create; begin + CreateVar(JSClassName + '({});'); + InitDefaults; +end; + +destructor TExtSliderTip.Destroy; begin + try + FOffsets.Free; + except end; + inherited; +end; + procedure TExtTipQuickTip.SetFInterceptTitles(Value : Boolean); begin FInterceptTitles := Value; JSCode('interceptTitles:' + VarToJSON([Value])); @@ -45988,8 +45853,8 @@ procedure TExtTipQuickTip.SetFTarget(Value : String); begin JSCode('target:' + VarToJSON([Value])); end; -procedure TExtTipQuickTip.SetFTargetTExtElement(Value : TExtElement); begin - FTargetTExtElement := Value; +procedure TExtTipQuickTip.SetFTargetElement(Value : TExtElement); begin + FTargetElement := Value; Value.DeleteFromGarbage; JSCode('target:' + VarToJSON([Value, false])); end; @@ -46006,7 +45871,7 @@ function TExtTipQuickTip.JSClassName : string; begin procedure TExtTipQuickTip.InitDefaults; begin inherited; - FTargetTExtElement := TExtElement.CreateInternal(Self, 'target'); + FTargetElement := TExtElement.CreateInternal(Self, 'target'); end; {$IFDEF FPC}constructor TExtTipQuickTip.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} @@ -46033,7 +45898,7 @@ function TExtTipQuickTip.Unregister(El : String) : TExtFunction; begin destructor TExtTipQuickTip.Destroy; begin try - FTargetTExtElement.Free; + FTargetElement.Free; except end; inherited; end; @@ -46108,6 +45973,12 @@ destructor TExtGridPropertyGrid.Destroy; begin inherited; end; +function TExtMessageBoxSingleton.JSClassName : string; begin + Result := 'Ext.MessageBox'; +end; + +{$IFDEF FPC}constructor TExtMessageBoxSingleton.AddTo(List : TExtObjectList);begin inherited end;{$ENDIF} + initialization ExtFormFieldVTypes := TExtFormFieldVTypesSingleton.CreateSingleton; ExtFxManager := TExtFxManagerSingleton.CreateSingleton; @@ -46129,20 +46000,20 @@ initialization ExtPerfMonitor := TExtPerfMonitorSingleton.CreateSingleton; ExtDataValidations := TExtDataValidationsSingleton.CreateSingleton; ExtDataTypes := TExtDataTypesSingleton.CreateSingleton; - ExtButtonManager := TExtButtonManagerSingleton.CreateSingleton; - ExtChartShape := TExtChartShapeSingleton.CreateSingleton; ExtDataSortTypes := TExtDataSortTypesSingleton.CreateSingleton; + ExtChartShape := TExtChartShapeSingleton.CreateSingleton; + ExtButtonManager := TExtButtonManagerSingleton.CreateSingleton; ExtAppEventBus := TExtAppEventBusSingleton.CreateSingleton; - ExtDdScrollManager := TExtDdScrollManagerSingleton.CreateSingleton; ExtDdRegistry := TExtDdRegistrySingleton.CreateSingleton; + ExtDdScrollManager := TExtDdScrollManagerSingleton.CreateSingleton; ExtDdDragDropManager := TExtDdDragDropManagerSingleton.CreateSingleton; ExtDirectManager := TExtDirectManagerSingleton.CreateSingleton; ExtComponentQuery := TExtComponentQuerySingleton.CreateSingleton; ExtDataJsonP := TExtDataJsonPSingleton.CreateSingleton; ExtModelManager := TExtModelManagerSingleton.CreateSingleton; ExtUtilTaskManager := TExtUtilTaskManagerSingleton.CreateSingleton; - ExtAjax := TExtAjaxSingleton.CreateSingleton; ExtComponentManager := TExtComponentManagerSingleton.CreateSingleton; + ExtAjax := TExtAjaxSingleton.CreateSingleton; ExtDomHelper := TExtDomHelperSingleton.CreateSingleton; ExtAppDomainStore := TExtAppDomainStoreSingleton.CreateSingleton; ExtPluginManager := TExtPluginManagerSingleton.CreateSingleton; @@ -46153,8 +46024,10 @@ initialization ExtFormRadioManager := TExtFormRadioManagerSingleton.CreateSingleton; ExtFormCheckboxManager := TExtFormCheckboxManagerSingleton.CreateSingleton; ExtDataStoreManager := TExtDataStoreManagerSingleton.CreateSingleton; + ExtMessageBox := TExtMessageBoxSingleton.CreateSingleton; finalization + ExtMessageBox.Destroy; ExtDataStoreManager.Destroy; ExtFormCheckboxManager.Destroy; ExtFormRadioManager.Destroy; @@ -46165,20 +46038,20 @@ finalization ExtPluginManager.Destroy; ExtAppDomainStore.Destroy; ExtDomHelper.Destroy; - ExtComponentManager.Destroy; ExtAjax.Destroy; + ExtComponentManager.Destroy; ExtUtilTaskManager.Destroy; ExtModelManager.Destroy; ExtDataJsonP.Destroy; ExtComponentQuery.Destroy; ExtDirectManager.Destroy; ExtDdDragDropManager.Destroy; - ExtDdRegistry.Destroy; ExtDdScrollManager.Destroy; + ExtDdRegistry.Destroy; ExtAppEventBus.Destroy; - ExtDataSortTypes.Destroy; - ExtChartShape.Destroy; ExtButtonManager.Destroy; + ExtChartShape.Destroy; + ExtDataSortTypes.Destroy; ExtDataTypes.Destroy; ExtDataValidations.Destroy; ExtPerfMonitor.Destroy; diff --git a/ExtJSWrapper/ExtFixes.txt b/ExtJSWrapper/ExtFixes.txt index 15949d5..9b4635d 100644 --- a/ExtJSWrapper/ExtFixes.txt +++ b/ExtJSWrapper/ExtFixes.txt @@ -22,84 +22,15 @@ * For each event parameter: , * -TExtEnumsLayout, (laAbsolute, laAccordion, laAnchor, laAutocomponent, laAutocontainer, laBorder, laBox, laCard, laCheckboxgroup, laColumn, laContainer, laFit, laForm, laHbox, laTable, laVbox) -ExtBoxComponent, region, (rgCenter, rgNorth, rgEast, rgSouth, rgWest) -ExtComponent, xtype, (xtBox, xtButton, xtButtonGroup, xtColorPalette, xtComponent, xtContainer, xtCycle, xtDataView, xtDatePicker, xtEditor, xtEditorGrid, xtFlash, xtGrid, xtListView, xtPaging, xtPanel, xtProgress, xtPropertyGrid, xtSlider, xtSpacer, xtSplitButton, xtStatusBar, xtTabPanel, xtTreePanel, xtViewPort, xtWindow, xtToolbar, xtTBButton, xtTBFill, xtTBItem, xtTBSeparator, xtTBSpacer, xtTBSplit, xtTBText, xtMenu, xtColorMenu, xtDateMenu, xtMenuBaseItem, xtMenuCheckItem, xtMenuItem, xtMenuSeparator, xtMenuTextItem, xtForm, xtCheckBox, xtCheckBoxGroup, xtCombo, xtDateField, xtDisplayField, xtField, xtFieldSet, xtHidden, xtHTMLEditor, xtLabel, xtNumberField, xtRadio, xtRadioGroup, xtTextArea, xtTextField, xtTimeField, xtTrigger, xtChart, xtBarChart, xtCartesianChart, xtColumnChart, xtLineChart, xtPieChart) -ExtContainer, defaultType, (ExtComponentXType) -ExtDomElement, defaultUnit, (CSSUnit) -ExtGridColumn, align, (alInherit, alLeft, alRight, alCenter, alJustify) -ExtPanel, buttonAlign, (baRight, baLeft, baCenter) -ExtFormFormPanel, buttonAlign, (ExtPanelButtonAlign) -ExtFormFormPanel, labelAlign, (laLeft, laTop, laRight) -ExtUxFormLovCombo, ExtFormComboBox, ExtForm, Ext.ux.form.LovCombo -ExtUxFormLovCombo, separator, string, false, true, -ExtUxGridRecordForm, ExtUtilObservable, ExtForm, Ext.ux.grid.RecordForm -ExtUxGridRecordForm, cancelIconCls, string, false, true, 'icon-cancel' -ExtUxGridRecordForm, cancelText, string, false, true, 'Cancel' -ExtUxGridRecordForm, columnCount, Integer, false, true, 1 -ExtUxGridRecordForm, dirtyRowCls, string, false, true, 'ux-grid3-dirty-row' -ExtUxGridRecordForm, iconCls, string, false, true, -ExtUxGridRecordForm, okIconCls, string, false, true, 'icon-ok' -ExtUxGridRecordForm, okText, string, false, true, 'OK' -ExtUxGridRecordForm, newRowCls, string, false, true, 'ux-grid3-new-row' -ExtUxGridRecordForm, title, string, false, true, -ExtUxGridRecordForm, showButtons, Boolean, false, true, true -ExtUxGridRecordForm, ignoreFields, ExtObject, false, true, -ExtUxGridRecordForm, readonlyFields, ExtObject, false, true, -ExtUxGridRecordForm, disabledFields, ExtObject, false, true, -ExtUxGridRecordForm, formConfig, ExtObject, false, true, -ExtUxGridRecordForm, show, void, false, false, DataRecord, ExtDataRecord, false, AnimEl, ExtElement, true -ExtFormField, inputType, (itText, itButton, itCheckbox, itFile, itHidden, itImage, itPassword, itRadio, itReset, itSubmit) -ExtStateProvider, on, void, false, false, EventName, string, false, Handler, ExtFunction, false -ExtStateProvider, un, void, false, false, EventName, string, false, Handler, ExtFunction, false -ExtGridColumn, renderer, ExtFunction, false, true, FORCEADD -ExtFont, , Ext, Object -ExtFont, name, string, false, true, -ExtFont, color, string, false, true, -ExtFont, size, Integer, false, true, -ExtFont, bold, Boolean, false, true, -ExtBorder, , Ext, Object -ExtBorder, color, string, false, true, -ExtBorder, size, Integer, false, true, -ExtBackground, , Ext, Object -ExtBackground, color, string, false, true, -ExtBackground, alpha, Double, false, true, -ExtDataTip, ,Ext, Object -ExtDataTip, padding, Integer, false, true, -ExtDataTip, border, ExtBorder, false, true, -ExtDataTip, background, ExtBackground, false, true, -ExtDataTip, font, ExtFont, false, true, -ExtChartStyle, , ExtChart, Object -ExtChartStyle, padding, Integer, false, true, -ExtChartStyle, animationEnabled, Boolean, false, true, -ExtChartStyle, font, ExtFont, false, true, -ExtChartStyle, dataTip, ExtDataTip, false, true, -ExtChartChart, store, ExtDataStore, false, true, -ExtChartChart, yField, string, false, true, -ExtChartChart, xField, string, false, true, -ExtChartChart, xAxis, ExtChartAxis, false, true, -ExtChartChart, yAxis, ExtChartAxis, false, true, -ExtChartChart, tipRenderer, ExtFunction, false, true, -ExtChartChart, series, ExtObjectList, false, true, -ExtChartChart, chartStyle, ExtChartStyle, false, true, -ExtChartAxis, displayName, string, false, true, -ExtChartAxis, labelRenderer, ExtFunction, false, true, -ExtChartAxis, title, string, false, true, -ExtChartPieChart, dataField, string, false, true, -ExtChartPieChart, categoryField, string, false, true, -ExtFormFormPanel, fileUpload, Boolean, false, true, -ExtChartSeriesStyle, ,ExtChart, Object -ExtChartSeriesStyle, image, string, false, true, -ExtChartSeriesStyle, mode, string, false, true, -ExtChartSeriesStyle, color, string, false, true, -ExtChartSeries, style, ExtChartSeriesStyle, false, true, -ExtContainer, colspan, Integer, false, true, -ExtContainer, rowspan, Integer, false, true, -ExtContainer, layout, String, false, true, FORCEADD -ExtContainer, columnWidth, Double, false, true, -ExtPanel, rowWidth, Double, false, true, -ExtPanel, rowHeight, Double, false, true, -FusionCharts,, Ext, FusionCharts -FusionCharts, Create,, true, false, SwfURL, string, false, Id, string, false, Width, Integer, false, Height, Integer, false, DebugMode, Integer, true, RegisterWithJS, Integer, true -FusionCharts, setDataURL, void, false, false, XML, string, false -FusionCharts, render, void, false, false, Id, string, false +ExtEnumsLayout, (laAbsolute, laAccordion, laAnchor, laAutocomponent, laAutocontainer, laBorder, laBox, laCard, laCheckboxgroup, laColumn, laContainer, laFit, laForm, laHbox, laTable, laVbox) +ExtMessageBox, ExtWindowMessageBox, singleton, Ext.MessageBox + +*ExtBoxComponent, region, (rgCenter, rgNorth, rgEast, rgSouth, rgWest) +*ExtComponent, xtype, (xtBox, xtButton, xtButtonGroup, xtColorPalette, xtComponent, xtContainer, xtCycle, xtDataView, xtDatePicker, xtEditor, xtEditorGrid, xtFlash, xtGrid, xtListView, xtPaging, xtPanel, xtProgress, xtPropertyGrid, xtSlider, xtSpacer, xtSplitButton, xtStatusBar, xtTabPanel, xtTreePanel, xtViewPort, xtWindow, xtToolbar, xtTBButton, xtTBFill, xtTBItem, xtTBSeparator, xtTBSpacer, xtTBSplit, xtTBText, xtMenu, xtColorMenu, xtDateMenu, xtMenuBaseItem, xtMenuCheckItem, xtMenuItem, xtMenuSeparator, xtMenuTextItem, xtForm, xtCheckBox, xtCheckBoxGroup, xtCombo, xtDateField, xtDisplayField, xtField, xtFieldSet, xtHidden, xtHTMLEditor, xtLabel, xtNumberField, xtRadio, xtRadioGroup, xtTextArea, xtTextField, xtTimeField, xtTrigger, xtChart, xtBarChart, xtCartesianChart, xtColumnChart, xtLineChart, xtPieChart) +*ExtContainer, defaultType, (ExtComponentXType) +*ExtDomElement, defaultUnit, (CSSUnit) +*ExtGridColumn, align, (alInherit, alLeft, alRight, alCenter, alJustify) +*ExtPanel, buttonAlign, (baRight, baLeft, baCenter) +*ExtFormFormPanel, buttonAlign, (ExtPanelButtonAlign) +*ExtFormFormPanel, labelAlign, (laLeft, laTop, laRight) + diff --git a/ExtJSWrapper/ExtToPascal.dpr b/ExtJSWrapper/ExtToPascal.dpr index 278a9bc..d6e9e92 100644 --- a/ExtJSWrapper/ExtToPascal.dpr +++ b/ExtJSWrapper/ExtToPascal.dpr @@ -397,6 +397,19 @@ begin MixinList[I] := FixType(MixinList[I]) end; +function Sufix(S : string) : string; +var + I : Integer; +begin + if pos('TExt', S) = 1 then + for I := length(S) downto 1 do + if S[I] in ['A'..'Z'] then begin + Result := copy(S, I, Length(S)); + exit; + end; + Result := S; +end; + procedure LoadElements(Line : string); const CurClass : TClass = nil; @@ -478,6 +491,7 @@ begin State := InMethods; continue; // Discard duplicates end; + Matches[0] := ReplaceStr(Matches[0], 'Object/Object[]', 'Object[]'); PropTypes := Explode('/', Matches[0]); if (pos('"', Matches[0]) <> 0) and (PropTypes.Count <> 0) then begin // Enumeration CurProp := TProp.Create(PropName, PropName, 'string', Static, Config); @@ -492,9 +506,9 @@ begin CurClass.Properties.AddObject(FixIdent(PropName), CurProp); end else - if CurClass.Properties.IndexOf(FixIdent(PropName + FixType(PropTypes[I]))) = -1 then - CurClass.Properties.AddObject(FixIdent(PropName + FixType(PropTypes[I])), - TProp.Create(PropName + FixType(PropTypes[I]), PropName, PropTypes[I], Static, Config)); + if CurClass.Properties.IndexOf(FixIdent(PropName + Sufix(FixType(PropTypes[I])))) = -1 then + CurClass.Properties.AddObject(FixIdent(PropName + Sufix(FixType(PropTypes[I]))), + TProp.Create(PropName + Sufix(FixType(PropTypes[I])), PropName, PropTypes[I], Static, Config)); //if Extract([PropName, ':', ','], Line, Matches) then begin if (Before('Default to', '*/', Line, false) and Extract(['Default to', '.'], Line, Matches)) or (Before('Defaults to', '*/', Line, false) and Extract(['Defaults to', '.'], Line, Matches)) then begin @@ -634,19 +648,6 @@ begin Typ := FixIdent(Fields[2], true); end; end - else - if pos('(', Fields[1]) = 1 then begin // Unresolved Enums - J := Unresolved.IndexOf(Fields[0]); - if J = -1 then begin - Enum := Fields[0] + ' = '; - for K := 1 to Fields.Count-1 do begin - Enum := Enum + Fields[K]; - if K <> Fields.Count-1 then - Enum = Enum + ', ' - end; - Unresolved.Add(Enum); - end; - end else if Fields.Count = 6 then // props if lowercase(Fields[5]) = 'forceadd' then @@ -707,15 +708,30 @@ begin end; end; end - else begin // Create new Class + else // Create new Class + if pos('(', Fields[1]) = 1 then begin // Unresolved Enums + Fields[0] := 'T' + Fields[0]; + J := Unresolved.IndexOfName(Fields[0]); + if J = -1 then begin + Enum := Fields[0] + '='; + for K := 1 to Fields.Count-1 do begin + Enum := Enum + Fields[K]; + if K <> Fields.Count-1 then + Enum := Enum + ', ' + end; + Unresolved.Add(Enum); + end; + end + else if Fields.Count = 4 then begin - NewClass := TClass.Create(Fields[0], Fields[1], Fields[2]); + NewClass := TClass.Create(Fields[0], Fields[1], 'Ext'); NewClass.JSName := Fields[3]; + NewClass.Singleton := LowerCase(Fields[2]) = 'singleton'; + if NewClass.Singleton then NewClass.Name := NewClass.Name + 'Singleton'; AllClasses.AddObject(NewClass.Name, NewClass); end else writeln(^M^J'*** WARNING: Class ', Fields[0], ' does not exist. ***'^M^J); - end; finally Fields.Free; end; @@ -797,7 +813,7 @@ procedure CollectUnresolvedClasses; procedure AddUnresolved(T : string); begin if pos('T' + JS_LIB, T) = 1 then if pos(T, 'TExtObject,TExtFunction,TExtObjectList') = 0 then - if AllClasses.IndexOf(T) = -1 then + if (AllClasses.IndexOf(T) = -1) and (Unresolved.IndexOfName(T) = -1) then Unresolved.Add(T); end; @@ -810,9 +826,11 @@ begin C := TClass(AllClasses.Objects[I]); for J := 0 to C.Properties.Count - 1 do with TProp(C.Properties.Objects[J]) do begin - K := Unresolved.IndexOf(Typ); - if Unresolved. then - + K := Unresolved.IndexOfName(Typ); + if K = -1 then + AddUnresolved(Typ) + else + Enum := Unresolved.Values[Unresolved.Names[K]] <> '' end; for J := 0 to C.Methods.Count - 1 do begin Met := TMethod(C.Methods.Objects[J]); @@ -1146,10 +1164,17 @@ procedure WriteUnit; procedure WriteUnresolvedClasses; var I : Integer; + V : string; begin writeln(Pas); - for I := 0 to Unresolved.Count - 1 do - writeln(Pas, Tab, Unresolved[I] + ' = class(TExtObject);'); + for I := 0 to Unresolved.Count - 1 do begin + V := Unresolved.ValueFromIndex[I]; + if V = '' then + V := ' = class(TExtObject)' + else + V := ''; + writeln(Pas, Tab, ReplaceStr(Unresolved[I], '=', ' = ') + V + ';'); + end; end; var @@ -1380,7 +1405,7 @@ begin try AllClasses.Sorted := true; Unresolved.Sorted := true; - writeln('JSToPascal - ' + JS_LIB + ' JS classes to Pascal unit wrapper, version ', ExtPascalVersion); + Unresolved.Duplicates := dupIgnore; writeln('(c) 2008-2013 by Wanderlan Santos dos Anjos, BSD license'); writeln('http://extpascal.googlecode.com/'^M^J); writeln('Reading JS source files...'); @@ -1398,13 +1423,12 @@ begin WriteUnit; writeln(AllClasses.Count, ' JS classes wrapped.'); writeln('Unit file generated.'); - writeln('Done. Press Enter.'); + writeln('Done.'); end else begin writeln('JS source files not found at ' + ParamStr(1) + '/*.js'); writeln('Aborted! Press Enter.'); end; - readln; finally // FreeStringList(AllClasses); Flush(Output); diff --git a/ExtJSWrapper/ExtToPascal.dproj b/ExtJSWrapper/ExtToPascal.dproj index 078cc4e..38134f7 100644 --- a/ExtJSWrapper/ExtToPascal.dproj +++ b/ExtJSWrapper/ExtToPascal.dproj @@ -1,6 +1,6 @@  - {83AA5842-E4C9-413A-85AA-A83B1D64CD29} + {2E3C5843-AFFA-4AF7-B72B-A028F1E74B3F} ExtToPascal.dpr True Debug @@ -18,11 +18,6 @@ Base true - - true - Base - true - true Base @@ -40,33 +35,26 @@ true + 00400000 1046 false + false System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) - false - 00400000 false false - 1 - true - CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=;CFBundleDisplayName=;CFBundleIdentifier=;CFBundleVersion=;CFBundlePackageType=;CFBundleSignature=;CFBundleAllowMixedLocalizations=;CFBundleExecutable= + false Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) - $(BDS)\bin\default_app.manifest 1033 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - ExtToPascal_Icon.ico - - - $(BDS)\bin\default_app.manifest - ExtToPascal_Icon.ico - false RELEASE;$(DCC_Define) - 0 false + false + 0 DEBUG;$(DCC_Define) @@ -75,13 +63,11 @@ true - false - 2 - true - false - ..;$(DCC_UnitSearchPath) - \ExtPascal\ext-4.2.0\src + \extpascal\ext-4.2.0\src + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 1033 + ..;$(DCC_UnitSearchPath) + None @@ -101,7 +87,7 @@ Delphi.Personality.12 - VCLApplication + @@ -133,6 +119,14 @@ 1.0.0.0 + + + + + + + + Microsoft Office 2000 Sample Automation Server Wrapper Components diff --git a/ExtJSWrapper/ExtToPascal.dsk b/ExtJSWrapper/ExtToPascal.dsk index 28bd847..d038c1c 100644 --- a/ExtJSWrapper/ExtToPascal.dsk +++ b/ExtJSWrapper/ExtToPascal.dsk @@ -1,61 +1,74 @@ [Closed Files] -File_0=TSourceModule,'A:\ExtPascal\ExtJSWrapper\ExtOld.pas',0,1,321,1,341,0,0,, -File_1=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\Server\BoletoImpl.pas',0,1,521,1,542,0,0,, -File_2=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\FrontEnd\LancamentoBoletoForm.pas',0,1,169,1,185,0,0,, -File_3=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\Server\EmissorCupom.pas',0,1,418,1,433,0,0,, -File_4=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\FrontEnd\GuiDM.pas',0,1,1,1,1,0,0,, -File_5=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\Common\SOAPclient.pas',0,1,1,1,1,0,0,, -File_6=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\Common\CommonUtilsInterface.pas',0,1,1,1,1,0,0,, -File_7=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\FrontEnd\BoletosForm.pas',0,1,153,36,158,0,0,, -File_8=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\FrontEnd\CobrancaCfgForm.pas',0,1,66,1,75,0,0,, -File_9=TSourceModule,'C:\Users\Wanderlan\Trabalho\Data4U\FrontEnd\BoletoBaixaForm.pas',0,1,32,36,41,0,0,, -File_10=TSourceModule,'C:\Trabalho\Data4U\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas',0,1,675,21,695,0,0,, +File_0=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\10.0\source\rtl\common\System.Classes.pas',0,1,6619,1,6644,0,0,, +File_1=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\10.0\SOURCE\RTL\SYS\System.pas',0,1,22820,1,22860,0,0,, +File_2=TSourceModule,'E:\extpascal\ExtJSWrapper\ExtUtil.pas',0,1,1050,37,1073,0,0,, +File_3=TSourceModule,'E:\extpascal\ext-4.1.1a\src\grid\plugin\Editing.js',0,1,147,33,196,0,0,, +File_4=TSourceModule,'E:\extpascal\ExtJSWrapper\ExtDd.pas',0,1,285,32,308,0,0,, +File_5=TSourceModule,'E:\extpascal\FCGIApp.pas',0,1,210,28,231,0,0,, +File_6=TSourceModule,'E:\extpascal\ext-4.1.1a\src\Ajax.js',0,1,1,4,2,0,0,, +File_7=TSourceModule,'E:\extpascal\ext-4.1.1a\src\AbstractManager.js',0,1,70,24,19,0,0,, +File_8=TSourceModule,'E:\extpascal\ext-4.1.1a\src\core\src\class\Loader.js',0,1,1,22,1261,0,0,, +File_9=TSourceModule,'E:\extpascal\ext-4.1.1a\src\core\src\lang\Error.js',0,1,68,28,127,0,0,, +File_10=TSourceModule,'E:\extpascal\ext-4.1.1a\src\core\src\class\ClassManager.js',0,1,1482,32,1505,0,0,, +File_11=TSourceModule,'E:\extpascal\ext-4.1.1a\src\util\MixedCollection.js',0,1,1,4,2,0,0,, +File_12=TSourceModule,'E:\extpascal\ext-4.1.1a\src\view\AbstractView.js',0,1,1,4,2,0,0,, +File_13=TSourceModule,'E:\extpascal\ext-4.1.1a\src\window\MessageBox.js',0,1,867,8,890,0,0,, +File_14=TSourceModule,'E:\extpascal\ext-4.1.1a\src\ZIndexManager.js',0,1,499,8,522,0,0,, +File_15=TSourceModule,'E:\extpascal\ext-4.1.1a\src\util\HashMap.js',0,1,1,14,33,0,0,, +File_16=TSourceModule,'E:\extpascal\ext-4.1.1a\src\core\src\dom\AbstractElement.insertion.js',0,1,1,12,2,0,0,, +File_17=TSourceModule,'E:\extpascal\ext-4.1.1a\src\core\src\EventManager.js',0,1,1,1,1,0,0,, [Modules] -Module0=A:\ExtPascal\ExtJSWrapper\ExtToPascal.dproj -Module1=c:\program files (x86)\embarcadero\rad studio\10.0\source\rtl\common\System.Classes.pas -Module2=A:\ExtPascal\ExtJSWrapper\ExtFixes.txt -Module3=A:\ExtPascal\ExtPascalUtils.pas -Module4=A:\ExtPascal\ExtPascalClasses.pas -Module5=A:\ExtPascal\FCGIApp.pas -Module6=A:\ExtPascal\ExtPascal.pas -Count=7 +Module0=E:\extpascal\ExtJSWrapper\ExtToPascal.dproj +Module1=E:\extpascal\ExtJSWrapper\Ext.pas +Module2=E:\extpascal\ExtJSWrapper\ExtFixes.txt +Module3=E:\extpascal\ExtPascal.pas +Module4=E:\Temp\Surface.js +Module5=E:\extpascal\ExtPascalUtils.pas +Module6=E:\extpascal\ext-4.2.0\src\AbstractComponent.js +Module7=E:\extpascal\ext-4.2.0\src\dom\AbstractElement.js +Module8=E:\extpascal\ExtJSWrapper\ExtOld.pas +Count=9 EditWindowCount=1 -[A:\ExtPascal\ExtJSWrapper\ExtToPascal.dproj] +[E:\extpascal\ExtJSWrapper\ExtToPascal.dproj] ModuleType=TBaseProject -[c:\program files (x86)\embarcadero\rad studio\10.0\source\rtl\common\System.Classes.pas] +[E:\extpascal\ExtJSWrapper\Ext.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 -[A:\ExtPascal\ExtJSWrapper\ExtFixes.txt] +[E:\extpascal\ExtJSWrapper\ExtFixes.txt] ModuleType=TSourceModule -[A:\ExtPascal\ExtPascalUtils.pas] +[E:\extpascal\ExtPascal.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 -[A:\ExtPascal\ExtPascalClasses.pas] +[E:\Temp\Surface.js] ModuleType=TSourceModule -FormState=0 -FormOnTop=0 -[A:\ExtPascal\FCGIApp.pas] +[E:\extpascal\ExtPascalUtils.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 -[A:\ExtPascal\ExtPascal.pas] +[E:\extpascal\ext-4.2.0\src\AbstractComponent.js] +ModuleType=TSourceModule + +[E:\extpascal\ext-4.2.0\src\dom\AbstractElement.js] +ModuleType=TSourceModule + +[E:\extpascal\ExtJSWrapper\ExtOld.pas] ModuleType=TSourceModule FormState=0 FormOnTop=0 [EditWindow0] -ViewCount=7 -CurrentEditView=A:\ExtPascal\ExtJSWrapper\ExtToPascal.dpr +ViewCount=9 +CurrentEditView=E:\extpascal\ExtJSWrapper\ExtToPascal.dpr View0=0 View1=1 View2=2 @@ -63,6 +76,8 @@ View3=3 View4=4 View5=5 View6=6 +View7=7 +View8=8 PercentageSizes=1 Create=1 Visible=1 @@ -71,103 +86,131 @@ State=0 Left=0 Top=0 Width=10000 -Height=9456 +Height=9521 MaxLeft=-1 MaxTop=-1 ClientWidth=10000 -ClientHeight=9456 +ClientHeight=9521 DockedToMainForm=1 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 TopPanelSize=0 -LeftPanelSize=0 +LeftPanelSize=1648 +LeftPanelClients=DockSite2 +LeftPanelData=00000800010100000000C11D00000000000001700600000000000001000000003125000009000000446F636B5369746532FFFFFFFF RightPanelSize=0 -BottomPanelSize=1200 -BottomPanelClients=DockSite1,MessageView -BottomPanelData=0000080001020100000009000000446F636B5369746531724500000000000002B0040000000000000100000000724500000F0000004D65737361676556696577466F726DFFFFFFFF -BottomMiddlePanelSize=0 -BottomMiddlePanelClients=DockSite0,GraphDrawingModel -BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779A1D00000000000002F206000000000000FFFFFFFF -TabDockLeftClients=DockSite3=0 +BottomPanelSize=0 +BottomPanelClients=DockSite1 +BottomPanelData=0000080001000100000009000000446F636B5369746531D430000000000000002406000000000000FFFFFFFF +BottomMiddlePanelSize=1348 +BottomMiddlePanelClients=DockSite0,GraphDrawingModel,MessageView +BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E6756696577AA280000000000000244050000000000000100000000AA2800000F0000004D65737361676556696577466F726DFFFFFFFF [View0] CustomEditViewType=TEditView -Module=A:\ExtPascal\ExtJSWrapper\ExtToPascal.dpr -CursorX=23 -CursorY=814 -TopLine=786 +Module=E:\extpascal\ExtJSWrapper\Ext.pas +CursorX=39 +CursorY=45980 +TopLine=45954 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\ExtJSWrapper\ExtToPascal.dpr +EditViewName=E:\extpascal\ExtJSWrapper\Ext.pas [View1] CustomEditViewType=TEditView -Module=c:\program files (x86)\embarcadero\rad studio\10.0\source\rtl\common\System.Classes.pas +Module=E:\extpascal\ExtJSWrapper\ExtToPascal.dpr CursorX=1 -CursorY=694 -TopLine=675 +CursorY=15 +TopLine=1 LeftCol=1 Elisions= Bookmarks= -EditViewName=c:\program files (x86)\embarcadero\rad studio\10.0\source\rtl\common\System.Classes.pas +EditViewName=E:\extpascal\ExtJSWrapper\ExtToPascal.dpr [View2] CustomEditViewType=TEditView -Module=A:\ExtPascal\ExtJSWrapper\ExtFixes.txt +Module=E:\extpascal\ExtPascal.pas CursorX=1 -CursorY=25 -TopLine=19 +CursorY=814 +TopLine=1 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\ExtJSWrapper\ExtFixes.txt +EditViewName=E:\extpascal\ExtPascal.pas [View3] CustomEditViewType=TEditView -Module=A:\ExtPascal\ExtPascal.pas -CursorX=1 -CursorY=1905 -TopLine=1888 +Module=E:\extpascal\ExtJSWrapper\ExtFixes.txt +CursorX=48 +CursorY=26 +TopLine=1 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\ExtPascal.pas +EditViewName=E:\extpascal\ExtJSWrapper\ExtFixes.txt [View4] CustomEditViewType=TEditView -Module=A:\ExtPascal\FCGIApp.pas -CursorX=49 -CursorY=34 +Module=E:\extpascal\ext-4.2.0\src\AbstractComponent.js +CursorX=23 +CursorY=583 TopLine=7 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\FCGIApp.pas +EditViewName=E:\extpascal\ext-4.2.0\src\AbstractComponent.js [View5] CustomEditViewType=TEditView -Module=A:\ExtPascal\ExtPascalClasses.pas -CursorX=1 -CursorY=1 -TopLine=1 +Module=E:\extpascal\ext-4.2.0\src\dom\AbstractElement.js +CursorX=20 +CursorY=625 +TopLine=5 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\ExtPascalClasses.pas +EditViewName=E:\extpascal\ext-4.2.0\src\dom\AbstractElement.js [View6] CustomEditViewType=TEditView -Module=A:\ExtPascal\ExtPascalUtils.pas -CursorX=1 -CursorY=804 -TopLine=806 +Module=E:\Temp\Surface.js +CursorX=36 +CursorY=308 +TopLine=19 LeftCol=1 Elisions= Bookmarks= -EditViewName=A:\ExtPascal\ExtPascalUtils.pas +EditViewName=E:\Temp\Surface.js + +[View7] +CustomEditViewType=TEditView +Module=E:\extpascal\ExtPascalUtils.pas +CursorX=44 +CursorY=293 +TopLine=284 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=E:\extpascal\ExtPascalUtils.pas + +[View8] +CustomEditViewType=TEditView +Module=E:\extpascal\ExtJSWrapper\ExtOld.pas +CursorX=52 +CursorY=35805 +TopLine=35799 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=E:\extpascal\ExtJSWrapper\ExtOld.pas [Watches] -Count=0 +Count=5 +Watch0='V',256,0,18,1,0,'Watches',1 +Watch1='Result',256,0,18,1,0,'Watches',1 +Watch2='I',256,0,18,1,0,'Watches',1 +Watch3='J',256,0,18,1,0,'Watches',1 +Watch4='CurClass.Name',256,0,18,1,0,'Watches',1 [WatchWindow] WatchColumnWidth=120 @@ -179,23 +222,20 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 -TBDockHeight=211 -LRDockWidth=13600 +ClientWidth=3828 +ClientHeight=1172 +TBDockHeight=215 +LRDockWidth=13602 Dockable=1 StayOnTop=0 [Breakpoints] -Count=4 -Breakpoint0='A:\ExtPascal\ExtJSWrapper\Ext.pas',48599,'',0,1,'',1,0,0,'',1,'','','',0,'' -Breakpoint1='A:\ExtPascal\ExtJSWrapper\Ext.pas',48598,'',0,1,'',1,0,0,'',1,'','','',0,'' -Breakpoint2='A:\ExtPascal\ExtPascal.pas',1905,'',0,1,'',1,0,0,'',1,'','','',0,'' -Breakpoint3='A:\ExtPascal\ExtJSWrapper\Ext.pas',15463,'',0,1,'',1,0,0,'',1,'','','',0,'' +Count=1 +Breakpoint0='E:\extpascal\ExtJSWrapper\ExtToPascal.dpr',734,'',0,1,'',1,0,0,'',1,'','','',0,'' [EmbarcaderoWin32Debugger_AddressBreakpoints] Count=0 @@ -209,17 +249,17 @@ Create=1 Visible=1 Docked=0 State=2 -Left=144 -Top=278 -Width=8931 -Height=8522 -MaxLeft=-6 -MaxTop=-11 -MaxWidth=8931 -MaxHeight=8522 +Left=141 +Top=273 +Width=8930 +Height=8525 +MaxLeft=-8 +MaxTop=-10 +MaxWidth=8930 +MaxHeight=8525 ClientWidth=10000 -ClientHeight=9756 -BottomPanelSize=9456 +ClientHeight=9785 +BottomPanelSize=9521 BottomPanelClients=EditWindow0 BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF @@ -231,14 +271,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=8600 +Width=1648 +Height=9053 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=8600 -TBDockHeight=5900 -LRDockWidth=2350 +ClientWidth=1648 +ClientHeight=9053 +TBDockHeight=5898 +LRDockWidth=2352 Dockable=1 StayOnTop=0 @@ -250,14 +290,14 @@ Docked=1 State=0 Left=0 Top=23 -Width=10000 -Height=944 +Width=8328 +Height=1123 MaxLeft=-1 MaxTop=-1 -ClientWidth=10000 -ClientHeight=944 -TBDockHeight=944 -LRDockWidth=2769 +ClientWidth=8328 +ClientHeight=1123 +TBDockHeight=1123 +LRDockWidth=2766 Dockable=1 StayOnTop=0 @@ -269,13 +309,13 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=7667 +Width=1648 +Height=7109 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=7667 -TBDockHeight=7156 +ClientWidth=1648 +ClientHeight=7109 +TBDockHeight=7158 LRDockWidth=2000 Dockable=1 StayOnTop=0 @@ -287,15 +327,15 @@ Visible=0 Docked=1 State=0 Left=0 -Top=-101 -Width=275 -Height=356 +Top=291 +Width=273 +Height=361 MaxLeft=-1 MaxTop=-1 -ClientWidth=275 -ClientHeight=356 -TBDockHeight=356 -LRDockWidth=275 +ClientWidth=273 +ClientHeight=361 +TBDockHeight=361 +LRDockWidth=273 Dockable=1 StayOnTop=0 Name=120 @@ -310,14 +350,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 -TBDockHeight=411 -LRDockWidth=4950 +ClientWidth=3828 +ClientHeight=1172 +TBDockHeight=410 +LRDockWidth=4953 Dockable=1 StayOnTop=0 @@ -329,13 +369,13 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 -TBDockHeight=211 +ClientWidth=3828 +ClientHeight=1172 +TBDockHeight=215 LRDockWidth=7406 Dockable=1 StayOnTop=0 @@ -352,14 +392,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 +ClientWidth=3828 +ClientHeight=1172 TBDockHeight=1533 -LRDockWidth=3481 +LRDockWidth=3484 Dockable=1 StayOnTop=0 @@ -371,14 +411,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 -TBDockHeight=2056 -LRDockWidth=3481 +ClientWidth=3828 +ClientHeight=1172 +TBDockHeight=2061 +LRDockWidth=3484 Dockable=1 StayOnTop=0 @@ -390,14 +430,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=8600 +Width=1648 +Height=7109 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=8600 -TBDockHeight=4878 -LRDockWidth=2231 +ClientWidth=1648 +ClientHeight=7109 +TBDockHeight=4883 +LRDockWidth=7148 Dockable=1 StayOnTop=0 @@ -409,17 +449,17 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=8600 +Width=1648 +Height=7109 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=8600 -TBDockHeight=8878 -LRDockWidth=1894 +ClientWidth=1648 +ClientHeight=7109 +TBDockHeight=9014 +LRDockWidth=1891 Dockable=1 StayOnTop=0 -SplitPos=131 +SplitPos=111 [TFileExplorerForm] PercentageSizes=1 @@ -427,15 +467,15 @@ Create=1 Visible=0 Docked=1 State=0 -Left=0 -Top=-101 +Left=78 +Top=15 Width=2844 -Height=6200 +Height=6201 MaxLeft=-1 MaxTop=-1 ClientWidth=2844 -ClientHeight=6200 -TBDockHeight=6200 +ClientHeight=6201 +TBDockHeight=6201 LRDockWidth=2844 Dockable=1 StayOnTop=0 @@ -448,14 +488,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1200 +Width=2336 +Height=996 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1200 -TBDockHeight=2311 -LRDockWidth=2825 +ClientWidth=2336 +ClientHeight=996 +TBDockHeight=2314 +LRDockWidth=2828 Dockable=1 StayOnTop=0 @@ -467,14 +507,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1200 +Width=2336 +Height=1230 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1200 -TBDockHeight=3200 -LRDockWidth=2825 +ClientWidth=2336 +ClientHeight=1230 +TBDockHeight=3203 +LRDockWidth=2828 Dockable=1 StayOnTop=0 @@ -486,14 +526,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1200 +Width=2336 +Height=1230 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1200 -TBDockHeight=1156 -LRDockWidth=3675 +ClientWidth=2336 +ClientHeight=1230 +TBDockHeight=1152 +LRDockWidth=3672 Dockable=1 StayOnTop=0 Column0Width=314 @@ -511,16 +551,16 @@ Create=1 Visible=0 Docked=1 State=0 -Left=0 -Top=0 -Width=2856 -Height=3211 +Left=245 +Top=825 +Width=2859 +Height=3213 MaxLeft=-1 MaxTop=-1 -ClientWidth=2856 -ClientHeight=3211 -TBDockHeight=3211 -LRDockWidth=2856 +ClientWidth=2859 +ClientHeight=3213 +TBDockHeight=3213 +LRDockWidth=2859 Dockable=1 StayOnTop=0 @@ -532,14 +572,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=8600 +Width=1648 +Height=7109 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=8600 -TBDockHeight=4878 -LRDockWidth=5306 +ClientWidth=1648 +ClientHeight=7109 +TBDockHeight=4883 +LRDockWidth=5305 Dockable=1 StayOnTop=0 @@ -550,14 +590,14 @@ Visible=0 Docked=1 State=0 Left=0 -Top=-101 +Top=-72 Width=1844 -Height=3144 +Height=3145 MaxLeft=-1 MaxTop=-1 ClientWidth=1844 -ClientHeight=3144 -TBDockHeight=3144 +ClientHeight=3145 +TBDockHeight=3145 LRDockWidth=1844 Dockable=1 StayOnTop=0 @@ -570,13 +610,13 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1200 +Width=2336 +Height=1230 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1200 -TBDockHeight=4833 +ClientWidth=2336 +ClientHeight=1230 +TBDockHeight=4824 LRDockWidth=3562 Dockable=1 StayOnTop=0 @@ -589,13 +629,13 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1200 +Width=2336 +Height=1230 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1200 -TBDockHeight=4833 +ClientWidth=2336 +ClientHeight=1230 +TBDockHeight=4824 LRDockWidth=3562 Dockable=1 StayOnTop=0 @@ -608,14 +648,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=3825 -Height=1144 +Width=3828 +Height=1172 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1144 -TBDockHeight=1544 -LRDockWidth=8744 +ClientWidth=3828 +ClientHeight=1172 +TBDockHeight=1543 +LRDockWidth=8742 Dockable=1 StayOnTop=0 Column0Width=200 @@ -634,14 +674,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2362 -Height=8600 +Width=1648 +Height=7109 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=8600 -TBDockHeight=3678 -LRDockWidth=1894 +ClientWidth=1648 +ClientHeight=7109 +TBDockHeight=3672 +LRDockWidth=1891 Dockable=1 StayOnTop=0 @@ -653,19 +693,19 @@ Docked=0 State=0 Left=0 Top=0 -Width=1825 -Height=6178 -MaxLeft=-6 -MaxTop=-11 -ClientWidth=1725 -ClientHeight=5800 -TBDockHeight=6178 -LRDockWidth=1825 +Width=1828 +Height=6182 +MaxLeft=-8 +MaxTop=-10 +ClientWidth=1703 +ClientHeight=5850 +TBDockHeight=6182 +LRDockWidth=1828 Dockable=1 StayOnTop=0 [DockHosts] -DockHostCount=4 +DockHostCount=3 [DockSite0] HostDockSite=DockBottomCenterPanel @@ -677,14 +717,14 @@ Docked=1 State=0 Left=0 Top=0 -Width=2338 -Height=1478 +Width=2336 +Height=1475 MaxLeft=-1 MaxTop=-1 -ClientWidth=2338 -ClientHeight=1478 -TBDockHeight=1478 -LRDockWidth=2338 +ClientWidth=2336 +ClientHeight=1475 +TBDockHeight=1475 +LRDockWidth=2336 Dockable=1 StayOnTop=0 TabPosition=1 @@ -700,15 +740,15 @@ Visible=0 Docked=1 State=0 Left=0 -Top=0 -Width=3825 -Height=1422 +Top=23 +Width=3828 +Height=1416 MaxLeft=-1 MaxTop=-1 -ClientWidth=3825 -ClientHeight=1422 -TBDockHeight=1422 -LRDockWidth=3825 +ClientWidth=3828 +ClientHeight=1416 +TBDockHeight=1416 +LRDockWidth=3828 Dockable=1 StayOnTop=0 TabPosition=1 @@ -716,29 +756,26 @@ ActiveTabID=DebugLogView TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow [DockSite2] -DockSiteType=1 - -[DockSite3] -HostDockSite=LeftDockTabSet +HostDockSite=DockLeftPanel DockSiteType=1 PercentageSizes=1 Create=1 -Visible=0 +Visible=1 Docked=1 State=0 -Left=1 -Top=24 -Width=2362 -Height=7944 +Left=0 +Top=23 +Width=1648 +Height=9297 MaxLeft=-1 MaxTop=-1 -ClientWidth=2362 -ClientHeight=7944 -TBDockHeight=8878 -LRDockWidth=2362 +ClientWidth=1648 +ClientHeight=9297 +TBDockHeight=9014 +LRDockWidth=1648 Dockable=1 StayOnTop=0 TabPosition=1 -ActiveTabID=ToolForm -TabDockClients=ToolForm,PropertyInspector,ProjectManager,DataExplorerContainer,StructureView,ModelViewTool,ClassBrowserTool,TemplateView,TFileExplorerForm +ActiveTabID=ProjectManager +TabDockClients=ProjectManager,ToolForm,PropertyInspector,StructureView,DataExplorerContainer,ModelViewTool,TFileExplorerForm,TemplateView,ClassBrowserTool diff --git a/ExtPascalSamples/BasicTabPanel.pas b/ExtPascalSamples/BasicTabPanel.pas index d933d55..068c5b6 100644 --- a/ExtPascalSamples/BasicTabPanel.pas +++ b/ExtPascalSamples/BasicTabPanel.pas @@ -19,13 +19,13 @@ constructor TBasicTabPanel.Create; begin inherited; SelfSession.SetCodePress; Title := 'Hello Dialog'; - Layout := lyFit; + Layout := laFit; Plain := true; Width := 500; Height := 300; CloseAction := 'hide'; with TExtTabPanel.AddTo(Items) do begin - ActiveTabNumber := 0; + ActiveTabInteger := 0; with TExtPanel.AddTo(Items) do begin Title := 'Hello World 1'; Html := 'Hello...'; diff --git a/ExtPascalSamples/FileUpload.pas b/ExtPascalSamples/FileUpload.pas index d3c7a86..679e424 100644 --- a/ExtPascalSamples/FileUpload.pas +++ b/ExtPascalSamples/FileUpload.pas @@ -15,7 +15,7 @@ TFileUpload = class(TExtWindow) implementation uses - SysUtils, Session, ExtForm; + SysUtils, Session; procedure TFileUpload.Process; begin // process your file here, by example loading a database table with it @@ -27,7 +27,7 @@ procedure TFileUpload.Process; begin constructor TFileUpload.Create; var - F : TExtFormFormPanel; + F : TExtFormPanel; SubmitAction : TExtFormActionSubmit; begin inherited; @@ -35,11 +35,11 @@ constructor TFileUpload.Create; SelfSession.SetCodePress; Modal := true; Title := 'File Upload Window'; - F := TExtFormFormPanel.Create; + F := TExtFormPanel.Create; with F.AddTo(Items) do begin FileUpload := true; Frame := true; - AutoHeight := true; +// AutoHeight := true; Width := 300; LabelWidth := 20; with TExtFormTextField.AddTo(Items) do begin diff --git a/ExtPascalSamples/Session.pas b/ExtPascalSamples/Session.pas index 1ae70db..a557235 100644 --- a/ExtPascalSamples/Session.pas +++ b/ExtPascalSamples/Session.pas @@ -79,13 +79,13 @@ procedure TSession.Home; Frame := true; Collapsible := true; if not(Browser in [brChrome, brSafari, brMobileSafari]) then - Layout := lyColumn; // Webkit doesn't support Column layout correctly - AddShowSourceButton(TBarArray, 'ExtPascalSamples.dpr', '', 'Show Main Program'); - TExtToolbarSeparator.AddTo(TBarArray); - AddShowSourceButton(TBarArray, 'Session'); + Layout := laColumn; // Webkit doesn't support Column layout correctly + AddShowSourceButton(TBar, 'ExtPascalSamples.dpr', '', 'Show Main Program'); + TExtToolbarSeparator.AddTo(TBar); + AddShowSourceButton(TBar, 'Session'); for I := 0 to high(Examples) do with Examples[I], TExtPanel.AddTo(Items) do begin - if Layout <> lyColumn then + if Layout <> laColumn then Width := 380; Title := Name; Frame := true;