david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
474 lines
16 KiB
ObjectPascal
474 lines
16 KiB
ObjectPascal
{********************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressVerticalGrid }
|
|
{ }
|
|
{ Copyright (c) 1998-2008 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 EXPRESSVERTICALGRID AND ALL }
|
|
{ ACCOMPANYING VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM 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 cxVGridReg;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI6}
|
|
DesignEditors, DesignIntf,
|
|
VCLEditors,
|
|
{$ELSE}
|
|
DsgnIntf,
|
|
{$ENDIF}
|
|
Classes, Controls, ImgList, cxScrollBar, cxVGrid, cxEdit, cxStyles,
|
|
cxEditRepositoryItems, cxEditPropEditors, cxVGridEditor, cxClasses,
|
|
cxInplaceContainerReg, cxPropEditors, DB, cxDBVGrid, cxOI, SysUtils, Forms,
|
|
cxVGridPredefinedStyles, cxVGridLayoutEditor, TypInfo,
|
|
cxVGridConverter, cxImportDialog, cxLibraryReg;
|
|
|
|
const
|
|
cxVGridMajorVersion = '3';
|
|
cxVGridProductName = 'ExpressVerticalGrid';
|
|
UnitNamePrefix = '';
|
|
|
|
type
|
|
TcxCustomRowAccess = class(TcxCustomRow);
|
|
|
|
{ TcxVerticalGridStylesEventsProperty }
|
|
|
|
TcxVerticalGridStylesEventsProperty = class(TcxNestedEventProperty)
|
|
protected
|
|
function GetInstance: TPersistent; override;
|
|
end;
|
|
|
|
{ TcxEditorRowPropertiesEventsProperty }
|
|
|
|
TcxEditorRowPropertiesEventsProperty = class(TcxNestedEventProperty)
|
|
protected
|
|
function GetInstance: TPersistent; override;
|
|
end;
|
|
|
|
{ TcxEditPropertiesEventsProperty }
|
|
|
|
TcxEditPropertiesEventsProperty = class(TcxNestedEventProperty)
|
|
protected
|
|
function GetInstance: TPersistent; override;
|
|
end;
|
|
|
|
{ TcxCollectionItemEditPropertiesEventsProperty }
|
|
|
|
TcxCollectionItemEditPropertiesEventsProperty = class(TcxNestedEventProperty)
|
|
protected
|
|
function GetInstance: TPersistent; override;
|
|
end;
|
|
|
|
{ TcxCustomRowImageIndexProperty }
|
|
|
|
TcxCustomRowPropertiesImageIndexProperty = class(TImageIndexProperty)
|
|
public
|
|
function GetImages: TCustomImageList; override;
|
|
end;
|
|
|
|
{ TcxCustomVerticalGridComponentEditor }
|
|
|
|
TcxCustomVerticalGridComponentEditor = class(TcxComponentEditor)
|
|
protected
|
|
function GetProductMajorVersion: string; override;
|
|
function GetProductName: string; override;
|
|
end;
|
|
|
|
{ TcxVerticalGridComponentEditor }
|
|
|
|
TcxVerticalGridComponentEditor = class(TcxCustomVerticalGridComponentEditor)
|
|
private
|
|
function GetVerticalGrid: TcxCustomVerticalGrid;
|
|
protected
|
|
function InternalGetVerb(AIndex: Integer): string; override;
|
|
function InternalGetVerbCount: Integer; override;
|
|
procedure InternalExecuteVerb(AIndex: Integer); override;
|
|
public
|
|
property VerticalGrid: TcxCustomVerticalGrid read GetVerticalGrid;
|
|
end;
|
|
|
|
{ TcxRTTIInspectorComponentEditor }
|
|
|
|
TcxRTTIInspectorComponentEditor = class(TcxCustomVerticalGridComponentEditor)
|
|
private
|
|
function GetInspector: TcxCustomRTTIInspector;
|
|
protected
|
|
function InternalGetVerb(AIndex: Integer): string; override;
|
|
function InternalGetVerbCount: Integer; override;
|
|
procedure InternalExecuteVerb(AIndex: Integer); override;
|
|
public
|
|
property Inspector: TcxCustomRTTIInspector read GetInspector;
|
|
end;
|
|
|
|
{ TcxDBVerticalGridItemDataBindingFieldNameProperty }
|
|
|
|
TcxDBVerticalGridItemDataBindingFieldNameProperty = class(TFieldNameProperty)
|
|
public
|
|
function GetDataSource: TDataSource; override;
|
|
end;
|
|
|
|
{ TcxOIPropertyEditor }
|
|
|
|
TcxOIPropertyEditor = class(TPropertyEditor)
|
|
public
|
|
function GetAttributes: TPropertyAttributes; override;
|
|
procedure GetValues(Proc: TGetStrProc); override;
|
|
function GetValue: string; override;
|
|
procedure SetValue(const Value: string); override;
|
|
end;
|
|
|
|
{ TcxVerticalGridStylesEventsProperty }
|
|
|
|
function TcxVerticalGridStylesEventsProperty.GetInstance: TPersistent;
|
|
begin
|
|
if (GetComponent(0) is TcxCustomVerticalGrid) then
|
|
Result := TcxCustomVerticalGrid(GetComponent(0)).Styles
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
{ TcxEditorRowPropertiesEventsProperty }
|
|
|
|
function TcxEditorRowPropertiesEventsProperty.GetInstance: TPersistent;
|
|
begin
|
|
if (GetComponent(0) is TcxCustomEditorRow) then
|
|
Result := TcxCustomRowAccess(GetComponent(0)).FProperties
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
{ TcxEditPropertiesEventsProperty }
|
|
|
|
function TcxEditPropertiesEventsProperty.GetInstance: TPersistent;
|
|
begin
|
|
if (GetComponent(0) is TcxCustomEditorRow) then
|
|
Result := TcxCustomEditorRowProperties(TcxCustomRowAccess(GetComponent(0)).FProperties).EditProperties
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
{ TcxCollectionItemEditPropertiesEventsProperty }
|
|
|
|
function TcxCollectionItemEditPropertiesEventsProperty.GetInstance: TPersistent;
|
|
begin
|
|
if (GetComponent(0) is TcxCollectionItemEditorRowProperties) then
|
|
Result := TcxCollectionItemEditorRowProperties(GetComponent(0)).EditProperties
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
{ TcxCustomRowImageIndexProperty }
|
|
|
|
function TcxCustomRowPropertiesImageIndexProperty.GetImages: TCustomImageList;
|
|
begin
|
|
if GetComponent(0) is TcxCustomRowProperties then
|
|
Result := TcxCustomRowProperties(GetComponent(0)).Row.VerticalGrid.Images
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
{ TcxCustomVerticalGridComponentEditor }
|
|
|
|
function TcxCustomVerticalGridComponentEditor.GetProductMajorVersion: string;
|
|
begin
|
|
Result := cxVGridMajorVersion;
|
|
end;
|
|
|
|
function TcxCustomVerticalGridComponentEditor.GetProductName: string;
|
|
begin
|
|
Result := cxVGridProductName;
|
|
end;
|
|
|
|
{ TcxVerticalGridComponentEditor }
|
|
|
|
function TcxVerticalGridComponentEditor.InternalGetVerb(AIndex: Integer): string;
|
|
begin
|
|
case AIndex of
|
|
0: Result := 'Edit...';
|
|
1: Result := 'Layout editor...';
|
|
2: Result := 'Import...';
|
|
3: Result := 'Restore default values';
|
|
end;
|
|
end;
|
|
|
|
function TcxVerticalGridComponentEditor.InternalGetVerbCount: Integer;
|
|
begin
|
|
Result := 4;
|
|
end;
|
|
|
|
procedure TcxVerticalGridComponentEditor.InternalExecuteVerb(AIndex: Integer);
|
|
begin
|
|
case AIndex of
|
|
0: ShowVerticalGridEditor(Designer, VerticalGrid);
|
|
1: ShowVerticalGridLayoutEditor(VerticalGrid,
|
|
Format('Layout editor - %s', [VerticalGrid.Name]));
|
|
2: if Component is TcxDBVerticalGrid then
|
|
ShowImportDialog(Designer, Component, cxDBVGGroupConverterName, False)
|
|
else if Component is TcxUnboundVerticalGrid then
|
|
ShowImportDialog(Designer, Component, cxVGGroupConverterName, False);
|
|
3: VerticalGrid.RestoreDefaults;
|
|
end;
|
|
end;
|
|
|
|
function TcxVerticalGridComponentEditor.GetVerticalGrid: TcxCustomVerticalGrid;
|
|
begin
|
|
Result := Component as TcxCustomVerticalGrid;
|
|
end;
|
|
|
|
{ TcxRTTIInspectorComponentEditor }
|
|
|
|
function TcxRTTIInspectorComponentEditor.InternalGetVerb(AIndex: Integer): string;
|
|
begin
|
|
case AIndex of
|
|
0: Result := 'Import...';
|
|
1: Result := 'Restore default values';
|
|
end;
|
|
end;
|
|
|
|
function TcxRTTIInspectorComponentEditor.InternalGetVerbCount: Integer;
|
|
begin
|
|
Result := 2;
|
|
end;
|
|
|
|
procedure TcxRTTIInspectorComponentEditor.InternalExecuteVerb(AIndex: Integer);
|
|
begin
|
|
case AIndex of
|
|
0: ShowImportDialog(Designer, Inspector, cxRTTIVGGroupConverterName, False);
|
|
1: Inspector.RestoreDefaults;
|
|
end;
|
|
end;
|
|
|
|
function TcxRTTIInspectorComponentEditor.GetInspector: TcxCustomRTTIInspector;
|
|
begin
|
|
Result := Component as TcxCustomRTTIInspector;
|
|
end;
|
|
|
|
{ TcxDBVerticalGridItemDataBindingFieldNameProperty }
|
|
|
|
function TcxDBVerticalGridItemDataBindingFieldNameProperty.GetDataSource: TDataSource;
|
|
begin
|
|
Result := TcxDBVerticalGridItemDataBinding(GetComponent(0)).DataController.DataSource;
|
|
end;
|
|
|
|
{ TcxOIPropertyEditor }
|
|
|
|
function TcxOIPropertyEditor.GetAttributes: TPropertyAttributes;
|
|
begin
|
|
Result := [paValueList];
|
|
end;
|
|
|
|
procedure TcxOIPropertyEditor.GetValues(Proc: TGetStrProc);
|
|
|
|
function IsValidComponent(AComponent: TComponent): Boolean;
|
|
begin
|
|
Result := (AComponent.Name <> '') and
|
|
IsValidInspectedObject(AComponent, GetComponent(0) as TcxCustomRTTIInspector);
|
|
end;
|
|
|
|
procedure FillList(AComponent: TComponent);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
if IsValidComponent(AComponent) then
|
|
Proc(AComponent.Name);
|
|
for i := 0 to AComponent.ComponentCount - 1 do
|
|
FillList(AComponent.Components[I]);
|
|
end;
|
|
|
|
begin
|
|
FillList(Designer.GetRoot);
|
|
end;
|
|
|
|
function TcxOIPropertyEditor.GetValue: string;
|
|
var
|
|
OI: TcxCustomRTTIInspector;
|
|
begin
|
|
Result := '';
|
|
OI := TcxCustomRTTIInspector(GetComponent(0));
|
|
if OI.InspectedObject <> nil then
|
|
begin
|
|
if OI.InspectedObject is TComponent then
|
|
Result := OI.InspectedObject.GetNamePath;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxOIPropertyEditor.SetValue(const Value: string);
|
|
|
|
function GetValueComponent: TComponent;
|
|
begin
|
|
if CompareText(Value, Designer.GetRoot.Name) = 0 then
|
|
Result := Designer.GetRoot
|
|
else Result := Designer.GetRoot.FindComponent(Value);
|
|
if Result = nil then
|
|
Result := Application.FindComponent(Value);
|
|
if Result = GetComponent(0) then
|
|
Result := nil;
|
|
end;
|
|
|
|
var
|
|
OI: TcxCustomRTTIInspector;
|
|
begin
|
|
OI := TcxCustomRTTIInspector(GetComponent(0));
|
|
if Value = '' then
|
|
OI.InspectedObject := nil
|
|
else
|
|
begin
|
|
if GetValueComponent <> nil then
|
|
OI.InspectedObject := GetValueComponent;
|
|
end;
|
|
Modified;
|
|
end;
|
|
|
|
{$IFDEF DELPHI6}
|
|
type
|
|
TcxVerticalGridSelectionEditor = class(TSelectionEditor)
|
|
protected
|
|
ComponentsList: TStringList;
|
|
public
|
|
procedure AddComponent(const Name: string);
|
|
procedure RequiresUnits(Proc: TGetStrProc); override;
|
|
end;
|
|
|
|
procedure TcxVerticalGridSelectionEditor.RequiresUnits(Proc: TGetStrProc);
|
|
|
|
procedure AddPropertiesUnitName(AProperties: TcxCustomEditProperties);
|
|
begin
|
|
if AProperties <> nil then
|
|
Proc(GetTypeData(PTypeinfo(AProperties.ClassType.ClassInfo))^.UnitName);
|
|
end;
|
|
|
|
procedure CheckRow(ARow: TcxCustomRow);
|
|
var
|
|
AProperties: TcxCustomRowProperties;
|
|
I: Integer;
|
|
begin
|
|
AProperties := TcxCustomRowAccess(ARow).FProperties;
|
|
if AProperties is TcxCustomEditorRowProperties then
|
|
with TcxCustomEditorRowProperties(AProperties) do
|
|
AddPropertiesUnitName(EditProperties)
|
|
else
|
|
if AProperties is TcxDBMultiEditorRowProperties then
|
|
with TcxDBMultiEditorRowProperties(AProperties) do
|
|
for I := 0 to Editors.Count - 1 do
|
|
AddPropertiesUnitName(Editors[I].EditProperties)
|
|
else
|
|
if AProperties is TcxMultiEditorRowProperties then
|
|
with TcxMultiEditorRowProperties(AProperties) do
|
|
for I := 0 to Editors.Count - 1 do
|
|
AddPropertiesUnitName(Editors[I].EditProperties)
|
|
end;
|
|
|
|
var
|
|
AComponent: TComponent;
|
|
I, J: Integer;
|
|
begin
|
|
Proc(UnitNamePrefix + 'cxStyles');
|
|
Proc(UnitNamePrefix + 'cxGraphics');
|
|
Proc(UnitNamePrefix + 'cxEdit');
|
|
ComponentsList := TStringList.Create;
|
|
try
|
|
Designer.GetComponentNames(GetTypeData(PTypeInfo(TcxCustomVerticalGrid.ClassInfo)), AddComponent);
|
|
for I := 0 to ComponentsList.Count - 1 do
|
|
begin
|
|
AComponent := Designer.GetComponent(ComponentsList[I]);
|
|
if AComponent is TcxCustomVerticalGrid then
|
|
with TcxCustomVerticalGrid(AComponent) do
|
|
for J := 0 to Rows.Count - 1 do CheckRow(Rows[J]);
|
|
end;
|
|
finally
|
|
ComponentsList.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxVerticalGridSelectionEditor.AddComponent(const Name: string);
|
|
begin
|
|
ComponentsList.Add(Name);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure Register;
|
|
begin
|
|
{$IFDEF DELPHI9}
|
|
ForceDemandLoadState(dlDisable);
|
|
{$ENDIF}
|
|
|
|
RegisterComponents('Dev Express', [TcxVerticalGrid,
|
|
TcxVirtualVerticalGrid, TcxDBVerticalGrid, TcxRTTIInspector]);
|
|
//rows
|
|
RegisterClasses([TcxCustomVerticalGrid, TcxCategoryRow, TcxEditorRow,
|
|
TcxMultiEditorRow, TcxVerticalGridStyleSheet]);
|
|
RegisterNoIcon([TcxCategoryRow, TcxEditorRow, TcxMultiEditorRow,
|
|
TcxVerticalGridStyleSheet]);
|
|
//row properties
|
|
RegisterClasses([TcxCaptionRowProperties, TcxEditorRowProperties,
|
|
TcxMultiEditorRowProperties]);
|
|
RegisterPropertyEditor(TypeInfo(string), TcxCustomEditorRowProperties, 'EditPropertiesClassName', nil);
|
|
RegisterPropertyEditor(TypeInfo(TcxCustomEditProperties), TcxCustomEditorRowProperties, 'EditProperties', TcxInplaceEditContainerPropertiesProperty);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex), TcxCustomRowProperties, 'ImageIndex', TcxCustomRowPropertiesImageIndexProperty);
|
|
RegisterPropertyEditor(TypeInfo(TNotifyEvent), TcxCustomVerticalGrid,
|
|
'StylesEvents', TcxVerticalGridStylesEventsProperty);
|
|
RegisterPropertyEditor(TypeInfo(TNotifyEvent), TcxCustomEditorRow,
|
|
'PropertiesEvents', TcxEditorRowPropertiesEventsProperty);
|
|
RegisterPropertyEditor(TypeInfo(TNotifyEvent), TcxCustomEditorRow,
|
|
'EditPropertiesEvents', TcxEditPropertiesEventsProperty);
|
|
RegisterPropertyEditor(TypeInfo(TNotifyEvent), TcxCollectionItemEditorRowProperties,
|
|
'EditPropertiesEvents', TcxCollectionItemEditPropertiesEventsProperty);
|
|
|
|
RegisterComponentEditor(TcxVerticalGrid, TcxVerticalGridComponentEditor);
|
|
RegisterComponentEditor(TcxVirtualVerticalGrid, TcxVerticalGridComponentEditor);
|
|
RegisterPropertyEditor(TypeInfo(string), TcxDBVerticalGridItemDataBinding, 'FieldName', TcxDBVerticalGridItemDataBindingFieldNameProperty);
|
|
RegisterPropertyEditor(TypeInfo(string), TcxDBVerticalGridItemDataBinding, 'FieldName', TcxDBVerticalGridItemDataBindingFieldNameProperty);
|
|
//DB
|
|
RegisterClasses([TcxDBEditorRow, TcxDBMultiEditorRow]);
|
|
RegisterNoIcon([TcxDBEditorRow, TcxDBMultiEditorRow]);
|
|
RegisterClasses([TcxDBEditorRowProperties, TcxDBMultiEditorRowProperties]);
|
|
RegisterComponentEditor(TcxDBVerticalGrid, TcxVerticalGridComponentEditor);
|
|
RegisterPropertyEditor(TypeInfo(string), TcxDBVerticalGridItemDataBinding, 'FieldName', TcxDBVerticalGridItemDataBindingFieldNameProperty);
|
|
//RTTI
|
|
RegisterComponentEditor(TcxCustomRTTIInspector, TcxRTTIInspectorComponentEditor);
|
|
RegisterPropertyEditor(TypeInfo(TPersistent), TcxCustomRTTIInspector, 'InspectedObject',
|
|
TcxOIPropertyEditor);
|
|
{$IFDEF DELPHI6}
|
|
RegisterSelectionEditor(TcxCustomVerticalGrid, TcxVerticalGridSelectionEditor);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
initialization
|
|
RegisterStyleSheetClass(TcxVerticalGridStyleSheet);
|
|
|
|
finalization
|
|
UnRegisterStyleSheetClass(TcxVerticalGridStyleSheet);
|
|
|
|
end.
|