david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
2030 lines
59 KiB
ObjectPascal
2030 lines
59 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ ExpressWeb Framework by Developer Express }
|
|
{ Visual data aware Web Controls }
|
|
{ }
|
|
{ Copyright (c) 2000-2007 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 cxWebDataCtrls;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, DB,
|
|
cxWebRender, cxWebClasses, cxWebControls, cxWebStdCtrls, cxWebData,
|
|
cxWebCalendar, cxWebDateEdit, cxWebGrids, cxWebDataNavigator;
|
|
|
|
type
|
|
TcxWebDataBinding = class(TcxCustomWebDataBinding)
|
|
private
|
|
FFieldName: string;
|
|
|
|
function GetField: TcxCustomWebDataField;
|
|
function GetFieldName: string;
|
|
procedure SetFieldName(Value: string);
|
|
protected
|
|
function GetFieldIndex: Integer; override;
|
|
{ IcxWebViewDataSupport }
|
|
function GetFirstVisibleRow: Integer; override;
|
|
function GetPageSize: Integer; override;
|
|
{ IcxWebDataSourceSupport }
|
|
procedure ChangedDataLayout(Sender: TcxCustomWebDataSource); override;
|
|
procedure UpdateData(Sender: TcxCustomWebDataSource); override;
|
|
public
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Field: TcxCustomWebDataField read GetField;
|
|
property FieldIndex: Integer read GetFieldIndex;
|
|
published
|
|
property FieldName: string read GetFieldName write SetFieldName;
|
|
end;
|
|
|
|
TcxWebDBLabel = class(TcxCustomWebLabel, IcxWebDataSourceSupport, IcxWebViewDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
end;
|
|
|
|
TcxWebDBLabelRenderer = class(TcxCustomWebLabelRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBLabelNS4Renderer = class(TcxCustomWebLabelNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBEdit = class(TcxCustomWebEdit, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property MaxLength;
|
|
property Password;
|
|
property ReadOnly;
|
|
property Size;
|
|
end;
|
|
|
|
TcxWebDBEditRenderer = class(TcxCustomWebEditRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBEditNS4Renderer = class(TcxCustomWebEditNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBEditOperaRenderer = class(TcxCustomWebEditOperaRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBMemo = class(TcxCustomWebMemo, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property Cols;
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property ReadOnly;
|
|
property Rows;
|
|
property WordWrap;
|
|
end;
|
|
|
|
TcxWebDBMemoRenderer = class(TcxCustomWebMemoRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBMemoNS4Renderer = class(TcxCustomWebMemoNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBMemoOperaRenderer = class(TcxCustomWebMemoOperaRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxListStore = (sText, sValue);
|
|
|
|
TcxWebListsDataBinding = class(TcxWebDataBinding)
|
|
private
|
|
FStore: TcxListStore;
|
|
procedure SetStore(Value: TcxListStore);
|
|
published
|
|
property Store: TcxListStore read FStore write SetStore;
|
|
end;
|
|
|
|
TcxWebDBListBox = class(TcxCustomWebListBox, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebListsDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebListsDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebListsDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property Items;
|
|
property Size stored False;
|
|
property OnChange;
|
|
end;
|
|
|
|
TcxWebDBListBoxRenderer = class(TcxCustomWebListBoxRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBListBoxNS4Renderer = class(TcxCustomWebListBoxNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBListBoxOperaRenderer = class(TcxCustomWebListBoxOperaRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBComboBox = class(TcxCustomWebComboBox, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebListsDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebListsDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebListsDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property Items;
|
|
property OnChange;
|
|
end;
|
|
|
|
TcxWebDBComboBoxRenderer = class(TcxWebComboBoxRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBComboBoxNS4Renderer = class(TcxWebComboBoxNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBComboBoxOperaRenderer = class(TcxWebComboBoxOperaRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebCheckBoxUndefinedValueState = (uvsChecked, uvsUnchecked);
|
|
|
|
TcxWebDBCheckBox = class(TcxCustomWebCheckBox, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FCheckedValue: string;
|
|
FDataBinding: TcxWebDataBinding;
|
|
FUncheckedValue: string;
|
|
FUndefinedValuesState: TcxWebCheckBoxUndefinedValueState;
|
|
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property CheckedValue: string read FCheckedValue write FCheckedValue;
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property UncheckedValue: string read FUncheckedValue write FUncheckedValue;
|
|
property UndefinedValuesState: TcxWebCheckBoxUndefinedValueState read FUndefinedValuesState
|
|
write FUndefinedValuesState;
|
|
end;
|
|
|
|
TcxWebDBCheckBoxRenderer = class(TcxCustomWebCheckBoxRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBCheckBoxNS4Renderer = class(TcxCustomWebCheckBoxNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBRadioGroup = class(TcxCustomWebRadioGroup, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ Scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
end;
|
|
|
|
TcxWebDBRadioGroupRenderer = class(TcxCustomWebRadioGroupRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBRadioGroupNS4Renderer = class(TcxCustomWebRadioGroupNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBImage = class(TcxCustomWebImage, IcxWebDataSourceSupport, IcxWebViewDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
FOnLoadImage: TcxLoadImageEvent;
|
|
|
|
function GetDataSource: TcxCustomWebDataSource;
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
{ scripts }
|
|
procedure ScriptsSubscription; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
|
|
property DataSource: TcxCustomWebDataSource read GetDataSource;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
property OnLoadImage: TcxLoadImageEvent read FOnLoadImage write FOnLoadImage;
|
|
end;
|
|
|
|
TcxWebDBImageRenderer = class(TcxCustomWebImageRenderer)
|
|
private
|
|
function GetWebDBImage: TcxWebDBImage;
|
|
protected
|
|
function IsLoadAllRecords: Boolean; virtual;
|
|
public
|
|
procedure WriteHTML; override;
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
property WebDBImage: TcxWebDBImage read GetWebDBImage;
|
|
end;
|
|
|
|
TcxWebDBImageNS4Renderer = class(TcxWebDBImageRenderer)
|
|
protected
|
|
function IsLoadAllRecords: Boolean; override;
|
|
public
|
|
class function IsBrowserSupported(AWebBrowser: TcxWebBrowserClass): Boolean; override;
|
|
end;
|
|
|
|
TcxWebDBImageOperaRenderer = class(TcxWebDBImageNS4Renderer)
|
|
public
|
|
class function IsBrowserSupported(AWebBrowser: TcxWebBrowserClass): Boolean; override;
|
|
end;
|
|
|
|
TcxWebDBCalendar = class(TcxCustomWebCalendar, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
end;
|
|
|
|
TcxWebDBCalendarRenderer = class(TcxCustomWebCalendarRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBCalendarNS4Renderer = class(TcxCustomWebCalendarNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBCalendarOperaRenderer = class(TcxCustomWebCalendarOperaRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBDateEdit = class(TcxCustomWebDateEdit, IcxWebDataSourceSupport,
|
|
IcxWebViewDataSupport, IcxWebUpdateDataSupport)
|
|
private
|
|
FDataBinding: TcxWebDataBinding;
|
|
|
|
procedure SetDataBinding(Value: TcxWebDataBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ IcxWebProvidersSupport }
|
|
procedure ImplGetProviders(AList: TList); override;
|
|
{ IcxWebViewDataSupport }
|
|
procedure SetData(Value: Variant; DisplayText: string);
|
|
{ IcxWebUpdeteDataSupport }
|
|
function CanGetData: Boolean;
|
|
function GetData: Variant;
|
|
function GetDataTypes: TcxWebDataTypes;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport, IcxWebViewDataSupport;
|
|
end;
|
|
|
|
TcxWebDBDateEditRenderer = class(TcxCustomWebDateEditRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBDateEditNS4Renderer = class(TcxCustomWebDateEditRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDataNavigatorBinding = class(TcxCustomWebDataBinding)
|
|
private
|
|
function GetDataNavigator: TcxCustomWebDataNavigator;
|
|
protected
|
|
function GetPageSize: Integer; override;
|
|
property DataNavigator: TcxCustomWebDataNavigator read GetDataNavigator;
|
|
end;
|
|
|
|
TcxWebDBDataNavigator = class(TcxCustomWebDataNavigator, IcxWebDataSourceSupport)
|
|
private
|
|
FDataBinding: TcxWebDataNavigatorBinding;
|
|
procedure SetDataBinding(Value: TcxWebDataNavigatorBinding);
|
|
protected
|
|
procedure Loaded; override;
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{ renderers }
|
|
procedure RegisterRenderers; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property DataBinding: TcxWebDataNavigatorBinding read FDataBinding write SetDataBinding
|
|
implements IcxWebDataSourceSupport;
|
|
end;
|
|
|
|
TcxWebDBDataNavigatorRenderer = class(TcxCustomWebDataNavigatorRenderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBDataNavigatorNS4Renderer = class(TcxCustomWebDataNavigatorNS4Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
TcxWebDBDataNavigatorNS6Renderer = class(TcxCustomWebDataNavigatorNS6Renderer)
|
|
public
|
|
procedure WriteScripts; override;
|
|
class procedure GetScriptFiles(AList: TStrings); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants, DBConsts,
|
|
{$IFDEF VCL}
|
|
Graphics,
|
|
{$ENDIF}
|
|
cxWebIntf, cxWebScriptFactory, cxWebDataUtils, cxWebFileCacheManager,
|
|
cxWebConsts;
|
|
|
|
{ TcxWebDataBinding }
|
|
|
|
function TcxWebDataBinding.GetField: TcxCustomWebDataField;
|
|
begin
|
|
if DataSource <> nil then
|
|
Result := DataSource.FieldByName(FFieldName)
|
|
else Result := nil;
|
|
end;
|
|
|
|
function TcxWebDataBinding.GetFieldName: string;
|
|
begin
|
|
Result := FFieldName;
|
|
end;
|
|
|
|
procedure TcxWebDataBinding.SetFieldName(Value: string);
|
|
begin
|
|
if FFieldName <> Value then
|
|
begin
|
|
FFieldName := Value;
|
|
ChangedDataLayout(DataSource);
|
|
end;
|
|
end;
|
|
|
|
function TcxWebDataBinding.GetFieldIndex: Integer;
|
|
begin
|
|
if Field <> nil then
|
|
Result := Field.Index
|
|
else Result := -1;
|
|
end;
|
|
|
|
function TcxWebDataBinding.GetFirstVisibleRow: Integer;
|
|
begin
|
|
if DataSource <> nil then
|
|
Result := DataSource.FocusedRowIndex
|
|
else Result := -1;
|
|
end;
|
|
|
|
function TcxWebDataBinding.GetPageSize: Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
procedure TcxWebDataBinding.ChangedDataLayout(Sender: TcxCustomWebDataSource);
|
|
var
|
|
FocusedRow: Integer;
|
|
Value: Variant;
|
|
DisplayText: string;
|
|
AWebControl: IcxWebControl;
|
|
DataIntf: IcxWebViewDataSupport;
|
|
begin
|
|
if Supports(Component, IcxWebViewDataSupport, DataIntf) then
|
|
begin
|
|
if (DataSource <> nil) and (Field <> nil) then
|
|
begin
|
|
FocusedRow := DataSource.FocusedRowIndex;
|
|
if (FocusedRow >= 0) and (FocusedRow < DataSource.RowCount)then
|
|
begin
|
|
Value := DataSource.Values[DataSource.GetRowRecord(FocusedRow), Field.Index];
|
|
DisplayText := DataSource.DisplayTexts[DataSource.GetRowRecord(FocusedRow), Field.Index];
|
|
DataIntf.SetData(Value, DisplayText);
|
|
end
|
|
else DataIntf.SetData(Null, '');
|
|
end
|
|
else DataIntf.SetData(Null, '');
|
|
if Supports(Component, IcxWebControl, AWebControl) and
|
|
(AWebControl.DesignerControl <> nil) and not (csDestroying in Component.ComponentState) then
|
|
AWebControl.DesignerControl.UpdateContext;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxWebDataBinding.UpdateData(Sender: TcxCustomWebDataSource);
|
|
var
|
|
DataIntf: IcxWebUpdateDataSupport;
|
|
begin
|
|
if (DataSource <> nil) and (Field <> nil) then
|
|
begin
|
|
if DataSource.CheckRowIndex(DataSource.FocusedRowIndex) then
|
|
begin
|
|
if Supports(Component, IcxWebUpdateDataSupport, DataIntf) and DataIntf.CanGetData then
|
|
DataSource.SetEditValue(Field.Index, DataIntf.GetData, DataIntf.GetDataTypes);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxWebDataBinding.Assign(Source: TPersistent);
|
|
begin
|
|
if Source is TcxWebDataBinding then
|
|
begin
|
|
DataSource := TcxWebDataBinding(Source).DataSource;
|
|
FieldName := TcxWebDataBinding(Source).FieldName;
|
|
end
|
|
else inherited;
|
|
end;
|
|
|
|
{ TcxWebDBLabel }
|
|
|
|
constructor TcxWebDBLabel.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBLabel.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
{ IcxWebProvidersSupport }
|
|
procedure TcxWebDBLabel.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
Caption := DisplayText
|
|
else
|
|
begin
|
|
if IsDesigning then
|
|
Caption := Name
|
|
else Caption := '';
|
|
end;
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBLabelRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBLabelNS4Renderer);
|
|
end;
|
|
|
|
procedure TcxWebDBLabel.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBLabelRenderer }
|
|
|
|
procedure TcxWebDBLabelRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBLabel(WebLabel).DataBinding.DataSource <> nil then
|
|
TcxWebDBLabel(WebLabel).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBLabel');
|
|
end;
|
|
|
|
class procedure TcxWebDBLabelRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBLabelNS4Renderer }
|
|
|
|
procedure TcxWebDBLabelNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBLabel(WebLabel).DataBinding.DataSource <> nil then
|
|
TcxWebDBLabel(WebLabel).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBLabel');
|
|
end;
|
|
|
|
class procedure TcxWebDBLabelNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBEdit }
|
|
|
|
constructor TcxWebDBEdit.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBEdit.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
Text := DisplayText
|
|
else
|
|
begin
|
|
if IsDesigning then
|
|
Text := Name
|
|
else Text := '';
|
|
end;
|
|
end;
|
|
|
|
function TcxWebDBEdit.CanGetData: Boolean;
|
|
begin
|
|
Result := not ReadOnly;
|
|
end;
|
|
|
|
function TcxWebDBEdit.GetData: Variant;
|
|
begin
|
|
Result := Text;
|
|
end;
|
|
|
|
function TcxWebDBEdit.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBEditRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBEditNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBEditOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBEdit.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBEditRenderer }
|
|
|
|
procedure TcxWebDBEditRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBEdit(WebEdit).DataBinding.DataSource <> nil then
|
|
TcxWebDBEdit(WebEdit).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBEdit');
|
|
end;
|
|
|
|
class procedure TcxWebDBEditRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBEditNS4Renderer }
|
|
|
|
procedure TcxWebDBEditNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBEdit(WebEdit).DataBinding.DataSource <> nil then
|
|
TcxWebDBEdit(WebEdit).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBEdit');
|
|
end;
|
|
|
|
class procedure TcxWebDBEditNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBEditOperaRenderer }
|
|
|
|
procedure TcxWebDBEditOperaRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBEdit(WebEdit).DataBinding.DataSource <> nil then
|
|
TcxWebDBEdit(WebEdit).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBEdit');
|
|
end;
|
|
|
|
class procedure TcxWebDBEditOperaRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBMemo }
|
|
|
|
constructor TcxWebDBMemo.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBMemo.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
Text := HTMLValue(Value);
|
|
if (Text = '') and IsDesigning then
|
|
Text := Name;
|
|
end;
|
|
|
|
function TcxWebDBMemo.CanGetData: Boolean;
|
|
begin
|
|
Result := not ReadOnly;
|
|
end;
|
|
|
|
function TcxWebDBMemo.GetData: Variant;
|
|
begin
|
|
Result := Text;
|
|
end;
|
|
|
|
function TcxWebDBMemo.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText, dtValue];
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBMemoRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBMemoNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBMemoOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBMemo.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBMemoRenderer }
|
|
|
|
procedure TcxWebDBMemoRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBMemo(WebMemo).DataBinding.DataSource <> nil then
|
|
TcxWebDBMemo(WebMemo).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBMemo');
|
|
end;
|
|
|
|
class procedure TcxWebDBMemoRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBMemoNS4Renderer }
|
|
|
|
procedure TcxWebDBMemoNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBMemo(WebMemo).DataBinding.DataSource <> nil then
|
|
TcxWebDBMemo(WebMemo).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBMemo');
|
|
end;
|
|
|
|
class procedure TcxWebDBMemoNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBMemoOperaRenderer }
|
|
|
|
procedure TcxWebDBMemoOperaRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBMemo(WebMemo).DataBinding.DataSource <> nil then
|
|
TcxWebDBMemo(WebMemo).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBMemo');
|
|
end;
|
|
|
|
class procedure TcxWebDBMemoOperaRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebListsDataBinding }
|
|
|
|
procedure TcxWebListsDataBinding.SetStore(Value: TcxListStore);
|
|
begin
|
|
if FStore <> Value then
|
|
begin
|
|
FStore := Value;
|
|
ChangedDataLayout(DataSource);
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebDBListBox }
|
|
|
|
constructor TcxWebDBListBox.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebListsDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBListBox.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.SetDataBinding(Value: TcxWebListsDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
begin
|
|
if DataBinding.Store = sText then
|
|
ItemIndex := Items.IndexOfText(DisplayText)
|
|
else ItemIndex := Items.IndexOfValue(DisplayText)
|
|
end
|
|
else ItemIndex := -1;
|
|
end;
|
|
|
|
function TcxWebDBListBox.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBListBox.GetData: Variant;
|
|
begin
|
|
if ItemIndex > -1 then
|
|
begin
|
|
if DataBinding.Store = sText then
|
|
Result := Items[ItemIndex].Text
|
|
else Result := Items[ItemIndex].Value
|
|
end
|
|
else Result := Null;
|
|
end;
|
|
|
|
function TcxWebDBListBox.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBListBoxRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBListBoxNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBListBoxOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBListBox.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBListBoxRenderer }
|
|
|
|
procedure TcxWebDBListBoxRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBListBox(WebListBox).DataBinding.DataSource <> nil then
|
|
begin
|
|
TcxWebDBListBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBListBox');
|
|
if TcxWebDBListBox(WebListBox).DataBinding.Store = sValue then
|
|
HTMLTextBuilder.WriteText(' _DataControl.StoreByValues = true;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDBListBoxRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBListBoxNS4Renderer }
|
|
|
|
procedure TcxWebDBListBoxNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBListBox(WebListBox).DataBinding.DataSource <> nil then
|
|
TcxWebDBListBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBListBox');
|
|
end;
|
|
|
|
class procedure TcxWebDBListBoxNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBListBoxOperaRenderer }
|
|
|
|
procedure TcxWebDBListBoxOperaRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBListBox(WebListBox).DataBinding.DataSource <> nil then
|
|
TcxWebDBListBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBListBox');
|
|
end;
|
|
|
|
class procedure TcxWebDBListBoxOperaRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBComboBox }
|
|
|
|
constructor TcxWebDBComboBox.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebListsDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBComboBox.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.SetDataBinding(Value: TcxWebListsDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
begin
|
|
if DataBinding.Store = sText then
|
|
ItemIndex := Items.IndexOfText(DisplayText)
|
|
else ItemIndex := Items.IndexOfValue(DisplayText)
|
|
end
|
|
else ItemIndex := -1;
|
|
end;
|
|
|
|
function TcxWebDBComboBox.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBComboBox.GetData: Variant;
|
|
begin
|
|
if ItemIndex > -1 then
|
|
begin
|
|
if DataBinding.Store = sText then
|
|
Result := Items[ItemIndex].Text
|
|
else Result := Items[ItemIndex].Value
|
|
end
|
|
else Result := Null;
|
|
end;
|
|
|
|
function TcxWebDBComboBox.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBComboBoxRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBComboBoxNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBComboBoxOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBComboBox.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBComboBoxRenderer }
|
|
|
|
procedure TcxWebDBComboBoxRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBComboBox(WebListBox).DataBinding.DataSource <> nil then
|
|
begin
|
|
TcxWebDBComboBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBComboBox');
|
|
if TcxWebDBComboBox(WebListBox).DataBinding.Store = sValue then
|
|
HTMLTextBuilder.WriteText(' _DataControl.StoreByValues = true;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDBComboBoxRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBComboBoxNS4Renderer }
|
|
|
|
procedure TcxWebDBComboBoxNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBComboBox(WebListBox).DataBinding.DataSource <> nil then
|
|
TcxWebDBComboBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBComboBox');
|
|
end;
|
|
|
|
class procedure TcxWebDBComboBoxNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBComboBoxOperaRenderer }
|
|
|
|
procedure TcxWebDBComboBoxOperaRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBComboBox(WebListBox).DataBinding.DataSource <> nil then
|
|
TcxWebDBComboBox(WebListBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBComboBox');
|
|
end;
|
|
|
|
class procedure TcxWebDBComboBoxOperaRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBCheckBox }
|
|
|
|
constructor TcxWebDBCheckBox.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FCheckedValue := DBConsts.STextTrue;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
FUncheckedValue := DBConsts.STextFalse;
|
|
FUndefinedValuesState := uvsUnchecked;
|
|
end;
|
|
|
|
destructor TcxWebDBCheckBox.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
begin
|
|
if SameText(DisplayText, CheckedValue) then
|
|
Checked := True
|
|
else if SameText(DisplayText, UncheckedValue) then
|
|
Checked := False
|
|
else if UndefinedValuesState = uvsChecked then
|
|
Checked := True
|
|
else Checked := False;
|
|
end
|
|
else Checked := False;
|
|
end;
|
|
|
|
function TcxWebDBCheckBox.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBCheckBox.GetData: Variant;
|
|
begin
|
|
if Checked then
|
|
Result := CheckedValue
|
|
else Result := UncheckedValue;
|
|
end;
|
|
|
|
function TcxWebDBCheckBox.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBCheckBoxRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBCheckBoxNS4Renderer);
|
|
end;
|
|
|
|
procedure TcxWebDBCheckBox.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBCheckBoxRenderer }
|
|
|
|
procedure TcxWebDBCheckBoxRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBCheckBox(WebCheckBox).DataBinding.DataSource <> nil then
|
|
begin
|
|
TcxWebDBCheckBox(WebCheckBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBCheckBox');
|
|
HTMLTextBuilder.WriteText(Format(' _DataControl.CheckedValue = "%s";',
|
|
[TcxWebDBCheckBox(WebCheckBox).CheckedValue]));
|
|
HTMLTextBuilder.WriteText(Format(' _DataControl.UncheckedValue = "%s";',
|
|
[TcxWebDBCheckBox(WebCheckBox).UncheckedValue]));
|
|
if TcxWebDBCheckBox(WebCheckBox).UndefinedValuesState = uvsChecked then
|
|
HTMLTextBuilder.WriteText(' _DataControl.UncheckedIsDefault = false;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebDBCheckBoxRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBCheckBoxNS4Renderer }
|
|
|
|
procedure TcxWebDBCheckBoxNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBCheckBox(WebCheckBox).DataBinding.DataSource <> nil then
|
|
TcxWebDBCheckBox(WebCheckBox).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBCheckBox');
|
|
end;
|
|
|
|
class procedure TcxWebDBCheckBoxNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBRadioGroup }
|
|
|
|
constructor TcxWebDBRadioGroup.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBRadioGroup.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if Value <> Null then
|
|
ItemIndex := Items.IndexOf(DisplayText)
|
|
else ItemIndex := -1;
|
|
end;
|
|
|
|
function TcxWebDBRadioGroup.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBRadioGroup.GetData: Variant;
|
|
begin
|
|
if ItemIndex > -1 then
|
|
Result := Items[ItemIndex]
|
|
else Result := Null;
|
|
end;
|
|
|
|
function TcxWebDBRadioGroup.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBRadioGroupRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBRadioGroupNS4Renderer);
|
|
end;
|
|
|
|
procedure TcxWebDBRadioGroup.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBRadioGroupRenderer }
|
|
|
|
procedure TcxWebDBRadioGroupRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBRadioGroup(WebRadioGroup).DataBinding.DataSource <> nil then
|
|
TcxWebDBRadioGroup(WebRadioGroup).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBRadioGroup');
|
|
end;
|
|
|
|
class procedure TcxWebDBRadioGroupRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBRadioGroupNS4Renderer }
|
|
|
|
procedure TcxWebDBRadioGroupNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBRadioGroup(WebRadioGroup).DataBinding.DataSource <> nil then
|
|
TcxWebDBRadioGroup(WebRadioGroup).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBRadioGroup');
|
|
end;
|
|
|
|
class procedure TcxWebDBRadioGroupNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBImage }
|
|
|
|
constructor TcxWebDBImage.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBImage.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
function TcxWebDBImage.GetDataSource: TcxCustomWebDataSource;
|
|
begin
|
|
if DataBinding <> nil then
|
|
Result := DataBinding.DataSource
|
|
else Result := nil;
|
|
end;
|
|
|
|
procedure TcxWebDBImage.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBImage.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBImage.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBImage.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBImage.SetData(Value: Variant; DisplayText: string);
|
|
var
|
|
AURL: string;
|
|
AHeight, AWidth: Integer;
|
|
{$IFDEF VCL}
|
|
AGraphicClass: TGraphicClass;
|
|
{$ENDIF}
|
|
begin
|
|
if (DataSource <> nil) and (Value <> Null) then
|
|
begin
|
|
try
|
|
{$IFDEF VCL}
|
|
AGraphicClass := nil;
|
|
{$ENDIF}
|
|
if Assigned(OnLoadImage) then OnLoadImage(Self{$IFDEF VCL}, AGraphicClass{$ENDIF});
|
|
if csDesigning in ComponentState then
|
|
begin
|
|
if Assigned(DesignPicture) then
|
|
DesignPicture.SetImage(Value);
|
|
end
|
|
else
|
|
begin
|
|
LoadImage(Value{$IFDEF VCL}, AGraphicClass{$ENDIF}, AURL, AHeight, AWidth);
|
|
PictureURL := AURL;
|
|
AltText := '';
|
|
end;
|
|
except
|
|
PictureURL := '';
|
|
AltText := '[Image]';
|
|
if Assigned(DesignPicture) then
|
|
DesignPicture.SetPath('');
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if Assigned(DesignPicture) then
|
|
DesignPicture.SetPath('');
|
|
PictureURL := '';
|
|
AltText := Name;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxWebDBImage.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBImageRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBImageNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBImageOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBImage.ScriptsSubscription;
|
|
begin
|
|
inherited;
|
|
WebScriptsHelper.ScriptSubscription(TcxWebPostBackScript);
|
|
end;
|
|
|
|
{ TcxWebDBImageRenderer }
|
|
|
|
function TcxWebDBImageRenderer.GetWebDBImage: TcxWebDBImage;
|
|
begin
|
|
Result := Component as TcxWebDBImage;
|
|
end;
|
|
|
|
function TcxWebDBImageRenderer.IsLoadAllRecords: Boolean;
|
|
begin
|
|
Result := (WebDBImage.DataSource <> nil) and WebDBImage.DataSource.LoadAllRecords;
|
|
end;
|
|
|
|
procedure TcxWebDBImageRenderer.WriteHTML;
|
|
var
|
|
I, AHeight, AWidth: Integer;
|
|
Value: Variant;
|
|
AOldName, AOldURL, AURL: string;
|
|
{$IFDEF VCL}
|
|
AGraphicClass: TGraphicClass;
|
|
{$ENDIF}
|
|
begin
|
|
if IsLoadAllRecords then
|
|
begin
|
|
AOldName := WebDBImage.Name;
|
|
AOldURL := WebDBImage.PictureURL;
|
|
for I := 0 to WebDBImage.DataSource.RecordCount - 1 do
|
|
begin
|
|
WebDBImage.Name := Format('%s_%d', [AOldName, I]);
|
|
Value := WebDBImage.DataSource.Values[I, WebDBImage.DataBinding.FieldIndex];
|
|
|
|
{$IFDEF VCL}
|
|
AGraphicClass := nil;
|
|
{$ENDIF}
|
|
if Assigned(WebDBImage.OnLoadImage) then
|
|
WebDBImage.OnLoadImage(WebDBImage{$IFDEF VCL}, AGraphicClass{$ENDIF});
|
|
try
|
|
LoadImage(Value{$IFDEF VCL}, AGraphicClass{$ENDIF}, AURL, AHeight, AWidth);
|
|
except
|
|
AURL := '';
|
|
end;
|
|
WebDBImage.PictureURL := AURL;
|
|
inherited WriteHTML;
|
|
HTMLTextBuilder.WriteStyleAttribute(saVisibility, 'hidden');
|
|
HTMLTextBuilder.WriteStyleAttribute(saPosition, 'absolute');
|
|
end;
|
|
WebDBImage.Name := AOldName;
|
|
WebDBImage.PictureURL := AOldURL;
|
|
end
|
|
else inherited WriteHTML;
|
|
end;
|
|
|
|
procedure TcxWebDBImageRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if WebDBImage.DataBinding.DataSource <> nil then
|
|
WebDBImage.DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBImage');
|
|
end;
|
|
|
|
class procedure TcxWebDBImageRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBImageNS4Renderer }
|
|
|
|
class function TcxWebDBImageNS4Renderer.IsBrowserSupported(
|
|
AWebBrowser: TcxWebBrowserClass): Boolean;
|
|
begin
|
|
Result := AWebBrowser = TcxWebBrowserNS4;
|
|
end;
|
|
|
|
function TcxWebDBImageNS4Renderer.IsLoadAllRecords: Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
{ TcxWebDBImageOperaRenderer }
|
|
|
|
class function TcxWebDBImageOperaRenderer.IsBrowserSupported(
|
|
AWebBrowser: TcxWebBrowserClass): Boolean;
|
|
begin
|
|
Result := AWebBrowser = TcxWebBrowserOpera;
|
|
end;
|
|
|
|
{ TcxWebDBCalendar }
|
|
|
|
constructor TcxWebDBCalendar.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBCalendar.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
function TcxWebDBCalendar.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBCalendar.GetData: Variant;
|
|
begin
|
|
Result := SelectedDate;
|
|
end;
|
|
|
|
function TcxWebDBCalendar.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.Notification(AComponent: TComponent;
|
|
Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBCalendarRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBCalendarNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBCalendarOperaRenderer);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if VarIsType(Value, varDate) then
|
|
SelectedDate := VarToDateTime(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendar.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
{ TcxWebDBCalendarRenderer }
|
|
|
|
class procedure TcxWebDBCalendarRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendarRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBCalendar(WebCalendar).DataBinding.DataSource <> nil then
|
|
TcxWebDBCalendar(WebCalendar).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBCalendar');
|
|
end;
|
|
|
|
{ TcxWebDBCalendarNS4Renderer }
|
|
|
|
class procedure TcxWebDBCalendarNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendarNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBCalendar(WebCalendar).DataBinding.DataSource <> nil then
|
|
TcxWebDBCalendar(WebCalendar).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBCalendar');
|
|
end;
|
|
|
|
{ TcxWebDBCalendarOperaRenderer }
|
|
|
|
class procedure TcxWebDBCalendarOperaRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
procedure TcxWebDBCalendarOperaRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBCalendar(WebCalendar).DataBinding.DataSource <> nil then
|
|
TcxWebDBCalendar(WebCalendar).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBCalendar');
|
|
end;
|
|
|
|
{ TcxWebDBDateEdit }
|
|
|
|
constructor TcxWebDBDateEdit.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBDateEdit.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
function TcxWebDBDateEdit.CanGetData: Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TcxWebDBDateEdit.GetData: Variant;
|
|
begin
|
|
Result := SelectedDate;
|
|
end;
|
|
|
|
function TcxWebDBDateEdit.GetDataTypes: TcxWebDataTypes;
|
|
begin
|
|
Result := [dtText];
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.ImplGetProviders(AList: TList);
|
|
begin
|
|
inherited ImplGetProviders(AList);
|
|
if (DataBinding <> nil) and (DataBinding.DataSource <> nil) then
|
|
AList.Add(DataBinding.DataSource);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.Notification(AComponent: TComponent;
|
|
Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBDateEditRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBDateEditNS4Renderer);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.SetData(Value: Variant; DisplayText: string);
|
|
begin
|
|
if VarIsType(Value, varDate) then
|
|
SelectedDate := VarToDateTime(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEdit.SetDataBinding(Value: TcxWebDataBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
{ TcxWebDBDateEditRenderer }
|
|
|
|
class procedure TcxWebDBDateEditRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEditRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBDateEdit(WebDateEdit).DataBinding.DataSource <> nil then
|
|
TcxWebDBDateEdit(WebDateEdit).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBDateEdit');
|
|
end;
|
|
|
|
{ TcxWebDBDateEditNS4Renderer }
|
|
|
|
class procedure TcxWebDBDateEditNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
procedure TcxWebDBDateEditNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBDateEdit(WebDateEdit).DataBinding.DataSource <> nil then
|
|
TcxWebDBDateEdit(WebDateEdit).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBDateEdit');
|
|
end;
|
|
|
|
{ TcxWebDataNavigatorBinding }
|
|
|
|
function TcxWebDataNavigatorBinding.GetDataNavigator: TcxCustomWebDataNavigator;
|
|
begin
|
|
Result := Component as TcxCustomWebDataNavigator;
|
|
end;
|
|
|
|
function TcxWebDataNavigatorBinding.GetPageSize: Integer;
|
|
begin
|
|
Result := DataNavigator.PageSize;
|
|
end;
|
|
|
|
{ TcxWebDBDataNavigator }
|
|
|
|
constructor TcxWebDBDataNavigator.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FDataBinding := TcxWebDataNavigatorBinding.Create(Self);
|
|
end;
|
|
|
|
destructor TcxWebDBDataNavigator.Destroy;
|
|
begin
|
|
FreeAndNil(FDataBinding);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TcxWebDBDataNavigator.SetDataBinding(Value: TcxWebDataNavigatorBinding);
|
|
begin
|
|
DataBinding.Assign(Value);
|
|
end;
|
|
|
|
procedure TcxWebDBDataNavigator.Loaded;
|
|
begin
|
|
inherited;
|
|
DataBinding.Loaded;
|
|
end;
|
|
|
|
procedure TcxWebDBDataNavigator.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
inherited Notification(AComponent, Operation);
|
|
if DataBinding <> nil then
|
|
DataBinding.Notification(AComponent, Operation);
|
|
end;
|
|
|
|
procedure TcxWebDBDataNavigator.RegisterRenderers;
|
|
begin
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBDataNavigatorRenderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBDataNavigatorNS4Renderer);
|
|
WebRenderHelper.RegisterRenderer(TcxWebDBDataNavigatorNS6Renderer);
|
|
end;
|
|
|
|
{ TcxWebDBDataNavigatorRenderer }
|
|
|
|
procedure TcxWebDBDataNavigatorRenderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBDataNavigator(WebDataNavigator).DataBinding.DataSource <> nil then
|
|
TcxWebDBDataNavigator(WebDataNavigator).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBDataNavigator');
|
|
end;
|
|
|
|
class procedure TcxWebDBDataNavigatorRenderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBDataNavigatorNS4Renderer }
|
|
|
|
procedure TcxWebDBDataNavigatorNS4Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBDataNavigator(WebDataNavigator).DataBinding.DataSource <> nil then
|
|
TcxWebDBDataNavigator(WebDataNavigator).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBDataNavigator');
|
|
end;
|
|
|
|
class procedure TcxWebDBDataNavigatorNS4Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
{ TcxWebDBDataNavigatorNS6Renderer }
|
|
|
|
procedure TcxWebDBDataNavigatorNS6Renderer.WriteScripts;
|
|
begin
|
|
inherited WriteScripts;
|
|
if TcxWebDBDataNavigator(WebDataNavigator).DataBinding.DataSource <> nil then
|
|
TcxWebDBDataNavigator(WebDataNavigator).DataBinding.WriteControlScripts(HTMLTextBuilder, 'CreateDBDataNavigator');
|
|
end;
|
|
|
|
class procedure TcxWebDBDataNavigatorNS6Renderer.GetScriptFiles(AList: TStrings);
|
|
begin
|
|
inherited GetScriptFiles(AList);
|
|
AList.Add(scxDataControlsScriptName);
|
|
end;
|
|
|
|
initialization
|
|
RegisterClasses([TcxWebDataBinding, TcxWebDataNavigatorBinding,
|
|
TcxWebDBLabel, TcxWebDBEdit, TcxWebDBMemo, TcxWebDBListBox,
|
|
TcxWebDBComboBox, TcxWebDBCheckBox, TcxWebDBRadioGroup,
|
|
TcxWebDBImage, TcxWebDBCalendar, TcxWebDBDateEdit,
|
|
TcxWebDBDataNavigator]);
|
|
|
|
end.
|
|
|
|
|