david
111d889bc6
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@32 05c56307-c608-d34a-929d-697000501d7a
1450 lines
53 KiB
ObjectPascal
1450 lines
53 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ ExpressWeb Framework by Developer Express }
|
|
{ Objects Dispatch Implementor }
|
|
{ }
|
|
{ Copyright (c) 2000-2009 Developer Express Inc. }
|
|
{ ALL RIGHTS RESERVED }
|
|
{ }
|
|
{ The entire contents of this file is protected by U.S. and }
|
|
{ International Copyright Laws. Unauthorized reproduction, }
|
|
{ reverse-engineering, and distribution of all or any portion of }
|
|
{ the code contained in this file is strictly prohibited and may }
|
|
{ result in severe civil and criminal penalties and will be }
|
|
{ prosecuted to the maximum extent possible under the law. }
|
|
{ }
|
|
{ RESTRICTIONS }
|
|
{ }
|
|
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
|
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
|
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSWEB FRAMEWORK AND ALL }
|
|
{ ACCOMPANYING VCL CLASSES AS PART OF AN EXECUTABLE WEB }
|
|
{ APPLICATION ONLY. }
|
|
{ }
|
|
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
|
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
|
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
|
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{*******************************************************************}
|
|
|
|
unit cxWebDispImp;
|
|
|
|
interface
|
|
|
|
{$I cxVer.inc}
|
|
|
|
uses cxScriptDispImpl, SysUtils, Classes,
|
|
cxWebClasses, cxWebControls, cxWebMenus, cxWebMainMenu, cxWebData,
|
|
cxWebGrids, cxWebTV;
|
|
|
|
type
|
|
TcxScriptDispWebComponentImpl_Empty = procedure of object;
|
|
|
|
TcxWebComponentImpl = class(TcxScriptDispImpl)
|
|
private
|
|
protected
|
|
function WebComponent: TcxWebComponent;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
end;
|
|
|
|
TcxScriptDispWebControlImpl_SetBounds = procedure (ALeft, ATop, AWidth, AHeight: Integer) of object;
|
|
|
|
TcxWebControlImpl = class(TcxWebComponentImpl)
|
|
private
|
|
FDispatch_Hide: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_SetBounds: TcxScriptDispWebControlImpl_SetBounds;
|
|
FDispatch_Show: TcxScriptDispWebComponentImpl_Empty;
|
|
procedure Dispatch_Hide;
|
|
procedure Dispatch_SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
|
|
procedure Dispatch_Show;
|
|
protected
|
|
function WebControl: TcxWebControl;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property Hide: TcxScriptDispWebComponentImpl_Empty read FDispatch_Hide;
|
|
property SetBounds: TcxScriptDispWebControlImpl_SetBounds read FDispatch_SetBounds;
|
|
property Show: TcxScriptDispWebComponentImpl_Empty read FDispatch_Show;
|
|
end;
|
|
|
|
|
|
TcxScriptDispWebControlImpl_Count = function: Integer of object;
|
|
TcxScriptDispWebControlImpl_WebControls = function(Index: Integer): TcxWebControl of object;
|
|
TcxScriptDispWebControlImpl_WebContainerControls = function(Index: Integer): TcxWebContainerControl of object;
|
|
|
|
TcxWebContainerControlImpl = class(TcxWebControlImpl)
|
|
private
|
|
FDispatch_WebControlContainerCount: TcxScriptDispWebControlImpl_Count;
|
|
FDispatch_WebControlContainers: TcxScriptDispWebControlImpl_WebContainerControls;
|
|
FDispatch_WebControlCount: TcxScriptDispWebControlImpl_Count;
|
|
FDispatch_WebControls: TcxScriptDispWebControlImpl_WebControls;
|
|
function Dispatch_WebControlContainerCount: Integer;
|
|
function Dispatch_WebControlContainers(Index: Integer): TcxWebContainerControl;
|
|
function Dispatch_WebControlCount: Integer;
|
|
function Dispatch_WebControls(Index: Integer): TcxWebControl;
|
|
protected
|
|
function WebContainerControl: TcxWebContainerControl;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property WebControlContainerCount: TcxScriptDispWebControlImpl_Count read FDispatch_WebControlContainerCount;
|
|
property WebControlContainers: TcxScriptDispWebControlImpl_WebContainerControls read FDispatch_WebControlContainers;
|
|
property WebControlCount: TcxScriptDispWebControlImpl_Count read FDispatch_WebControlCount;
|
|
property WebControls: TcxScriptDispWebControlImpl_WebControls read FDispatch_WebControls;
|
|
end;
|
|
|
|
TcxScriptDispWebMenuImpl_ItemByName = function(AName: string): TcxWebMenuItem of object;
|
|
|
|
TcxWebPopupMenuImpl = class(TcxWebComponentImpl)
|
|
private
|
|
FDispatch_ItemByName: TcxScriptDispWebMenuImpl_ItemByName;
|
|
function Dispatch_ItemByName(AName: string): TcxWebMenuItem;
|
|
protected
|
|
function WebPopupMenu: TcxWebPopupMenu;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property ItemByName: TcxScriptDispWebMenuImpl_ItemByName read FDispatch_ItemByName;
|
|
end;
|
|
|
|
TcxWebMainMenuImpl = class(TcxWebControlImpl)
|
|
private
|
|
FDispatch_ItemByName: TcxScriptDispWebMenuImpl_ItemByName;
|
|
function Dispatch_ItemByName(AName: string): TcxWebMenuItem;
|
|
protected
|
|
function WebMainMenu: TcxWebMainMenu;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property ItemByName: TcxScriptDispWebMenuImpl_ItemByName read FDispatch_ItemByName;
|
|
end;
|
|
|
|
TcxScriptDispWebMenuItem_Add = function : TcxWebMenuItem of object;
|
|
TcxScriptDispWebMenuItem_Delete = procedure(Index: Integer) of object;
|
|
TcxScriptDispWebMenuItem_IndexOf = function(Item: TcxWebMenuItem): Integer of object;
|
|
TcxScriptDispWebMenuItem_Insert = procedure(Index: Integer; Item: TcxWebMenuItem) of object;
|
|
TcxScriptDispWebMenuItem_Remove = procedure(Item: TcxWebMenuItem) of object;
|
|
TcxScriptDispWebMenuItem_Items = function(Index: Integer): TcxWebMenuItem of object;
|
|
|
|
TcxWebMenuItemImpl = class(TcxScriptDispImpl)
|
|
private
|
|
FDispatch_Add: TcxScriptDispWebMenuItem_Add;
|
|
FDispatch_Clear: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_Delete: TcxScriptDispWebMenuItem_Delete;
|
|
FDispatch_IndexOf: TcxScriptDispWebMenuItem_IndexOf;
|
|
FDispatch_Insert: TcxScriptDispWebMenuItem_Insert;
|
|
FDispatch_ItemByName: TcxScriptDispWebMenuImpl_ItemByName;
|
|
FDispatch_Remove: TcxScriptDispWebMenuItem_Remove;
|
|
FDispatch_Items: TcxScriptDispWebMenuItem_Items;
|
|
|
|
function Dispatch_Add: TcxWebMenuItem;
|
|
procedure Dispatch_Clear;
|
|
procedure Dispatch_Delete(Index: Integer);
|
|
function Dispatch_IndexOf(Item: TcxWebMenuItem): Integer;
|
|
procedure Dispatch_Insert(Index: Integer; Item: TcxWebMenuItem);
|
|
function Dispatch_ItemByName(AName: string): TcxWebMenuItem;
|
|
procedure Dispatch_Remove(Item: TcxWebMenuItem);
|
|
function Dispatch_Items(Index: Integer): TcxWebMenuItem;
|
|
|
|
function GetCount: Integer;
|
|
function GetIndex: Integer;
|
|
function GetParent: TcxWebMenuItem;
|
|
function GetParentMenu: TcxWebComponent;
|
|
procedure SetIndex(Value: Integer);
|
|
protected
|
|
function WebMenuItem: TcxWebMenuItem;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property Add: TcxScriptDispWebMenuItem_Add read FDispatch_Add;
|
|
property Clear: TcxScriptDispWebComponentImpl_Empty read FDispatch_Clear;
|
|
property Delete: TcxScriptDispWebMenuItem_Delete read FDispatch_Delete;
|
|
property IndexOf: TcxScriptDispWebMenuItem_IndexOf read FDispatch_IndexOf;
|
|
property Insert: TcxScriptDispWebMenuItem_Insert read FDispatch_Insert;
|
|
property ItemByName: TcxScriptDispWebMenuImpl_ItemByName read FDispatch_ItemByName;
|
|
property Remove: TcxScriptDispWebMenuItem_Remove read FDispatch_Remove;
|
|
|
|
property Count: Integer read GetCount;
|
|
property Items: TcxScriptDispWebMenuItem_Items read FDispatch_Items;
|
|
property Index: Integer read GetIndex write SetIndex;
|
|
property Parent: TcxWebMenuItem read GetParent;
|
|
property ParentMenu: TcxWebComponent read GetParentMenu;
|
|
end;
|
|
|
|
TcxScriptDispWebDataSourceImpl_RowIndex = procedure(ARowIndex: Integer) of object;
|
|
TcxScriptDispWebDataSourceImpl_FieldByName = function(Name: string): TcxCustomWebDataField of object;
|
|
TcxScriptDispWebDataSourceImpl_DisplayText = function(RowIndex, ItemIndex: Integer): string of object;
|
|
TcxScriptDispWebDataSourceImpl_Value = function(RowIndex, ItemIndex: Integer): Variant of object;
|
|
TcxScriptDispWebDataSourceImpl_RowExpanded = function(RowIndex: Integer): Boolean of object;
|
|
TcxScriptDispWebDataSourceImpl_RowLevel = function(RowIndex: Integer): Integer of object;
|
|
TcxScriptDispWebDataSourceImpl_RowRecord = function(RowIndex: Integer): Integer of object;
|
|
TcxScriptDispWebDataSourceImpl_ItemIndex = function(Item: Integer): Integer of object;
|
|
TcxScriptDispWebDataSourceImpl_ItemGropuIndex = function(ItemIndex: Integer): Integer of object;
|
|
TcxScriptDispWebDataSourceImpl_ItemSortOrder = function(ItemIndex: Integer): TcxWebDataSortOrder of object;
|
|
TcxScriptDispWebDataSourceImpl_Expand = procedure (ARowIndex: Integer; AExpanded, ARecursive: Boolean) of object;
|
|
TcxScriptDispWebDataSourceImpl_Group = procedure (GroupField, GroupIndex: Integer) of object;
|
|
TcxScriptDispWebDataSourceImpl_PostEdit = procedure (APriorControlName: string) of object;
|
|
TcxScriptDispWebDataSourceImpl_SetEditValue = procedure (AItemIndex: Integer; AValue: Variant; AType: TcxWebDataTypes) of object;
|
|
TcxScriptDispWebDataSourceImpl_Sort = procedure (SortIndex: Integer; SortOrder: TcxWebDataSortOrder) of object;
|
|
TcxScriptDispWebDataSourceImpl_UnGroup = procedure (UnGroupIndex: Integer) of object;
|
|
|
|
TcxWebDataSourceImpl = class(TcxWebComponentImpl)
|
|
private
|
|
FDispatch_FieldByName: TcxScriptDispWebDataSourceImpl_FieldByName;
|
|
FDispatch_GetRowDisplayText: TcxScriptDispWebDataSourceImpl_DisplayText;
|
|
FDispatch_GetRowValue: TcxScriptDispWebDataSourceImpl_Value;
|
|
FDispatch_GetRowExpanded: TcxScriptDispWebDataSourceImpl_RowExpanded;
|
|
FDispatch_GetRowLevel: TcxScriptDispWebDataSourceImpl_RowLevel;
|
|
FDispatch_GetRowRecord: TcxScriptDispWebDataSourceImpl_RowRecord;
|
|
FDispatch_GetItemGroupIndex: TcxScriptDispWebDataSourceImpl_ItemGropuIndex;
|
|
FDispatch_GetItemSortOrder: TcxScriptDispWebDataSourceImpl_ItemSortOrder;
|
|
FDispatch_GetGroupingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex;
|
|
FDispatch_GetSortingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex;
|
|
FDispatch_ClearGrouping: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_ClearSorting: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_FullCollapse: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_FullExpand: TcxScriptDispWebComponentImpl_Empty;
|
|
|
|
FDispatch_DisplayTexts: TcxScriptDispWebDataSourceImpl_DisplayText;
|
|
FDispatch_Values: TcxScriptDispWebDataSourceImpl_Value;
|
|
|
|
FDispatch_CancelEdit: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_DeleteRecord: TcxScriptDispWebDataSourceImpl_RowIndex;
|
|
FDispatch_InsertRecord: TcxScriptDispWebDataSourceImpl_RowIndex;
|
|
FDispatch_EditRecord: TcxScriptDispWebDataSourceImpl_RowIndex;
|
|
FDispatch_Expand: TcxScriptDispWebDataSourceImpl_Expand;
|
|
FDispatch_Group: TcxScriptDispWebDataSourceImpl_Group;
|
|
FDispatch_PostEdit: TcxScriptDispWebDataSourceImpl_PostEdit;
|
|
FDispatch_SetEditValue: TcxScriptDispWebDataSourceImpl_SetEditValue;
|
|
FDispatch_Sort: TcxScriptDispWebDataSourceImpl_Sort;
|
|
FDispatch_UnGroup: TcxScriptDispWebDataSourceImpl_UnGroup;
|
|
FDispatch_Refresh: TcxScriptDispWebComponentImpl_Empty;
|
|
|
|
function Dispatch_FieldByName(Name: string): TcxCustomWebDataField;
|
|
function Dispatch_GetRowDisplayText(RowIndex: Integer; ItemIndex: Integer): string;
|
|
function Dispatch_GetRowValue(RowIndex: Integer; ItemIndex: Integer): Variant;
|
|
function Dispatch_GetRowExpanded(RowIndex: Integer): Boolean;
|
|
function Dispatch_GetRowLevel(RowIndex: Integer): Integer;
|
|
function Dispatch_GetRowRecord(RowIndex: Integer): Integer;
|
|
function GetGroupingItemCount_: Integer;
|
|
function GetSortingItemCount_: Integer;
|
|
function Dispatch_GetItemGroupIndex(ItemIndex: Integer): Integer;
|
|
function Dispatch_GetItemSortOrder(ItemIndex: Integer): TcxWebDataSortOrder;
|
|
function Dispatch_GetGroupingItemIndex(Item: Integer): Integer;
|
|
function Dispatch_GetSortingItemIndex(Item: Integer): Integer;
|
|
procedure Dispatch_ClearGrouping;
|
|
procedure Dispatch_ClearSorting;
|
|
procedure Dispatch_FullCollapse;
|
|
procedure Dispatch_FullExpand;
|
|
|
|
function Dispatch_DisplayTexts(RecordIndex, ItemIndex: Integer): string;
|
|
function Dispatch_Values(RecordIndex, ItemIndex: Integer): Variant;
|
|
|
|
procedure Dispatch_CancelEdit;
|
|
procedure Dispatch_DeleteRecord(ARowIndex: Integer);
|
|
procedure Dispatch_InsertRecord(ARowIndex: Integer);
|
|
procedure Dispatch_EditRecord(ARowIndex: Integer);
|
|
procedure Dispatch_Expand(ARowIndex: Integer; AExpanded, ARecursive: Boolean);
|
|
procedure Dispatch_Group(GroupField, GroupIndex: Integer);
|
|
procedure Dispatch_PostEdit(APriorControlName: string);
|
|
procedure Dispatch_SetEditValue(AItemIndex: Integer; AValue: Variant; AType: TcxWebDataTypes);
|
|
procedure Dispatch_Sort(SortIndex: Integer; SortOrder: TcxWebDataSortOrder);
|
|
procedure Dispatch_UnGroup(UnGroupIndex: Integer);
|
|
procedure Dispatch_Refresh;
|
|
|
|
function GetFocusedRowIndex: Integer;
|
|
function GetRecordCount: Integer;
|
|
function GetRowCount: Integer;
|
|
procedure SetFocusedRowIndex(Value: Integer);
|
|
protected
|
|
function WebDataSource: TcxCustomWebDataSource;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property FieldByName: TcxScriptDispWebDataSourceImpl_FieldByName read FDispatch_FieldByName;
|
|
property GetRowDisplayText: TcxScriptDispWebDataSourceImpl_DisplayText read FDispatch_GetRowDisplayText;
|
|
property GetRowValue: TcxScriptDispWebDataSourceImpl_Value read FDispatch_GetRowValue;
|
|
property GetRowExpanded: TcxScriptDispWebDataSourceImpl_RowExpanded read FDispatch_GetRowExpanded;
|
|
property GetRowLevel: TcxScriptDispWebDataSourceImpl_RowLevel read FDispatch_GetRowLevel;
|
|
property GetRowRecord: TcxScriptDispWebDataSourceImpl_RowRecord read FDispatch_GetRowRecord;
|
|
property GetGroupingItemCount: Integer read GetGroupingItemCount_;
|
|
property GetSortingItemCount: Integer read GetSortingItemCount_;
|
|
property GetItemGroupIndex: TcxScriptDispWebDataSourceImpl_ItemGropuIndex read FDispatch_GetItemGroupIndex;
|
|
property GetItemSortOrder: TcxScriptDispWebDataSourceImpl_ItemSortOrder read FDispatch_GetItemSortOrder;
|
|
property GetGroupingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex read FDispatch_GetGroupingItemIndex;
|
|
property GetSortingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex read FDispatch_GetSortingItemIndex;
|
|
property ClearGrouping: TcxScriptDispWebComponentImpl_Empty read FDispatch_ClearGrouping;
|
|
property ClearSorting: TcxScriptDispWebComponentImpl_Empty read FDispatch_ClearSorting;
|
|
property FullCollapse: TcxScriptDispWebComponentImpl_Empty read FDispatch_FullCollapse;
|
|
property FullExpand: TcxScriptDispWebComponentImpl_Empty read FDispatch_FullExpand;
|
|
|
|
property DisplayTexts: TcxScriptDispWebDataSourceImpl_DisplayText read FDispatch_DisplayTexts;
|
|
property FocusedRowIndex: Integer read GetFocusedRowIndex write SetFocusedRowIndex;
|
|
property RecordCount: Integer read GetRecordCount;
|
|
property RowCount: Integer read GetRowCount;
|
|
property Values: TcxScriptDispWebDataSourceImpl_Value read FDispatch_Values;
|
|
|
|
property CancelEdit: TcxScriptDispWebComponentImpl_Empty read FDispatch_CancelEdit;
|
|
property DeleteRecord: TcxScriptDispWebDataSourceImpl_RowIndex read FDispatch_DeleteRecord;
|
|
property InsertRecord: TcxScriptDispWebDataSourceImpl_RowIndex read FDispatch_InsertRecord;
|
|
property EditRecord: TcxScriptDispWebDataSourceImpl_RowIndex read FDispatch_EditRecord;
|
|
property Expand: TcxScriptDispWebDataSourceImpl_Expand read FDispatch_Expand;
|
|
property Group: TcxScriptDispWebDataSourceImpl_Group read FDispatch_Group;
|
|
property PostEdit: TcxScriptDispWebDataSourceImpl_PostEdit read FDispatch_PostEdit;
|
|
property SetEditValue: TcxScriptDispWebDataSourceImpl_SetEditValue read FDispatch_SetEditValue;
|
|
property Sort: TcxScriptDispWebDataSourceImpl_Sort read FDispatch_Sort;
|
|
property UnGroup: TcxScriptDispWebDataSourceImpl_UnGroup read FDispatch_UnGroup;
|
|
property Refresh: TcxScriptDispWebComponentImpl_Empty read FDispatch_Refresh;
|
|
end;
|
|
|
|
TcxScriptDispWebGridImpl_Add = function: TcxWebColumn of object;
|
|
TcxScriptDispWebGridImpl_Delete = procedure (AIndex: Integer) of object;
|
|
TcxScriptDispWebGridImpl_IndexOf = function(AItem: TcxWebColumn): Integer of object;
|
|
TcxScriptDispWebGridImpl_ColumnByName = function(const AName: string): TcxWebColumn of object;
|
|
TcxScriptDispWebGridImpl_SortOrder = function(ItemIndex: Integer): TcxWebGridSortMode of object;
|
|
TcxScriptDispWebGridImpl_CanCreateDefaultColumns = function: Boolean of object;
|
|
TcxScriptDispWebGridImpl_CreateDefaultColumns = procedure(ADeleteExistColumns: Boolean) of object;
|
|
TcxScriptDispWebGridImpl_Columns = function(Index: Integer): TcxWebColumn of object;
|
|
|
|
TcxWebGridImpl = class(TcxWebControlImpl)
|
|
private
|
|
FDispatch_Add: TcxScriptDispWebGridImpl_Add;
|
|
FDispatch_Clear: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_Delete: TcxScriptDispWebGridImpl_Delete;
|
|
FDispatch_IndexOf: TcxScriptDispWebGridImpl_IndexOf;
|
|
FDispatch_ColumnByName: TcxScriptDispWebGridImpl_ColumnByName;
|
|
FDispatch_CanCreateDefaultColumns: TcxScriptDispWebGridImpl_CanCreateDefaultColumns;
|
|
FDispatch_CreateDefaultColumns: TcxScriptDispWebGridImpl_CreateDefaultColumns;
|
|
FDispatch_GetRowDisplayText: TcxScriptDispWebDataSourceImpl_DisplayText;
|
|
FDispatch_GetRowValue: TcxScriptDispWebDataSourceImpl_Value;
|
|
FDispatch_GetRowExpanded: TcxScriptDispWebDataSourceImpl_RowExpanded;
|
|
FDispatch_GetRowLevel: TcxScriptDispWebDataSourceImpl_RowLevel;
|
|
FDispatch_GetRowRecord: TcxScriptDispWebDataSourceImpl_RowRecord;
|
|
FDispatch_GetItemGroupIndex: TcxScriptDispWebDataSourceImpl_ItemGropuIndex;
|
|
FDispatch_GetItemSortOrder: TcxScriptDispWebGridImpl_SortOrder;
|
|
FDispatch_GetSortingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex;
|
|
FDispatch_GetGroupingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex;
|
|
FDispatch_Columns: TcxScriptDispWebGridImpl_Columns;
|
|
|
|
function Dispatch_Add: TcxWebColumn;
|
|
procedure Dispatch_Clear;
|
|
procedure Dispatch_Delete(AIndex: Integer);
|
|
function Dispatch_IndexOf(AItem: TcxWebColumn): Integer;
|
|
function Dispatch_ColumnByName(const AName: string): TcxWebColumn;
|
|
function Dispatch_CanCreateDefaultColumns: Boolean;
|
|
procedure Dispatch_CreateDefaultColumns(ADeleteExistColumns: Boolean);
|
|
function Dispatch_GetRowDisplayText(ARowIndex, AColIndex: Integer): string;
|
|
function Dispatch_GetRowValue(ARowIndex, AColIndex: Integer): Variant;
|
|
function Dispatch_GetRowExpanded(RowIndex: Integer): Boolean;
|
|
function Dispatch_GetRowLevel(RowIndex: Integer): Integer;
|
|
function Dispatch_GetRowRecord(RowIndex: Integer): Integer;
|
|
function Dispatch_GetItemGroupIndex(AColIndex: Integer): Integer;
|
|
function Dispatch_GetItemSortOrder(AColIndex: Integer): TcxWebGridSortMode;
|
|
function Dispatch_GetSortingItemIndex(Item: Integer): Integer;
|
|
function Dispatch_GetGroupingItemIndex(Item: Integer): Integer;
|
|
function Dispatch_Columns(Index: Integer): TcxWebColumn;
|
|
|
|
function GetColumnCount: Integer;
|
|
function GetFirstVisibleRow: Integer;
|
|
function GetFocusedRow: Integer;
|
|
function GetGroupingItemCount_: Integer;
|
|
function GetRecordCount: Integer;
|
|
function GetRowCount: Integer;
|
|
function GetSortingItemCount_: Integer;
|
|
protected
|
|
function WebGrid: TcxCustomWebGrid;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property Add: TcxScriptDispWebGridImpl_Add read FDispatch_Add;
|
|
property Clear: TcxScriptDispWebComponentImpl_Empty read FDispatch_Clear;
|
|
property Delete: TcxScriptDispWebGridImpl_Delete read FDispatch_Delete;
|
|
property IndexOf: TcxScriptDispWebGridImpl_IndexOf read FDispatch_IndexOf;
|
|
property ColumnByName: TcxScriptDispWebGridImpl_ColumnByName read FDispatch_ColumnByName;
|
|
property CanCreateDefaultColumns: TcxScriptDispWebGridImpl_CanCreateDefaultColumns read FDispatch_CanCreateDefaultColumns;
|
|
property CreateDefaultColumns: TcxScriptDispWebGridImpl_CreateDefaultColumns read FDispatch_CreateDefaultColumns;
|
|
|
|
property GetRowDisplayText: TcxScriptDispWebDataSourceImpl_DisplayText read FDispatch_GetRowDisplayText;
|
|
property GetRowValue: TcxScriptDispWebDataSourceImpl_Value read FDispatch_GetRowValue;
|
|
property GetRowExpanded: TcxScriptDispWebDataSourceImpl_RowExpanded read FDispatch_GetRowExpanded;
|
|
property GetRowLevel: TcxScriptDispWebDataSourceImpl_RowLevel read FDispatch_GetRowLevel;
|
|
property GetRowRecord: TcxScriptDispWebDataSourceImpl_RowRecord read FDispatch_GetRowRecord;
|
|
property GetGroupingItemCount: Integer read GetGroupingItemCount_;
|
|
property GetSortingItemCount: Integer read GetSortingItemCount_;
|
|
property GetItemGroupIndex: TcxScriptDispWebDataSourceImpl_ItemGropuIndex read FDispatch_GetItemGroupIndex;
|
|
property GetItemSortOrder: TcxScriptDispWebGridImpl_SortOrder read FDispatch_GetItemSortOrder;
|
|
property GetSortingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex read FDispatch_GetSortingItemIndex;
|
|
property GetGroupingItemIndex: TcxScriptDispWebDataSourceImpl_ItemIndex read FDispatch_GetGroupingItemIndex;
|
|
|
|
property Columns: TcxScriptDispWebGridImpl_Columns read FDispatch_Columns;
|
|
property ColumnCount: Integer read GetColumnCount;
|
|
|
|
property FirstVisibleRow: Integer read GetFirstVisibleRow;
|
|
property FocusedRow: Integer read GetFocusedRow;
|
|
property RecordCount: Integer read GetRecordCount;
|
|
property RowCount: Integer read GetRowCount;
|
|
end;
|
|
|
|
TcxScriptDispWebTreeViewImpl_AddItem = function: TcxWebTreeItem of object;
|
|
TcxScriptDispWebTreeViewImpl_ItemByName = function(const AName: string): TcxWebTreeItem of object;
|
|
TcxScriptDispWebTreeViewImpl_Items = function: TcxWebTreeItem of object;
|
|
|
|
TcxWebTreeViewImpl = class(TcxWebControlImpl)
|
|
private
|
|
FDispatch_AddItem: TcxScriptDispWebTreeViewImpl_AddItem;
|
|
FDispatch_Clear: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_FullCollapse: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_FullExpand: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_ItemByName: TcxScriptDispWebTreeViewImpl_ItemByName;
|
|
FDispatch_Items: TcxScriptDispWebTreeViewImpl_Items;
|
|
|
|
function Dispatch_AddItem: TcxWebTreeItem;
|
|
procedure Dispatch_Clear;
|
|
procedure Dispatch_FullCollapse;
|
|
procedure Dispatch_FullExpand;
|
|
function Dispatch_ItemByName(const AName: string): TcxWebTreeItem;
|
|
function Dispatch_Items: TcxWebTreeItem;
|
|
protected
|
|
function WebTreeView: TcxWebTreeView;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property AddItem: TcxScriptDispWebTreeViewImpl_AddItem read FDispatch_AddItem;
|
|
property Clear: TcxScriptDispWebComponentImpl_Empty read FDispatch_Clear;
|
|
property FullCollapse: TcxScriptDispWebComponentImpl_Empty read FDispatch_FullCollapse;
|
|
property FullExpand: TcxScriptDispWebComponentImpl_Empty read FDispatch_FullExpand;
|
|
property ItemByName: TcxScriptDispWebTreeViewImpl_ItemByName read FDispatch_ItemByName;
|
|
property Items: TcxScriptDispWebTreeViewImpl_Items read FDispatch_Items;
|
|
end;
|
|
|
|
TcxScriptDispWebTreeItemImpl_Collapse = procedure(ARecurse: Boolean) of object;
|
|
TcxScriptDispWebTreeItemImpl_IndexOf = function(Value: TcxWebTreeItem): Integer of object;
|
|
TcxScriptDispWebTreeItemImpl_InsertChild = function(BeforeItem: TcxWebTreeItem): TcxWebTreeItem of object;
|
|
TcxScriptDispWebTreeItemImpl_Items = function(Index: Integer): TcxWebTreeItem of object;
|
|
|
|
TcxWebTreeItemImpl = class(TcxScriptDispImpl)
|
|
private
|
|
FDispatch_AddChild: TcxScriptDispWebTreeViewImpl_AddItem;
|
|
FDispatch_Collapse: TcxScriptDispWebTreeItemImpl_Collapse;
|
|
FDispatch_DeleteChildren: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_Expand: TcxScriptDispWebTreeItemImpl_Collapse;
|
|
FDispatch_IndexOf: TcxScriptDispWebTreeItemImpl_IndexOf;
|
|
FDispatch_InsertChild: TcxScriptDispWebTreeItemImpl_InsertChild;
|
|
FDispatch_Items: TcxScriptDispWebTreeItemImpl_Items;
|
|
|
|
function Dispatch_AddChild: TcxWebTreeItem;
|
|
procedure Dispatch_Collapse(ARecurse: Boolean);
|
|
procedure Dispatch_DeleteChildren;
|
|
procedure Dispatch_Expand(ARecurse: Boolean);
|
|
function Dispatch_IndexOf(Value: TcxWebTreeItem): Integer;
|
|
function Dispatch_InsertChild(BeforeItem: TcxWebTreeItem): TcxWebTreeItem;
|
|
function Dispatch_Items(Index: Integer): TcxWebTreeItem;
|
|
|
|
function GetCount: Integer;
|
|
function GetHasChildren: Boolean;
|
|
function GetIndex: Integer;
|
|
function GetLevel: Integer;
|
|
function GetParent: TcxWebTreeItem;
|
|
function GetExpanded: Boolean;
|
|
function GetHint: string;
|
|
function GetImageIndex: Integer;
|
|
function GetName: string;
|
|
function GetText: string;
|
|
function GetURL: TcxURL;
|
|
procedure SetExpanded(Value: Boolean);
|
|
procedure SetHint(Value: string);
|
|
procedure SetImageIndex(Value: Integer);
|
|
procedure SetName(Value: string);
|
|
procedure SetText(Value: string);
|
|
procedure SetURL(Value: TcxURL);
|
|
protected
|
|
function WebTreeItem: TcxWebTreeItem;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property AddChild: TcxScriptDispWebTreeViewImpl_AddItem read FDispatch_AddChild;
|
|
property Collapse: TcxScriptDispWebTreeItemImpl_Collapse read FDispatch_Collapse;
|
|
property DeleteChildren: TcxScriptDispWebComponentImpl_Empty read FDispatch_DeleteChildren;
|
|
property Expand: TcxScriptDispWebTreeItemImpl_Collapse read FDispatch_Expand;
|
|
property IndexOf: TcxScriptDispWebTreeItemImpl_IndexOf read FDispatch_IndexOf;
|
|
property InsertChild: TcxScriptDispWebTreeItemImpl_InsertChild read FDispatch_InsertChild;
|
|
property Items: TcxScriptDispWebTreeItemImpl_Items read FDispatch_Items;
|
|
|
|
property Count: Integer read GetCount;
|
|
property HasChildren: Boolean read GetHasChildren;
|
|
property Index: Integer read GetIndex;
|
|
property Level: Integer read GetLevel;
|
|
property Parent: TcxWebTreeItem read GetParent;
|
|
property Expanded: Boolean read GetExpanded write SetExpanded;
|
|
property Hint: string read GetHint write SetHint;
|
|
property ImageIndex: Integer read GetImageIndex write SetImageIndex;
|
|
property Name: string read GetName write SetName;
|
|
property Text: string read GetText write SetText;
|
|
property URL: TcxURL read GetURL write SetURL;
|
|
end;
|
|
|
|
TcxScriptDispWebStyleControllerImpl_Add = function: TcxWebStyleItem of object;
|
|
TcxScriptDispWebStyleControllerImpl_Delete = procedure(AIndex: Integer) of object;
|
|
TcxScriptDispWebStyleControllerImpl_IndexOf = function(AItem: TcxWebStyleItem): Integer of object;
|
|
TcxScriptDispWebStyleControllerImpl_ItemByName = function(const AName: string): TcxWebStyleItem of object;
|
|
TcxScriptDispWebStyleControllerImpl_Items = function(Index: Integer): TcxWebStyleItem of object;
|
|
|
|
TcxWebStyleControllerImpl = class(TcxScriptDispImpl)
|
|
private
|
|
FDispatch_Add: TcxScriptDispWebStyleControllerImpl_Add;
|
|
FDispatch_Clear: TcxScriptDispWebComponentImpl_Empty;
|
|
FDispatch_Delete: TcxScriptDispWebStyleControllerImpl_Delete;
|
|
FDispatch_IndexOf: TcxScriptDispWebStyleControllerImpl_IndexOf;
|
|
FDispatch_ItemByName: TcxScriptDispWebStyleControllerImpl_ItemByName;
|
|
FDispatch_Items: TcxScriptDispWebStyleControllerImpl_Items;
|
|
|
|
function Dispatch_Add: TcxWebStyleItem;
|
|
procedure Dispatch_Clear;
|
|
procedure Dispatch_Delete(AIndex: Integer);
|
|
function Dispatch_IndexOf(AItem: TcxWebStyleItem): Integer;
|
|
function Dispatch_ItemByName(const AName: string): TcxWebStyleItem;
|
|
function Dispatch_Items(Index: Integer): TcxWebStyleItem;
|
|
function GetCount: Integer;
|
|
protected
|
|
function WebStyleController: TcxWebStyleController;
|
|
public
|
|
constructor Create(AOwner: TObject); override;
|
|
class function GetObjectClass: TClass; override;
|
|
published
|
|
property Count: Integer read GetCount;
|
|
property Add: TcxScriptDispWebStyleControllerImpl_Add read FDispatch_Add;
|
|
property Clear: TcxScriptDispWebComponentImpl_Empty read FDispatch_Clear;
|
|
property Delete: TcxScriptDispWebStyleControllerImpl_Delete read FDispatch_Delete;
|
|
property IndexOf: TcxScriptDispWebStyleControllerImpl_IndexOf read FDispatch_IndexOf;
|
|
property ItemByName: TcxScriptDispWebStyleControllerImpl_ItemByName read FDispatch_ItemByName;
|
|
property Items: TcxScriptDispWebStyleControllerImpl_Items read FDispatch_Items;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
cxScriptDispFactory, cxWebUtils;
|
|
|
|
{ TcxWebComponentImpl }
|
|
|
|
constructor TcxWebComponentImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
class function TcxWebComponentImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebComponent;
|
|
end;
|
|
|
|
function TcxWebComponentImpl.WebComponent: TcxWebComponent;
|
|
begin
|
|
if Owner is TcxWebComponent then
|
|
Result := Owner as TcxWebComponent
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebControlImpl }
|
|
|
|
constructor TcxWebControlImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_Hide := Dispatch_Hide;
|
|
FDispatch_SetBounds := Dispatch_SetBounds;
|
|
FDispatch_Show := Dispatch_Show;
|
|
end;
|
|
|
|
class function TcxWebControlImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebControl;
|
|
end;
|
|
|
|
function TcxWebControlImpl.WebControl: TcxWebControl;
|
|
begin
|
|
if Owner is TcxWebControl then
|
|
Result := Owner as TcxWebControl
|
|
else Result := nil;
|
|
end;
|
|
|
|
procedure TcxWebControlImpl.Dispatch_Hide;
|
|
begin
|
|
WebControl.Hide;
|
|
end;
|
|
|
|
procedure TcxWebControlImpl.Dispatch_SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
|
|
begin
|
|
WebControl.SetBounds(ALeft, ATop, AWidth, AHeight);
|
|
end;
|
|
|
|
procedure TcxWebControlImpl.Dispatch_Show;
|
|
begin
|
|
WebControl.Show;
|
|
end;
|
|
|
|
{ TcxWebContainerControlImpl }
|
|
|
|
constructor TcxWebContainerControlImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_WebControlContainerCount := Dispatch_WebControlContainerCount;
|
|
FDispatch_WebControlContainers := Dispatch_WebControlContainers;
|
|
FDispatch_WebControlCount := Dispatch_WebControlCount;
|
|
FDispatch_WebControls := Dispatch_WebControls;
|
|
end;
|
|
|
|
class function TcxWebContainerControlImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebContainerControl;
|
|
end;
|
|
|
|
function TcxWebContainerControlImpl.WebContainerControl: TcxWebContainerControl;
|
|
begin
|
|
if Owner is TcxWebContainerControl then
|
|
Result := Owner as TcxWebContainerControl
|
|
else Result := nil;
|
|
end;
|
|
|
|
function TcxWebContainerControlImpl.Dispatch_WebControlContainerCount: Integer;
|
|
begin
|
|
Result := WebContainerControl.WebControlContainerCount;
|
|
end;
|
|
|
|
function TcxWebContainerControlImpl.Dispatch_WebControlContainers(Index: Integer): TcxWebContainerControl;
|
|
begin
|
|
Result := GetComponentByInterface(WebContainerControl.WebControlContainers[Index]) as TcxWebContainerControl;
|
|
end;
|
|
|
|
function TcxWebContainerControlImpl.Dispatch_WebControlCount: Integer;
|
|
begin
|
|
Result := WebContainerControl.WebControlCount;
|
|
end;
|
|
|
|
function TcxWebContainerControlImpl.Dispatch_WebControls(Index: Integer): TcxWebControl;
|
|
begin
|
|
Result := GetComponentByInterface(WebContainerControl.WebControls[Index]) as TcxWebControl;
|
|
end;
|
|
|
|
{ TcxWebPopupMenuImpl }
|
|
|
|
constructor TcxWebPopupMenuImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_ItemByName := Dispatch_ItemByName;
|
|
end;
|
|
|
|
class function TcxWebPopupMenuImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebPopupMenu;
|
|
end;
|
|
|
|
function TcxWebPopupMenuImpl.WebPopupMenu: TcxWebPopupMenu;
|
|
begin
|
|
if Owner is TcxWebPopupMenu then
|
|
Result := Owner as TcxWebPopupMenu
|
|
else Result := nil;
|
|
end;
|
|
|
|
function TcxWebPopupMenuImpl.Dispatch_ItemByName(AName: string): TcxWebMenuItem;
|
|
begin
|
|
Result := WebPopupMenu.ItemByName(AName);
|
|
end;
|
|
|
|
{ TcxWebMainMenuImpl }
|
|
|
|
constructor TcxWebMainMenuImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_ItemByName := Dispatch_ItemByName;
|
|
end;
|
|
|
|
function TcxWebMainMenuImpl.Dispatch_ItemByName(
|
|
AName: string): TcxWebMenuItem;
|
|
begin
|
|
Result := WebMainMenu.ItemByName(AName);
|
|
end;
|
|
|
|
class function TcxWebMainMenuImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebMainMenu;
|
|
end;
|
|
|
|
function TcxWebMainMenuImpl.WebMainMenu: TcxWebMainMenu;
|
|
begin
|
|
if Owner is TcxWebMainMenu then
|
|
Result := Owner as TcxWebMainMenu
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebMenuItemImpl }
|
|
|
|
constructor TcxWebMenuItemImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_Add := Dispatch_Add;
|
|
FDispatch_Clear := Dispatch_Clear;
|
|
FDispatch_Delete := Dispatch_Delete;
|
|
FDispatch_IndexOf := Dispatch_IndexOf;
|
|
FDispatch_Insert := Dispatch_Insert;
|
|
FDispatch_ItemByName := Dispatch_ItemByName;
|
|
FDispatch_Remove := Dispatch_Remove;
|
|
FDispatch_Items := Dispatch_Items;
|
|
end;
|
|
|
|
class function TcxWebMenuItemImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebMenuItem;
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.WebMenuItem: TcxWebMenuItem;
|
|
begin
|
|
if Owner is TcxWebMenuItem then
|
|
Result := Owner as TcxWebMenuItem
|
|
else Result := nil;
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.Dispatch_Add: TcxWebMenuItem;
|
|
begin
|
|
Result := WebMenuItem.Add;
|
|
end;
|
|
|
|
procedure TcxWebMenuItemImpl.Dispatch_Clear;
|
|
begin
|
|
WebMenuItem.Clear;
|
|
end;
|
|
|
|
procedure TcxWebMenuItemImpl.Dispatch_Delete(Index: Integer);
|
|
begin
|
|
WebMenuItem.Delete(Index);
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.Dispatch_IndexOf(Item: TcxWebMenuItem): Integer;
|
|
begin
|
|
Result := WebMenuItem.IndexOf(Item);
|
|
end;
|
|
|
|
procedure TcxWebMenuItemImpl.Dispatch_Insert(Index: Integer; Item: TcxWebMenuItem);
|
|
begin
|
|
WebMenuItem.Insert(Index, Item);
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.Dispatch_ItemByName(AName: string): TcxWebMenuItem;
|
|
begin
|
|
Result := WebMenuItem.ItemByName(AName);
|
|
end;
|
|
|
|
procedure TcxWebMenuItemImpl.Dispatch_Remove(Item: TcxWebMenuItem);
|
|
begin
|
|
WebMenuItem.Remove(Item);
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.Dispatch_Items(Index: Integer): TcxWebMenuItem;
|
|
begin
|
|
Result := WebMenuItem.Items[Index];
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.GetCount: Integer;
|
|
begin
|
|
Result := WebMenuItem.Count;
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.GetIndex: Integer;
|
|
begin
|
|
Result := WebMenuItem.Index;
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.GetParent: TcxWebMenuItem;
|
|
begin
|
|
Result := WebMenuItem.Parent;
|
|
end;
|
|
|
|
function TcxWebMenuItemImpl.GetParentMenu: TcxWebComponent;
|
|
begin
|
|
Result := WebMenuItem.ParentMenu;
|
|
end;
|
|
|
|
procedure TcxWebMenuItemImpl.SetIndex(Value: Integer);
|
|
begin
|
|
WebMenuItem.Index := Value;
|
|
end;
|
|
|
|
{ TcxWebDataSourceImpl }
|
|
|
|
constructor TcxWebDataSourceImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_FieldByName := Dispatch_FieldByName;
|
|
FDispatch_GetRowDisplayText := Dispatch_GetRowDisplayText;
|
|
FDispatch_GetRowValue := Dispatch_GetRowValue;
|
|
FDispatch_GetRowExpanded := Dispatch_GetRowExpanded;
|
|
FDispatch_GetRowLevel := Dispatch_GetRowLevel;
|
|
FDispatch_GetRowRecord := Dispatch_GetRowRecord;
|
|
FDispatch_GetItemGroupIndex := Dispatch_GetItemGroupIndex;
|
|
FDispatch_GetItemSortOrder := Dispatch_GetItemSortOrder;
|
|
FDispatch_GetGroupingItemIndex := Dispatch_GetGroupingItemIndex;
|
|
FDispatch_GetSortingItemIndex := Dispatch_GetSortingItemIndex;
|
|
FDispatch_ClearGrouping := Dispatch_ClearGrouping;
|
|
FDispatch_ClearSorting := Dispatch_ClearSorting;
|
|
FDispatch_FullCollapse := Dispatch_FullCollapse;
|
|
FDispatch_FullExpand := Dispatch_FullExpand;
|
|
|
|
FDispatch_DisplayTexts := Dispatch_DisplayTexts;
|
|
FDispatch_Values := Dispatch_Values;
|
|
|
|
FDispatch_CancelEdit := Dispatch_CancelEdit;
|
|
FDispatch_DeleteRecord := Dispatch_DeleteRecord;
|
|
FDispatch_InsertRecord := Dispatch_InsertRecord;
|
|
FDispatch_EditRecord := Dispatch_EditRecord;
|
|
FDispatch_Expand := Dispatch_Expand;
|
|
FDispatch_Group := Dispatch_Group;
|
|
FDispatch_PostEdit := Dispatch_PostEdit;
|
|
FDispatch_SetEditValue := Dispatch_SetEditValue;
|
|
FDispatch_Sort := Dispatch_Sort;
|
|
FDispatch_UnGroup := Dispatch_UnGroup;
|
|
FDispatch_Refresh := Dispatch_Refresh;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_CancelEdit;
|
|
begin
|
|
WebDataSource.CancelEdit;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_ClearGrouping;
|
|
begin
|
|
WebDataSource.ClearGrouping;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_ClearSorting;
|
|
begin
|
|
WebDataSource.ClearSorting;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_DeleteRecord(ARowIndex: Integer);
|
|
begin
|
|
WebDataSource.DeleteRecord(ARowIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_DisplayTexts(RecordIndex,
|
|
ItemIndex: Integer): string;
|
|
begin
|
|
Result := WebDataSource.DisplayTexts[RecordIndex, ItemIndex];
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_EditRecord(ARowIndex: Integer);
|
|
begin
|
|
WebDataSource.EditRecord(ARowIndex);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_Expand(ARowIndex: Integer;
|
|
AExpanded, ARecursive: Boolean);
|
|
begin
|
|
WebDataSource.Expand(ARowIndex, AExpanded, ARecursive);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_FieldByName(
|
|
Name: string): TcxCustomWebDataField;
|
|
begin
|
|
Result := WebDataSource.FieldByName(Name);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_FullCollapse;
|
|
begin
|
|
WebDataSource.FullCollapse;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_FullExpand;
|
|
begin
|
|
WebDataSource.FullExpand;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.GetGroupingItemCount_: Integer;
|
|
begin
|
|
Result := WebDataSource.GetGroupingItemCount;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetGroupingItemIndex(
|
|
Item: Integer): Integer;
|
|
begin
|
|
Result := WebDataSource.GetGroupingItemIndex(Item);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetItemGroupIndex(
|
|
ItemIndex: Integer): Integer;
|
|
begin
|
|
Result := WebDataSource.GetItemGroupIndex(ItemIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetItemSortOrder(
|
|
ItemIndex: Integer): TcxWebDataSortOrder;
|
|
begin
|
|
Result := WebDataSource.GetItemSortOrder(ItemIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetRowDisplayText(RowIndex,
|
|
ItemIndex: Integer): string;
|
|
begin
|
|
Result := WebDataSource.GetRowDisplayText(RowIndex, ItemIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetRowExpanded(
|
|
RowIndex: Integer): Boolean;
|
|
begin
|
|
Result := WebDataSource.GetRowExpanded(RowIndex)
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetRowLevel(
|
|
RowIndex: Integer): Integer;
|
|
begin
|
|
Result := WebDataSource.GetRowLevel(RowIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetRowRecord(
|
|
RowIndex: Integer): Integer;
|
|
begin
|
|
Result := WebDataSource.GetRowRecord(RowIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetRowValue(RowIndex,
|
|
ItemIndex: Integer): Variant;
|
|
begin
|
|
Result := WebDataSource.GetRowValue(RowIndex, ItemIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.GetSortingItemCount_: Integer;
|
|
begin
|
|
Result := WebDataSource.GetSortingItemCount;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_GetSortingItemIndex(
|
|
Item: Integer): Integer;
|
|
begin
|
|
Result := WebDataSource.GetSortingItemIndex(Item);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_Group(GroupField,
|
|
GroupIndex: Integer);
|
|
begin
|
|
WebDataSource.Group(GroupField, GroupIndex);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_InsertRecord(ARowIndex: Integer);
|
|
begin
|
|
WebDataSource.InsertRecord(ARowIndex);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_PostEdit(
|
|
APriorControlName: string);
|
|
begin
|
|
WebDataSource.PostEdit(APriorControlName);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_Refresh;
|
|
begin
|
|
WebDataSource.Refresh;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_SetEditValue(AItemIndex: Integer;
|
|
AValue: Variant; AType: TcxWebDataTypes);
|
|
begin
|
|
WebDataSource.SetEditValue(AItemIndex, AValue, AType);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_Sort(SortIndex: Integer;
|
|
SortOrder: TcxWebDataSortOrder);
|
|
begin
|
|
WebDataSource.Sort(SortIndex, SortOrder);
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.Dispatch_UnGroup(UnGroupIndex: Integer);
|
|
begin
|
|
WebDataSource.UnGroup(UnGroupIndex);
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.Dispatch_Values(RecordIndex,
|
|
ItemIndex: Integer): Variant;
|
|
begin
|
|
Result := WebDataSource.Values[RecordIndex, ItemIndex];
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.GetFocusedRowIndex: Integer;
|
|
begin
|
|
Result := WebDataSource.FocusedRowIndex;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.GetRecordCount: Integer;
|
|
begin
|
|
Result := WebDataSource.RecordCount;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.GetRowCount: Integer;
|
|
begin
|
|
Result := WebDataSource.RowCount;
|
|
end;
|
|
|
|
procedure TcxWebDataSourceImpl.SetFocusedRowIndex(Value: Integer);
|
|
begin
|
|
WebDataSource.FocusedRowIndex := Value;
|
|
end;
|
|
|
|
class function TcxWebDataSourceImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataSource;
|
|
end;
|
|
|
|
function TcxWebDataSourceImpl.WebDataSource: TcxCustomWebDataSource;
|
|
begin
|
|
if Owner is TcxCustomWebDataSource then
|
|
Result := Owner as TcxCustomWebDataSource
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebGridImpl }
|
|
|
|
constructor TcxWebGridImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_Add := Dispatch_Add;
|
|
FDispatch_Clear := Dispatch_Clear;
|
|
FDispatch_Delete := Dispatch_Delete;
|
|
FDispatch_IndexOf := Dispatch_IndexOf;
|
|
FDispatch_ColumnByName := Dispatch_ColumnByName;
|
|
FDispatch_CanCreateDefaultColumns := Dispatch_CanCreateDefaultColumns;
|
|
FDispatch_CreateDefaultColumns := Dispatch_CreateDefaultColumns;
|
|
FDispatch_GetRowDisplayText := Dispatch_GetRowDisplayText;
|
|
FDispatch_GetRowValue := Dispatch_GetRowValue;
|
|
FDispatch_GetRowExpanded := Dispatch_GetRowExpanded;
|
|
FDispatch_GetRowLevel := Dispatch_GetRowLevel;
|
|
FDispatch_GetRowRecord := Dispatch_GetRowRecord;
|
|
FDispatch_GetItemGroupIndex := Dispatch_GetItemGroupIndex;
|
|
FDispatch_GetItemSortOrder := Dispatch_GetItemSortOrder;
|
|
FDispatch_GetSortingItemIndex := Dispatch_GetSortingItemIndex;
|
|
FDispatch_GetGroupingItemIndex := Dispatch_GetGroupingItemIndex;
|
|
FDispatch_Columns := Dispatch_Columns;
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_Add: TcxWebColumn;
|
|
begin
|
|
Result := WebGrid.Add;
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_CanCreateDefaultColumns: Boolean;
|
|
begin
|
|
Result := WebGrid.CanCreateDefaultColumns;
|
|
end;
|
|
|
|
procedure TcxWebGridImpl.Dispatch_Clear;
|
|
begin
|
|
WebGrid.Clear;
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_ColumnByName(const AName: string): TcxWebColumn;
|
|
begin
|
|
Result := WebGrid.ColumnByName(AName);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_Columns(Index: Integer): TcxWebColumn;
|
|
begin
|
|
Result := WebGrid.Columns[Index];
|
|
end;
|
|
|
|
procedure TcxWebGridImpl.Dispatch_CreateDefaultColumns(ADeleteExistColumns: Boolean);
|
|
begin
|
|
WebGrid.CreateDefaultColumns(ADeleteExistColumns);
|
|
end;
|
|
|
|
procedure TcxWebGridImpl.Dispatch_Delete(AIndex: Integer);
|
|
begin
|
|
WebGrid.Delete(AIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetGroupingItemIndex(Item: Integer): Integer;
|
|
begin
|
|
Result := WebGrid.GetGroupingItemIndex(Item);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetItemGroupIndex(AColIndex: Integer): Integer;
|
|
begin
|
|
Result := WebGrid.GetItemGroupIndex(AColIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetItemSortOrder(AColIndex: Integer): TcxWebGridSortMode;
|
|
begin
|
|
Result := WebGrid.GetItemSortOrder(AColIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetRowDisplayText(ARowIndex, AColIndex: Integer): string;
|
|
begin
|
|
Result := WebGrid.GetRowDisplayText(ARowIndex, AColIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetRowExpanded(RowIndex: Integer): Boolean;
|
|
begin
|
|
Result := WebGrid.GetRowExpanded(RowIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetRowLevel(RowIndex: Integer): Integer;
|
|
begin
|
|
Result := WebGrid.GetRowLevel(RowIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetRowRecord(RowIndex: Integer): Integer;
|
|
begin
|
|
Result := WebGrid.GetRowRecord(RowIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetRowValue(ARowIndex, AColIndex: Integer): Variant;
|
|
begin
|
|
Result := WebGrid.GetRowValue(ARowIndex, AColIndex);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_GetSortingItemIndex(Item: Integer): Integer;
|
|
begin
|
|
Result := WebGrid.GetSortingItemIndex(Item);
|
|
end;
|
|
|
|
function TcxWebGridImpl.Dispatch_IndexOf(AItem: TcxWebColumn): Integer;
|
|
begin
|
|
Result := WebGrid.IndexOf(AItem);
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetColumnCount: Integer;
|
|
begin
|
|
Result := WebGrid.ColumnCount;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetFirstVisibleRow: Integer;
|
|
begin
|
|
Result := WebGrid.FirstVisibleRow;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetFocusedRow: Integer;
|
|
begin
|
|
Result := WebGrid.FocusedRow;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetGroupingItemCount_: Integer;
|
|
begin
|
|
Result := WebGrid.GetGroupingItemCount;
|
|
end;
|
|
|
|
class function TcxWebGridImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebGrid;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetRecordCount: Integer;
|
|
begin
|
|
Result := WebGrid.RecordCount;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetRowCount: Integer;
|
|
begin
|
|
Result := WebGrid.RowCount;
|
|
end;
|
|
|
|
function TcxWebGridImpl.GetSortingItemCount_: Integer;
|
|
begin
|
|
Result := WebGrid.GetSortingItemCount;
|
|
end;
|
|
|
|
function TcxWebGridImpl.WebGrid: TcxCustomWebGrid;
|
|
begin
|
|
if Owner is TcxCustomWebGrid then
|
|
Result := Owner as TcxCustomWebGrid
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebTreeViewImpl }
|
|
|
|
constructor TcxWebTreeViewImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_AddItem := Dispatch_AddItem;
|
|
FDispatch_Clear := Dispatch_Clear;
|
|
FDispatch_FullCollapse := Dispatch_FullCollapse;
|
|
FDispatch_FullExpand := Dispatch_FullExpand;
|
|
FDispatch_ItemByName := Dispatch_ItemByName;
|
|
FDispatch_Items := Dispatch_Items;
|
|
end;
|
|
|
|
function TcxWebTreeViewImpl.Dispatch_AddItem: TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeView.AddItem;
|
|
end;
|
|
|
|
procedure TcxWebTreeViewImpl.Dispatch_Clear;
|
|
begin
|
|
WebTreeView.Clear;
|
|
end;
|
|
|
|
procedure TcxWebTreeViewImpl.Dispatch_FullCollapse;
|
|
begin
|
|
WebTreeView.FullCollapse;
|
|
end;
|
|
|
|
procedure TcxWebTreeViewImpl.Dispatch_FullExpand;
|
|
begin
|
|
WebTreeView.FullExpand;
|
|
end;
|
|
|
|
function TcxWebTreeViewImpl.Dispatch_ItemByName(const AName: string): TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeView.ItemByName(AName);
|
|
end;
|
|
|
|
function TcxWebTreeViewImpl.Dispatch_Items: TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeView.Items;
|
|
end;
|
|
|
|
class function TcxWebTreeViewImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebTreeView;
|
|
end;
|
|
|
|
function TcxWebTreeViewImpl.WebTreeView: TcxWebTreeView;
|
|
begin
|
|
if Owner is TcxWebTreeView then
|
|
Result := Owner as TcxWebTreeView
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebTreeItemImpl }
|
|
|
|
constructor TcxWebTreeItemImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_AddChild := Dispatch_AddChild;
|
|
FDispatch_Collapse := Dispatch_Collapse;
|
|
FDispatch_DeleteChildren := Dispatch_DeleteChildren;
|
|
FDispatch_Expand := Dispatch_Expand;
|
|
FDispatch_IndexOf := Dispatch_IndexOf;
|
|
FDispatch_InsertChild := Dispatch_InsertChild;
|
|
FDispatch_Items := Dispatch_Items;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.Dispatch_AddChild: TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeItem.AddChild;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.Dispatch_Collapse(ARecurse: Boolean);
|
|
begin
|
|
WebTreeItem.Collapse(ARecurse);
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.Dispatch_DeleteChildren;
|
|
begin
|
|
WebTreeItem.DeleteChildren;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.Dispatch_Expand(ARecurse: Boolean);
|
|
begin
|
|
WebTreeItem.Expand(ARecurse);
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.Dispatch_IndexOf(Value: TcxWebTreeItem): Integer;
|
|
begin
|
|
Result := WebTreeItem.IndexOf(Value);
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.Dispatch_InsertChild(BeforeItem: TcxWebTreeItem): TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeItem.InsertChild(BeforeItem);
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.Dispatch_Items(Index: Integer): TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeItem.Items[Index];
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetCount: Integer;
|
|
begin
|
|
Result := WebTreeItem.Count;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetExpanded: Boolean;
|
|
begin
|
|
Result := WebTreeItem.Expanded;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetHasChildren: Boolean;
|
|
begin
|
|
Result := WebTreeItem.HasChildren;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetHint: string;
|
|
begin
|
|
Result := WebTreeItem.Hint;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetImageIndex: Integer;
|
|
begin
|
|
Result := WebTreeItem.ImageIndex;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetIndex: Integer;
|
|
begin
|
|
Result := WebTreeItem.Index;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetLevel: Integer;
|
|
begin
|
|
Result := WebTreeItem.Level
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetName: string;
|
|
begin
|
|
Result := WebTreeItem.Name;
|
|
end;
|
|
|
|
class function TcxWebTreeItemImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebTreeItem;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetParent: TcxWebTreeItem;
|
|
begin
|
|
Result := WebTreeItem.Parent;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetText: string;
|
|
begin
|
|
Result := WebTreeItem.Text;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.GetURL: TcxURL;
|
|
begin
|
|
Result := WebTreeItem.URL;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetExpanded(Value: Boolean);
|
|
begin
|
|
WebTreeItem.Expanded := Value;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetHint(Value: string);
|
|
begin
|
|
WebTreeItem.Hint := Value;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetImageIndex(Value: Integer);
|
|
begin
|
|
WebTreeItem.ImageIndex := Value;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetName(Value: string);
|
|
begin
|
|
WebTreeItem.Name := Value;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetText(Value: string);
|
|
begin
|
|
WebTreeItem.Text := Value;
|
|
end;
|
|
|
|
procedure TcxWebTreeItemImpl.SetURL(Value: TcxURL);
|
|
begin
|
|
WebTreeItem.URL := Value;
|
|
end;
|
|
|
|
function TcxWebTreeItemImpl.WebTreeItem: TcxWebTreeItem;
|
|
begin
|
|
if Owner is TcxWebTreeItem then
|
|
Result := Owner as TcxWebTreeItem
|
|
else Result := nil;
|
|
end;
|
|
|
|
{ TcxWebStyleControllerImpl }
|
|
|
|
constructor TcxWebStyleControllerImpl.Create(AOwner: TObject);
|
|
begin
|
|
inherited;
|
|
FDispatch_Add := Dispatch_Add;
|
|
FDispatch_Clear := Dispatch_Clear;
|
|
FDispatch_Delete := Dispatch_Delete;
|
|
FDispatch_IndexOf := Dispatch_IndexOf;
|
|
FDispatch_ItemByName := Dispatch_ItemByName;
|
|
FDispatch_Items := Dispatch_Items;
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.Dispatch_Add: TcxWebStyleItem;
|
|
begin
|
|
Result := WebStyleController.Add;
|
|
end;
|
|
|
|
procedure TcxWebStyleControllerImpl.Dispatch_Clear;
|
|
begin
|
|
WebStyleController.Clear;
|
|
end;
|
|
|
|
procedure TcxWebStyleControllerImpl.Dispatch_Delete(AIndex: Integer);
|
|
begin
|
|
WebStyleController.Delete(AIndex);
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.Dispatch_IndexOf(AItem: TcxWebStyleItem): Integer;
|
|
begin
|
|
Result := WebStyleController.IndexOf(AItem);
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.Dispatch_ItemByName(const AName: string): TcxWebStyleItem;
|
|
begin
|
|
Result := WebStyleController.ItemByName(AName);
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.Dispatch_Items(Index: Integer): TcxWebStyleItem;
|
|
begin
|
|
Result := WebStyleController.Items[Index];
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.GetCount: Integer;
|
|
begin
|
|
Result := WebStyleController.Count;
|
|
end;
|
|
|
|
class function TcxWebStyleControllerImpl.GetObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebStyleController;
|
|
end;
|
|
|
|
function TcxWebStyleControllerImpl.WebStyleController: TcxWebStyleController;
|
|
begin
|
|
if Owner is TcxWebStyleController then
|
|
Result := Owner as TcxWebStyleController
|
|
else Result := nil;
|
|
end;
|
|
|
|
initialization
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebComponentImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebControlImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebContainerControlImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebPopupMenuImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebMainMenuImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebMenuItemImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebDataSourceImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebGridImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebTreeViewImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebTreeItemImpl);
|
|
ScriptDispClassFactory.RegisterDispatch(TcxWebStyleControllerImpl);
|
|
|
|
end.
|