david
47aaf11578
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@38 05c56307-c608-d34a-929d-697000501d7a
1684 lines
58 KiB
ObjectPascal
1684 lines
58 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ ExpressWeb Framework by Developer Express }
|
|
{ Pascal script DB importers }
|
|
{ }
|
|
{ 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 cxWebPasDBImp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, ifps3, ifpscomp, ifps3common, ifps3utl, ifpiclass, ifpiclassruntime,
|
|
cxWebPasImpFactory, cxWebPasImp;
|
|
|
|
type
|
|
TcxWebCustomDataBindingImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDataBindingImporter = class(TcxWebCustomDataBindingImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDataFieldsImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDataFieldImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDataSourceImporter = class(TcxWebComponentImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxStdWebDataFieldsImporter = class(TcxCustomWebDataFieldsImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxStdWebDataFieldImporter = class(TcxCustomWebDataFieldImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxStdWebDataSourceImporter = class(TcxCustomWebDataSourceImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDataControllerFieldsImporter = class(TcxCustomWebDataFieldsImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDataControllerFieldImporter = class(TcxCustomWebDataFieldImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxExtWebDataSourceImporter = class(TcxCustomWebDataSourceImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDataControllerFieldsImporter = class(TcxCustomWebDataControllerFieldsImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDataControllerFieldImporter = class(TcxCustomWebDataControllerFieldImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDataSourceImporter = class(TcxExtWebDataSourceImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBDataControllerFieldsImporter = class(TcxCustomWebDataControllerFieldsImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBDataControllerFieldImporter = class(TcxCustomWebDataControllerFieldImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBDataSourceImporter = class(TcxExtWebDataSourceImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBCalendarImporter = class(TcxWebCalendarImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBLabelImporter = class(TcxWebLabelImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBEditImporter = class(TcxWebEditImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBMemoImporter = class(TcxWebMemoImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBListBoxImporter = class(TcxWebListBoxImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBComboBoxImporter = class(TcxWebComboBoxImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBCheckBoxImporter = class(TcxWebCheckBoxImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBRadioGroupImporter = class(TcxWebRadioGroupImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBImageImporter = class(TcxWebImageImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBDateEditImporter = class(TcxWebDateEditImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBDataNavigatorImporter = class(TcxCustomWebDataNavigatorImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebGridDataBindingImporter = class(TcxWebCustomDataBindingImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBGridImporter = class(TcxWebControlImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxCustomWebDBLookupDataBindingImporter = class(TcxWebDataBindingImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebLookupDataBindingImporter = class(TcxCustomWebDBLookupDataBindingImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBLookupImporter = class(TcxWebDBComboBoxImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebExtLookupDataBindingImporter = class(TcxCustomWebDBLookupDataBindingImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebExtDBLookupImporter = class(TcxWebDBLookupImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBTableImporter = class(TcxWebTableImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebTableColumnDataBindingImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBTableColumnsImporter = class(TcxWebTableColumnsImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebDBTableColumnImporter = class(TcxWebTableColumnImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses SysUtils, DB,
|
|
cxWebData, cxWebDataCtrls, cxWebExtData, cxWebGrids, cxWebDBGrid, cxWebImgList,
|
|
cxWebMenus, cxWebDBLookup, cxWebDBTable;
|
|
|
|
{ TcxWebCustomDataBindingImporter }
|
|
|
|
class procedure TcxWebCustomDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Component', scxComponentType, iptR);
|
|
end;
|
|
|
|
class procedure TcxWebCustomDataBindingImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataSource, AObject);
|
|
end;
|
|
|
|
class function TcxWebCustomDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataBinding;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataBindingComponent_R(ASelf: TcxCustomWebDataBinding; var AValue: TComponent);
|
|
begin
|
|
AValue := ASelf.Component;
|
|
end;
|
|
|
|
class procedure TcxWebCustomDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxCustomWebDataBindingComponent_R, nil, UpperCase('Component'));
|
|
end;
|
|
|
|
{ TcxWebDataBindingImporter }
|
|
|
|
class procedure TcxWebDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Field', 'TcxCustomWebDataField', iptR);
|
|
RegisterProperty('FieldIndex', scxIntegerType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDataBindingImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataField, AObject);
|
|
end;
|
|
|
|
class function TcxWebDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDataBinding;
|
|
end;
|
|
|
|
procedure TcxWebDataBindingImporterField_R(ASelf: TcxWebDataBinding; var AValue: TcxCustomWebDataField);
|
|
begin
|
|
AValue := ASelf.Field;
|
|
end;
|
|
|
|
procedure TcxWebDataBindingImporterFieldIndex_R(ASelf: TcxWebDataBinding; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.FieldIndex;
|
|
end;
|
|
|
|
class procedure TcxWebDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxWebDataBindingImporterField_R, nil, UpperCase('Field'));
|
|
RegisterPropertyHelper(@TcxWebDataBindingImporterFieldIndex_R, nil, UpperCase('FieldIndex'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxCustomWebDataFieldsImporter }
|
|
|
|
class procedure TcxCustomWebDataFieldsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxCustomWebDataField' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataFieldsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataField, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDataFieldsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataFields;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataFieldsItems_R(ASelf: TcxCustomWebDataFields; var AValue: TcxCustomWebDataField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxCustomWebDataFieldsItems_W(ASelf: TcxCustomWebDataFields; AValue: TcxCustomWebDataField; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AValue;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataFieldsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxCustomWebDataFieldsItems_R, @TcxCustomWebDataFieldsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxCustomWebDataField }
|
|
|
|
class procedure TcxCustomWebDataFieldImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataFields, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDataFieldImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataField;
|
|
end;
|
|
|
|
{ TcxCustomWebDataSourceImporter }
|
|
|
|
class procedure TcxCustomWebDataSourceImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxWebDataSortOrder', '(wsoNone, wsoAscending, wsoDescending)');
|
|
ACompiler.AddTypeS('TcxWebDataSourceState', '(browsing, editing, inserting)');
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataSourceImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function CheckRowIndex(ARowIndex: Integer): Boolean;');
|
|
RegisterMethod('function FieldByName(const Name: string): TcxCustomWebDataField;');
|
|
RegisterMethod('function GetRowDisplayText(RowIndex: Integer; ItemIndex: Integer): string;');
|
|
RegisterMethod('function GetRowValue(RowIndex: Integer; ItemIndex: Integer): Variant;');
|
|
RegisterMethod('function GetRowExpanded(RowIndex: Integer): Boolean;');
|
|
RegisterMethod('function GetRowLevel(RowIndex: Integer): Integer;');
|
|
RegisterMethod('function GetRowRecord(RowIndex: Integer): Integer;');
|
|
RegisterMethod('function GetGroupingItemCount: Integer;');
|
|
RegisterMethod('function GetSortingItemCount: Integer;');
|
|
RegisterMethod('function GetItemGroupIndex(ItemIndex: Integer): Integer;');
|
|
RegisterMethod('function GetItemSortOrder(ItemIndex: Integer): TcxWebDataSortOrder;');
|
|
RegisterMethod('function GetGroupingItemIndex(Item: Integer): Integer;');
|
|
RegisterMethod('function GetSortingItemIndex(Item: Integer): Integer;');
|
|
RegisterMethod('procedure ClearGrouping;');
|
|
RegisterMethod('procedure ClearSorting;');
|
|
RegisterMethod('procedure FullCollapse;');
|
|
RegisterMethod('procedure FullExpand;');
|
|
RegisterMethod('procedure CancelEdit;');
|
|
RegisterMethod('procedure DeleteRecord(ARowIndex: Integer);');
|
|
RegisterMethod('procedure InsertRecord(ARowIndex: Integer);');
|
|
RegisterMethod('procedure EditRecord(ARowIndex: Integer);');
|
|
RegisterMethod('procedure Expand(ARowIndex: Integer; AExpanded, ARecursive: Boolean);');
|
|
RegisterMethod('procedure Group(GroupField, GroupIndex: Integer);');
|
|
RegisterMethod('procedure PostEdit(APriorControlName: string);');
|
|
RegisterMethod('procedure SetEditValue(AItemIndex: Integer; AValue: Variant; AType: TcxWebDataTypes);');
|
|
RegisterMethod('procedure Sort(SortIndex: Integer; SortOrder: TcxWebDataSortOrder);');
|
|
RegisterMethod('procedure UnGroup(UnGroupIndex: Integer);');
|
|
RegisterMethod('procedure Refresh;');
|
|
|
|
RegisterProperty('DisplayTexts', scxStringType + ' ' + scxIntegerType + ' ' + scxIntegerType, iptR);
|
|
RegisterProperty('FocusedRowIndex', scxIntegerType, iptRW);
|
|
RegisterProperty('RecordCount', scxIntegerType, iptR);
|
|
RegisterProperty('RowCount', scxIntegerType, iptR);
|
|
RegisterProperty('Values', scxVariantType + ' ' + scxIntegerType + ' ' + scxIntegerType, iptRW);
|
|
RegisterProperty('AllowExpanding', scxBooleanType, iptR);
|
|
RegisterProperty('AllowGrouping', scxBooleanType, iptR);
|
|
RegisterProperty('AllowSorting', scxBooleanType, iptR);
|
|
RegisterProperty('Fields', 'TcxCustomWebDataFields', iptRW);
|
|
RegisterProperty('FullName', scxStringType, iptR);
|
|
RegisterProperty('State', 'TcxWebDataSourceState', iptR);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataSourceImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataField, AObject);
|
|
Proc(TcxCustomWebDataFields, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDataSourceImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataSource;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceDisplayTexts_R(ASelf: TcxCustomWebDataSource; var AValue: string; Index1, Index2: Integer);
|
|
begin
|
|
AValue := ASelf.DisplayTexts[Index1, Index2];
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceFocusedRowIndex_R(ASelf: TcxCustomWebDataSource; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.FocusedRowIndex;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceFocusedRowIndex_W(ASelf: TcxCustomWebDataSource; AValue: Integer);
|
|
begin
|
|
ASelf.FocusedRowIndex := AValue;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceRecordCount_R(ASelf: TcxCustomWebDataSource; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.RecordCount;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceRowCount_R(ASelf: TcxCustomWebDataSource; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.RowCount;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceValues_R(ASelf: TcxCustomWebDataSource; var AValue: Variant; Index1, Index2: Integer);
|
|
begin
|
|
AValue := ASelf.Values[Index1, Index2];
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceValues_W(ASelf: TcxCustomWebDataSource; AValue: Variant; Index1, Index2: Integer);
|
|
begin
|
|
ASelf.Values[Index1, Index2] := AValue;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceAllowExpanding_R(ASelf: TcxCustomWebDataSource; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.AllowExpanding;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceAllowGrouping_R(ASelf: TcxCustomWebDataSource; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.AllowGrouping;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceAllowSorting_R(ASelf: TcxCustomWebDataSource; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.AllowSorting;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceFields_R(ASelf: TcxCustomWebDataSource; var AValue: TcxCustomWebDataFields);
|
|
begin
|
|
AValue := ASelf.Fields;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceFields_W(ASelf: TcxCustomWebDataSource; AValue: TcxCustomWebDataFields);
|
|
begin
|
|
ASelf.Fields := AValue;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceFullName_R(ASelf: TcxCustomWebDataSource; var AValue: string);
|
|
begin
|
|
AValue := ASelf.FullName;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataSourceState_R(ASelf: TcxCustomWebDataSource; var AValue: TcxWebDataSourceState);
|
|
begin
|
|
AValue := ASelf.State;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataSourceImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxCustomWebDataSource.CheckRowIndex, UpperCase('CheckRowIndex'));
|
|
RegisterMethod(@TcxCustomWebDataSource.FieldByName, UpperCase('FieldByName'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetRowDisplayText, UpperCase('GetRowDisplayText'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetRowValue, UpperCase('GetRowValue'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetRowExpanded, UpperCase('GetRowExpanded'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetRowLevel, UpperCase('GetRowLevel'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetRowRecord, UpperCase('GetRowRecord'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetGroupingItemCount, UpperCase('GetGroupingItemCount'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetSortingItemCount, UpperCase('GetSortingItemCount'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetItemGroupIndex, UpperCase('GetItemGroupIndex'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetItemSortOrder, UpperCase('GetItemSortOrder'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetGroupingItemIndex, UpperCase('GetGroupingItemIndex'));
|
|
RegisterMethod(@TcxCustomWebDataSource.GetSortingItemIndex, UpperCase('GetSortingItemIndex'));
|
|
RegisterMethod(@TcxCustomWebDataSource.ClearGrouping, UpperCase('ClearGrouping'));
|
|
RegisterMethod(@TcxCustomWebDataSource.ClearSorting, UpperCase('ClearSorting'));
|
|
RegisterMethod(@TcxCustomWebDataSource.FullCollapse, UpperCase('FullCollapse'));
|
|
RegisterMethod(@TcxCustomWebDataSource.FullExpand, UpperCase('FullExpand'));
|
|
RegisterMethod(@TcxCustomWebDataSource.CancelEdit, UpperCase('CancelEdit'));
|
|
RegisterMethod(@TcxCustomWebDataSource.DeleteRecord, UpperCase('DeleteRecord'));
|
|
RegisterMethod(@TcxCustomWebDataSource.InsertRecord, UpperCase('InsertRecord'));
|
|
RegisterMethod(@TcxCustomWebDataSource.EditRecord, UpperCase('EditRecord'));
|
|
RegisterMethod(@TcxCustomWebDataSource.Expand, UpperCase('Expand'));
|
|
RegisterMethod(@TcxCustomWebDataSource.Group, UpperCase('Group'));
|
|
RegisterMethod(@TcxCustomWebDataSource.PostEdit, UpperCase('PostEdit'));
|
|
RegisterMethod(@TcxCustomWebDataSource.SetEditValue, UpperCase('SetEditValue'));
|
|
RegisterMethod(@TcxCustomWebDataSource.Sort, UpperCase('Sort'));
|
|
RegisterMethod(@TcxCustomWebDataSource.UnGroup, UpperCase('UnGroup'));
|
|
RegisterMethod(@TcxCustomWebDataSource.Refresh, UpperCase('Refresh'));
|
|
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceDisplayTexts_R, nil, UpperCase('DisplayTexts'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceFocusedRowIndex_R, @TcxCustomWebDataSourceFocusedRowIndex_W, UpperCase('FocusedRowIndex'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceRecordCount_R, nil, UpperCase('RecordCount'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceRowCount_R, nil, UpperCase('RowCount'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceValues_R, @TcxCustomWebDataSourceValues_W, UpperCase('Values'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceAllowExpanding_R, nil, UpperCase('AllowExpanding'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceAllowGrouping_R, nil, UpperCase('AllowGrouping'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceAllowSorting_R, nil, UpperCase('AllowSorting'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceFields_R, @TcxCustomWebDataSourceFields_W, UpperCase('Fields'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceFullName_R, nil, UpperCase('FullName'));
|
|
RegisterPropertyHelper(@TcxCustomWebDataSourceState_R, nil, UpperCase('State'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxStdWebDataFieldsImporter }
|
|
|
|
class procedure TcxStdWebDataFieldsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxStdWebDataField' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxStdWebDataFieldsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxStdWebDataField, AObject);
|
|
end;
|
|
|
|
class function TcxStdWebDataFieldsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxStdWebDataFields;
|
|
end;
|
|
|
|
procedure TcxStdWebDataFieldsItems_R(ASelf: TcxStdWebDataFields; var AValue: TcxStdWebDataField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxStdWebDataFieldsItems_W(ASelf: TcxStdWebDataFields; AValue: TcxStdWebDataField; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AValue;
|
|
end;
|
|
|
|
class procedure TcxStdWebDataFieldsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxStdWebDataFieldsItems_R, @TcxStdWebDataFieldsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxStdWebDataFieldImporter }
|
|
|
|
class procedure TcxStdWebDataFieldImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('DataSet', 'TDataSet', iptR);
|
|
RegisterProperty('FieldName', scxStringType, iptRW);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxStdWebDataFieldImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TDataSet, AObject);
|
|
Proc(TcxStdWebDataFields, AObject);
|
|
end;
|
|
|
|
class function TcxStdWebDataFieldImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxStdWebDataField;
|
|
end;
|
|
|
|
procedure TcxStdWebDataFieldDataSet_R(ASelf: TcxStdWebDataField; var AValue: TDataSet);
|
|
begin
|
|
AValue := ASelf.DataSet;
|
|
end;
|
|
|
|
procedure TcxStdWebDataFieldFieldName_R(ASelf: TcxStdWebDataField; var AValue: string);
|
|
begin
|
|
AValue := ASelf.FieldName;
|
|
end;
|
|
|
|
procedure TcxStdWebDataFieldFieldName_W(ASelf: TcxStdWebDataField; AValue: string);
|
|
begin
|
|
ASelf.FieldName := AValue;
|
|
end;
|
|
|
|
class procedure TcxStdWebDataFieldImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxStdWebDataFieldDataSet_R, nil, UpperCase('DataSet'));
|
|
RegisterPropertyHelper(@TcxStdWebDataFieldFieldName_R, @TcxStdWebDataFieldFieldName_W, UpperCase('FieldName'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxStdWebDataSourceImporter }
|
|
|
|
class procedure TcxStdWebDataSourceImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Fields', 'TcxStdWebDataFields', iptRW);
|
|
end;
|
|
|
|
class procedure TcxStdWebDataSourceImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxStdWebDataFields, AObject);
|
|
Proc(TDataSet, AObject);
|
|
end;
|
|
|
|
class function TcxStdWebDataSourceImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxStdWebDataSource;
|
|
end;
|
|
|
|
procedure TcxStdWebDataSourceFields_R(ASelf: TcxStdWebDataSource; var AValue: TcxStdWebDataFields);
|
|
begin
|
|
AValue := ASelf.Fields;
|
|
end;
|
|
|
|
procedure TcxStdWebDataSourceFields_W(ASelf: TcxStdWebDataSource; AValue: TcxStdWebDataFields);
|
|
begin
|
|
ASelf.Fields := AValue;
|
|
end;
|
|
|
|
class procedure TcxStdWebDataSourceImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxStdWebDataSourceFields_R, @TcxStdWebDataSourceFields_W, UpperCase('Fields'));
|
|
end;
|
|
|
|
{ TcxCustomWebDataControllerFieldsImporter }
|
|
|
|
class procedure TcxCustomWebDataControllerFieldsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxCustomWebDataControllerField' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataControllerFieldsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataControllerField, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDataControllerFieldsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataControllerFields;
|
|
end;
|
|
|
|
procedure TcxCustomWebDataControllerFieldsItems_R(ASelf: TcxCustomWebDataControllerFields;
|
|
var AValue: TcxCustomWebDataControllerField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxCustomWebDataControllerFieldsItems_W(ASelf: TcxCustomWebDataControllerFields;
|
|
AValue: TcxCustomWebDataControllerField; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AValue;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataControllerFieldsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxCustomWebDataControllerFieldsItems_R,
|
|
@TcxCustomWebDataControllerFieldsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxCustomWebDataControllerFieldImporter }
|
|
|
|
class procedure TcxCustomWebDataControllerFieldImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxWebDataSortOrder', '(wsoNone, wsoAscending, wsoDescending)');
|
|
end;
|
|
|
|
class procedure TcxCustomWebDataControllerFieldImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataControllerFields, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDataControllerFieldImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDataControllerField;
|
|
end;
|
|
|
|
{ TcxWebDataControllerFieldsImporter }
|
|
|
|
class procedure TcxWebDataControllerFieldsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxWebDataControllerField' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxWebDataControllerFieldsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataControllerField, AObject);
|
|
end;
|
|
|
|
class function TcxWebDataControllerFieldsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDataControllerFields;
|
|
end;
|
|
|
|
procedure TcxWebDataControllerFieldsItems_R(ASelf: TcxWebDataControllerFields;
|
|
var AValue: TcxWebDataControllerField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxWebDataControllerFieldsItems_W(ASelf: TcxWebDataControllerFields;
|
|
AValue: TcxWebDataControllerField; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebDataControllerFieldsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebDataControllerFieldsItems_R,
|
|
@TcxWebDataControllerFieldsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxWebDataControllerFieldImporter }
|
|
|
|
class procedure TcxWebDataControllerFieldImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxValueType', '(StringType, WideStringType, SmallintType,' +
|
|
' IntegerType, WordType, BooleanType, FloatType, CurrencyType,' +
|
|
' DateTimeType, FMTBcdType, LargeIntType, VariantType, ObjectType)');
|
|
end;
|
|
|
|
class procedure TcxWebDataControllerFieldImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataControllerFields, AObject);
|
|
end;
|
|
|
|
class function TcxWebDataControllerFieldImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDataControllerField;
|
|
end;
|
|
|
|
{ TcxWebDBDataControllerFieldsImporter }
|
|
|
|
class procedure TcxWebDBDataControllerFieldsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxWebDBDataControllerField' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxWebDBDataControllerFieldsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBDataControllerField, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBDataControllerFieldsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBDataControllerFields;
|
|
end;
|
|
|
|
procedure TcxWebDBDataControllerFieldsItems_R(ASelf: TcxWebDBDataControllerFields;
|
|
var AValue: TcxWebDBDataControllerField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxWebDBDataControllerFieldsItems_W(ASelf: TcxWebDBDataControllerFields;
|
|
AValue: TcxWebDBDataControllerField; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebDBDataControllerFieldsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebDBDataControllerFieldsItems_R,
|
|
@TcxWebDBDataControllerFieldsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxWebDBDataControllerFieldImporter }
|
|
|
|
class procedure TcxWebDBDataControllerFieldImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('DataSet', 'TDataSet', iptR);
|
|
end;
|
|
|
|
class procedure TcxWebDBDataControllerFieldImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBDataControllerFields, AObject);
|
|
Proc(TDataSet, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBDataControllerFieldImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBDataControllerField;
|
|
end;
|
|
|
|
procedure TcxWebDBDataControllerFieldDataset_R(ASelf: TcxWebDBDataControllerField; var AValue: TDataSet);
|
|
begin
|
|
AValue := ASelf.DataSet;
|
|
end;
|
|
|
|
class procedure TcxWebDBDataControllerFieldImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebDBDataControllerFieldDataset_R, nil, UpperCase('DataSet'));
|
|
end;
|
|
|
|
{ TcxExtWebDataSourceImporter }
|
|
|
|
class procedure TcxExtWebDataSourceImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Fields', 'TcxCustomWebDataControllerFields', iptRW);
|
|
end;
|
|
|
|
class procedure TcxExtWebDataSourceImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataControllerFields, AObject);
|
|
end;
|
|
|
|
class function TcxExtWebDataSourceImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxExtWebDataSource;
|
|
end;
|
|
|
|
procedure TcxExtWebDataSourceFields_R(ASelf: TcxExtWebDataSource; var AValue: TcxCustomWebDataControllerFields);
|
|
begin
|
|
AValue := ASelf.Fields;
|
|
end;
|
|
|
|
procedure TcxExtWebDataSourceFields_W(ASelf: TcxExtWebDataSource; AValue: TcxCustomWebDataControllerFields);
|
|
begin
|
|
ASelf.Fields := AValue;
|
|
end;
|
|
|
|
class procedure TcxExtWebDataSourceImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxExtWebDataSourceFields_R, @TcxExtWebDataSourceFields_W, UpperCase('Fields'));
|
|
end;
|
|
|
|
{ TcxWebDataSourceImporter }
|
|
|
|
class procedure TcxWebDataSourceImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('procedure LoadFromStream(AStream: TStream);');
|
|
RegisterMethod('procedure SaveToStream(AStream: TStream);');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDataSourceImporter.EnumDependentClasses(Proc: TClassEnumProc;
|
|
AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataControllerFields, AObject);
|
|
end;
|
|
|
|
class function TcxWebDataSourceImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDataSource;
|
|
end;
|
|
|
|
class procedure TcxWebDataSourceImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebDataSource.LoadFromStream, UpperCase('LoadFromStream'));
|
|
RegisterMethod(@TcxWebDataSource.SaveToStream, UpperCase('SaveToStream'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebDBDataSourceImporter }
|
|
|
|
class procedure TcxWebDBDataSourceImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Fields', 'TcxWebDBDataControllerFields', iptRW);
|
|
end;
|
|
|
|
class procedure TcxWebDBDataSourceImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBDataControllerFields, AObject);
|
|
Proc(TDataSet, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBDataSourceImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBDataSource;
|
|
end;
|
|
|
|
procedure TcxWebDBDataSourceFields_R(ASelf: TcxWebDBDataSource; var AValue: TcxWebDBDataControllerFields);
|
|
begin
|
|
AValue := ASelf.Fields;
|
|
end;
|
|
|
|
procedure TcxWebDBDataSourceFields_W(ASelf: TcxWebDBDataSource; AValue: TcxWebDBDataControllerFields);
|
|
begin
|
|
ASelf.Fields := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebDBDataSourceImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebDBDataSourceFields_R, @TcxWebDBDataSourceFields_W, UpperCase('Fields'));
|
|
end;
|
|
|
|
{ TcxWebDBCalendarImporter }
|
|
|
|
class procedure TcxWebDBCalendarImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBCalendarImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBCalendar;
|
|
end;
|
|
|
|
{ TcxWebDBLabelImporter }
|
|
|
|
class procedure TcxWebDBLabelImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBLabelImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBLabel;
|
|
end;
|
|
|
|
{ TcxWebDBEditImporter }
|
|
|
|
class procedure TcxWebDBEditImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBEditImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBEdit;
|
|
end;
|
|
|
|
{ TcxWebDBMemoImporter }
|
|
|
|
class procedure TcxWebDBMemoImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBMemoImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBMemo;
|
|
end;
|
|
|
|
{ TcxWebDBListBoxImporter }
|
|
|
|
class procedure TcxWebDBListBoxImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBListBoxImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBListBox;
|
|
end;
|
|
|
|
{ TcxWebDBComboBoxImporter }
|
|
|
|
class procedure TcxWebDBComboBoxImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBComboBoxImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBComboBox;
|
|
end;
|
|
|
|
{ TcxWebDBCheckBoxImporter }
|
|
|
|
class procedure TcxWebDBCheckBoxImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxWebCheckBoxUndefinedValueState', '(uvsChecked, uvsUnchecked)');
|
|
end;
|
|
|
|
class procedure TcxWebDBCheckBoxImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBCheckBoxImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBCheckBox;
|
|
end;
|
|
|
|
{ TcxWebDBRadioGroupImporter }
|
|
|
|
class procedure TcxWebDBRadioGroupImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBRadioGroupImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBRadioGroup;
|
|
end;
|
|
|
|
{ TcxWebDBImageImporter }
|
|
|
|
class procedure TcxWebDBImageImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBImageImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBImage;
|
|
end;
|
|
|
|
{ TcxWebDBDateEditImporter }
|
|
|
|
class procedure TcxWebDBDateEditImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBDateEditImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBDateEdit;
|
|
end;
|
|
|
|
{ TcxWebDBDataNavigatorImporter }
|
|
|
|
class procedure TcxWebDBDataNavigatorImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBDataNavigatorImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBDataNavigator;
|
|
end;
|
|
|
|
{ TcxWebDBGridImporter }
|
|
|
|
class procedure TcxWebDBGridImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxIndicatorType', '(itCursor, itDataOp)');
|
|
end;
|
|
|
|
class procedure TcxWebDBGridImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebGridDataBinding, AObject);
|
|
Proc(TcxWebPopupMenu, AObject);
|
|
Proc(TcxWebImageList, AObject);
|
|
Proc(TcxWebGridImageIndexes, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBGridImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBGrid;
|
|
end;
|
|
|
|
{ TcxWebGridDataBindingImporter }
|
|
|
|
class procedure TcxWebGridDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('WebDBGrid', 'TcxWebDBGrid', iptR);
|
|
end;
|
|
|
|
class procedure TcxWebGridDataBindingImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBGrid, AObject);
|
|
end;
|
|
|
|
class function TcxWebGridDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebGridDataBinding;
|
|
end;
|
|
|
|
procedure TcxWebGridDataBindingWebDBGrid_R(ASelf: TcxWebGridDataBinding; var AValue: TcxWebDBGrid);
|
|
begin
|
|
AValue := ASelf.WebDBGrid;
|
|
end;
|
|
|
|
class procedure TcxWebGridDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebGridDataBindingWebDBGrid_R, nil, UpperCase('WebDBGrid'));
|
|
end;
|
|
|
|
{ TcxWebDBLookupImporter }
|
|
|
|
class procedure TcxWebDBLookupImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebLookupDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBLookupImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBLookup;
|
|
end;
|
|
|
|
{ TcxCustomWebDBLookupDataBindingImporter }
|
|
|
|
class procedure TcxCustomWebDBLookupDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function KeyField: TcxCustomWebDataField;');
|
|
RegisterMethod('function KeyFieldIndex: Integer;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDBLookupDataBindingImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataField, AObject);
|
|
Proc(TcxCustomWebDataSource, AObject);
|
|
end;
|
|
|
|
class function TcxCustomWebDBLookupDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxCustomWebDBLookupDataBinding;
|
|
end;
|
|
|
|
class procedure TcxCustomWebDBLookupDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxCustomWebDBLookupDataBinding.KeyField, UpperCase('KeyField'));
|
|
RegisterMethod(@TcxCustomWebDBLookupDataBinding.KeyFieldIndex, UpperCase('KeyFieldIndex'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebLookupDataBindingImporter }
|
|
|
|
class procedure TcxWebLookupDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function ListField: TcxCustomWebDataField;');
|
|
RegisterMethod('function ListFieldIndex: Integer;');
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebLookupDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebLookupDataBinding;
|
|
end;
|
|
|
|
class procedure TcxWebLookupDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebLookupDataBinding.ListField, UpperCase('ListField'));
|
|
RegisterMethod(@TcxWebLookupDataBinding.ListFieldIndex, UpperCase('ListFieldIndex'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebExtLookupDataBindingImporter }
|
|
|
|
class procedure TcxWebExtLookupDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function ListField: TcxCustomWebDataField;');
|
|
RegisterProperty('ListFieldCount', scxIntegerType, iptR);
|
|
RegisterProperty('ListFields', 'TcxCustomWebDataField' + ' ' + scxIntegerType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebExtLookupDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebExtLookupDataBinding;
|
|
end;
|
|
|
|
procedure TcxWebLookupDataBindingListFieldCount_R(ASelf: TcxWebExtLookupDataBinding; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.ListFieldCount;
|
|
end;
|
|
|
|
procedure TcxWebLookupDataBindingListFields_R(ASelf: TcxWebExtLookupDataBinding; var AValue: TcxCustomWebDataField; Index: Integer);
|
|
begin
|
|
AValue := ASelf.ListFields[Index];
|
|
end;
|
|
|
|
class procedure TcxWebExtLookupDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebLookupDataBinding.ListField, UpperCase('ListField'));
|
|
RegisterPropertyHelper(@TcxWebLookupDataBindingListFieldCount_R, nil, UpperCase('ListFieldCount'));
|
|
RegisterPropertyHelper(@TcxWebLookupDataBindingListFields_R, nil, UpperCase('ListFields'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebExtDBLookupImporter }
|
|
|
|
class procedure TcxWebExtDBLookupImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebExtLookupDataBinding, AObject);
|
|
Proc(TcxWebImageList, AObject);
|
|
end;
|
|
|
|
class function TcxWebExtDBLookupImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebExtDBLookup;
|
|
end;
|
|
|
|
{ TcxWebDBTableImporter }
|
|
|
|
class procedure TcxWebDBTableImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function DataSource: TcxCustomWebDataSource;');
|
|
RegisterMethod('function GetFieldValue(ARecIndex: Integer; AFieldName: string): Variant;');
|
|
RegisterMethod('function GetFieldDisplayText(ARecIndex: Integer; AFieldName: string): string;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDBTableImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebTableDataBinding, AObject);
|
|
Proc(TcxWebDBTableColumns, AObject);
|
|
Proc(TcxCustomWebDataSource, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBTableImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBTable;
|
|
end;
|
|
|
|
class procedure TcxWebDBTableImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebDBTable.DataSource, ('DataSource'));
|
|
RegisterMethod(@TcxWebDBTable.GetFieldValue, UpperCase('GetFieldValue'));
|
|
RegisterMethod(@TcxWebDBTable.GetFieldDisplayText, UpperCase('GetFieldDisplayText'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebDBTableColumnsImporter }
|
|
|
|
class procedure TcxWebDBTableColumnsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
ACTClass.RegisterProperty('Items', 'TcxWebDBTableColumn' + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
|
|
class procedure TcxWebDBTableColumnsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBTableColumn, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBTableColumnsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBTableColumns;
|
|
end;
|
|
|
|
procedure TcxWebDBTableColumnsItems_R(ASelf: TcxWebDBTableColumns; var AVAlue: TcxWebDBTableColumn; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxWebDBTableColumnsItems_W(ASelf: TcxWebDBTableColumns; AVAlue: TcxWebDBTableColumn; Index: Integer);
|
|
begin
|
|
ASelf.Items[Index] := AVAlue;
|
|
end;
|
|
|
|
class procedure TcxWebDBTableColumnsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
ARTClass.RegisterPropertyHelper(@TcxWebDBTableColumnsItems_R, @TcxWebDBTableColumnsItems_W, UpperCase('Items'));
|
|
end;
|
|
|
|
{ TcxWebDBTableColumnImporter }
|
|
|
|
class procedure TcxWebDBTableColumnImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxWebDataSortOrder', '(wsoNone, wsoAscending, wsoDescending)');
|
|
end;
|
|
|
|
class procedure TcxWebDBTableColumnImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebDBTableColumns, AObject);
|
|
Proc(TcxWebTableColumnDataBinding, AObject);
|
|
end;
|
|
|
|
class function TcxWebDBTableColumnImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebDBTableColumn;
|
|
end;
|
|
|
|
{ TcxWebTableColumnDataBindingImporter }
|
|
|
|
class procedure TcxWebTableColumnDataBindingImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('DataSource', 'TcxCustomWebDataSource', iptR);
|
|
RegisterProperty('FieldIndex', scxIntegerType, iptR);
|
|
RegisterProperty('DBColumn', 'TcxWebDBTableColumn', iptR);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebTableColumnDataBindingImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxCustomWebDataSource, AObject);
|
|
Proc(TcxWebDBTableColumn, AObject);
|
|
end;
|
|
|
|
class function TcxWebTableColumnDataBindingImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebTableColumnDataBinding;
|
|
end;
|
|
|
|
procedure TcxWebTableColumnDataBindingDataSource_R(ASelf: TcxWebTableColumnDataBinding; var AValue: TcxCustomWebDataSource);
|
|
begin
|
|
AValue := ASelf.DataSource;
|
|
end;
|
|
|
|
procedure TcxWebTableColumnDataBindingFieldIndex_R(ASelf: TcxWebTableColumnDataBinding; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.FieldIndex;
|
|
end;
|
|
|
|
procedure TcxWebTableColumnDataBindingDBColumn_R(ASelf: TcxWebTableColumnDataBinding; var AValue: TcxWebDBTableColumn);
|
|
begin
|
|
AValue := ASelf.DBColumn;
|
|
end;
|
|
|
|
class procedure TcxWebTableColumnDataBindingImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxWebTableColumnDataBindingDataSource_R, nil, UpperCase('DataSource'));
|
|
RegisterPropertyHelper(@TcxWebTableColumnDataBindingFieldIndex_R, nil, UpperCase('FieldIndex'));
|
|
RegisterPropertyHelper(@TcxWebTableColumnDataBindingDBColumn_R, nil, UpperCase('DBColumn'));
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebCustomDataBindingImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDataBindingImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDataFieldsImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDataFieldImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDataSourceImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxStdWebDataFieldsImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxStdWebDataFieldImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxStdWebDataSourceImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDataControllerFieldsImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDataControllerFieldImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxExtWebDataSourceImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDataControllerFieldsImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDataControllerFieldImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDataSourceImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBDataControllerFieldsImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBDataControllerFieldImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBDataSourceImporter, 'WebDB');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBLabelImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBCalendarImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBEditImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBMemoImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBListBoxImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBComboBoxImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBCheckBoxImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBRadioGroupImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBImageImporter, 'WebDBControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBDateEditImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBDataNavigatorImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBGridImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebGridDataBindingImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxCustomWebDBLookupDataBindingImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebLookupDataBindingImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBLookupImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebExtLookupDataBindingImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebExtDBLookupImporter, 'WebDBAdvControls');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBTableImporter, 'WebDBTable');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBTableColumnsImporter, 'WebDBTable');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebDBTableColumnImporter, 'WebDBTable');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebTableColumnDataBindingImporter, 'WebDBTable');
|
|
|
|
end.
|