roberto
f040ff20cd
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@63 05c56307-c608-d34a-929d-697000501d7a
416 lines
12 KiB
ObjectPascal
416 lines
12 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressPrinting System(tm) COMPONENT SUITE }
|
|
{ }
|
|
{ Copyright (C) 1998-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 EXPRESSPRINTINGSYSTEM 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 dxPScxExtComCtrlsLnk;
|
|
|
|
interface
|
|
|
|
{$I cxVer.inc}
|
|
|
|
uses
|
|
Windows, Classes, Graphics, Controls, ComCtrls, ImgList, cxListView, cxTreeView,
|
|
{$IFDEF DXVER500}
|
|
cxRichEdit, cxDBRichEdit,
|
|
{$ENDIF}
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
cxShellTreeView, cxShellListView,
|
|
{$ENDIF}
|
|
dxPSCore, dxPSTVLnk, dxPSLVLnk, dxPSRELnk, dxPSContainerLnk;
|
|
|
|
type
|
|
TcxCustomTreeViewReportLink = class(TCustomdxTreeViewReportLink)
|
|
private
|
|
function GetcxCustomTreeView: TcxCustomTreeView;
|
|
protected
|
|
function GetCustomTreeView: TCustomTreeView; override;
|
|
property cxCustomTreeView: TcxCustomTreeView read GetcxCustomTreeView;
|
|
end;
|
|
|
|
TcxTreeViewReportLink = class(TcxCustomTreeViewReportLink)
|
|
private
|
|
function GetcxTreeView: TcxTreeView;
|
|
public
|
|
property cxTreeView: TcxTreeView read GetcxTreeView;
|
|
published
|
|
property AutoNodesExpand;
|
|
property AutoWidth;
|
|
property Color;
|
|
property ExpandLevel;
|
|
property ExplicitTreeViewExpand;
|
|
property Font;
|
|
property GridLineColor;
|
|
property Options;
|
|
property ScaleFonts;
|
|
property SupportedCustomDraw;
|
|
property Transparent;
|
|
property TreeLineColor;
|
|
property UseVertDelimiters;
|
|
property Width;
|
|
|
|
property OnCustomDrawNode;
|
|
property OnInitializeNode;
|
|
end;
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
|
|
TcxShellTreeViewReportLink = class(TcxCustomTreeViewReportLink)
|
|
private
|
|
function GetcxShellTreeView: TcxShellTreeView;
|
|
protected
|
|
function GetCustomTreeView: TCustomTreeView; override;
|
|
procedure CreateImages; override;
|
|
procedure DeleteImages; override;
|
|
function GetImages: TCustomImageList; override;
|
|
function GetStateImages: TCustomImageList; override;
|
|
function HasStateImages: Boolean; override;
|
|
public
|
|
property cxShellTreeView: TcxShellTreeView read GetcxShellTreeView;
|
|
published
|
|
property AutoNodesExpand;
|
|
property AutoWidth;
|
|
property Color;
|
|
property ExpandLevel;
|
|
property ExplicitTreeViewExpand;
|
|
property Font;
|
|
property GridLineColor;
|
|
property Options;
|
|
property ScaleFonts;
|
|
property SupportedCustomDraw;
|
|
property Transparent;
|
|
property TreeLineColor;
|
|
property UseVertDelimiters;
|
|
property Width;
|
|
|
|
property OnCustomDrawNode;
|
|
property OnInitializeNode;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
TcxCustomListViewReportLink = class(TCustomdxListViewReportLink)
|
|
private
|
|
function GetcxCustomListView: TcxCustomListView;
|
|
protected
|
|
function GetCustomListView: TCustomListView; override;
|
|
property cxCustomListView: TcxCustomListView read GetcxCustomListView;
|
|
end;
|
|
|
|
TcxListViewReportLink = class(TcxCustomListViewReportLink)
|
|
private
|
|
function GetcxListView: TcxListView;
|
|
public
|
|
property cxListView: TcxListView read GetcxListView;
|
|
published
|
|
property AutoWidth;
|
|
property Color;
|
|
property DrawMode write SetDrawMode;
|
|
property Effects3D;
|
|
property EndEllipsis;
|
|
property HeaderColor;
|
|
property Font;
|
|
property HeaderFont;
|
|
property HeaderTransparent;
|
|
property GridLineColor;
|
|
property IncludeHeaders;
|
|
property OnlySelected;
|
|
property Options;
|
|
property RowAutoHeight;
|
|
property Soft3D;
|
|
property SupportedCustomDraw;
|
|
property Transparent;
|
|
|
|
property OnCustomDrawHeader;
|
|
property OnCustomDrawItem;
|
|
property OnInitializeHeader;
|
|
property OnInitializeItem;
|
|
end;
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
|
|
TcxShellListViewReportLink = class(TcxCustomListViewReportLink)
|
|
private
|
|
function GetcxShellListView: TcxShellListView;
|
|
protected
|
|
function GetCustomListView: TCustomListView; override;
|
|
|
|
procedure CreateImages; override;
|
|
procedure DeleteImages; override;
|
|
function GetLargeImages: TCustomImageList; override;
|
|
function GetSmallImages: TCustomImageList; override;
|
|
function GetStateImages: TCustomImageList; override;
|
|
function HasStateImages: Boolean; override;
|
|
public
|
|
property cxShellListView: TcxShellListView read GetcxShellListView;
|
|
published
|
|
property AutoWidth;
|
|
property Color;
|
|
property DrawMode write SetDrawMode;
|
|
property Effects3D;
|
|
property EndEllipsis;
|
|
property Font;
|
|
property HeaderColor;
|
|
property HeaderFont;
|
|
property HeaderTransparent;
|
|
property GridLineColor;
|
|
property OnlySelected;
|
|
property Options;
|
|
property RowAutoHeight;
|
|
property IncludeHeaders;
|
|
property ShowColumnHeaders;
|
|
property Soft3D;
|
|
property SupportedCustomDraw;
|
|
property Transparent;
|
|
|
|
property OnCustomDrawHeader;
|
|
property OnCustomDrawItem;
|
|
property OnInitializeHeader;
|
|
property OnInitializeItem;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF DXVER500}
|
|
|
|
TcxCustomRichEditReportLink = class(TAbstractdxRichEditReportLink)
|
|
private
|
|
function GetRichEdit: TcxCustomRichEdit;
|
|
protected
|
|
function GetRichEditHandle: {$IFDEF BCB}Integer {$ELSE}HWND {$ENDIF}; override;
|
|
property RichEdit: TcxCustomRichEdit read GetRichEdit;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
end;
|
|
|
|
TcxRichEditReportLink = class(TcxCustomRichEditReportLink)
|
|
private
|
|
function GetRichEdit: TcxRichEdit;
|
|
public
|
|
property RichEdit: TcxRichEdit read GetRichEdit;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
implementation
|
|
|
|
uses
|
|
cxControls, dxPSUtl;
|
|
|
|
{ TcxCustomTreeViewReportLink }
|
|
|
|
function TcxCustomTreeViewReportLink.GetCustomTreeView: TCustomTreeView;
|
|
begin
|
|
Result := cxCustomTreeView.InnerTreeView;
|
|
end;
|
|
|
|
function TcxCustomTreeViewReportLink.GetcxCustomTreeView: TcxCustomTreeView;
|
|
begin
|
|
Result := Component as TcxCustomTreeView;
|
|
end;
|
|
|
|
{ TcxTreeViewReportLink }
|
|
|
|
function TcxTreeViewReportLink.GetcxTreeView: TcxTreeView;
|
|
begin
|
|
Result := Component as TcxTreeView;
|
|
end;
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
|
|
{ TcxShellTreeViewReportLink }
|
|
|
|
function TcxShellTreeViewReportLink.GetCustomTreeView: TCustomTreeView;
|
|
begin
|
|
Result := cxShellTreeView.InnerTreeView;
|
|
end;
|
|
|
|
procedure TcxShellTreeViewReportLink.CreateImages;
|
|
begin
|
|
end;
|
|
|
|
procedure TcxShellTreeViewReportLink.DeleteImages;
|
|
begin
|
|
end;
|
|
|
|
function TcxShellTreeViewReportLink.GetImages: TCustomImageList;
|
|
begin
|
|
Result := dxPSUtl.ShellSmallImages;
|
|
end;
|
|
|
|
function TcxShellTreeViewReportLink.GetStateImages: TCustomImageList;
|
|
begin
|
|
Result := dxPSUtl.ShellSmallImages;
|
|
end;
|
|
|
|
function TcxShellTreeViewReportLink.HasStateImages: Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TcxShellTreeViewReportLink.GetcxShellTreeView: TcxShellTreeView;
|
|
begin
|
|
Result := TcxShellTreeView(Component);
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
{ TcxCustomListViewReportLink }
|
|
|
|
function TcxCustomListViewReportLink.GetCustomListView: TCustomListView;
|
|
begin
|
|
Result := cxCustomListView.InnerListView;
|
|
end;
|
|
|
|
function TcxCustomListViewReportLink.GetcxCustomListView: TcxCustomListView;
|
|
begin
|
|
Result := TcxCustomListView(Component);
|
|
end;
|
|
|
|
{ TcxListViewReportLink }
|
|
|
|
function TcxListViewReportLink.GetcxListView: TcxListView;
|
|
begin
|
|
Result := TcxListView(Component);
|
|
end;
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
|
|
{ TcxShellListViewReportLink }
|
|
|
|
function TcxShellListViewReportLink.GetCustomListView: TCustomListView;
|
|
begin
|
|
Result := cxShellListView.InnerListView;
|
|
end;
|
|
|
|
procedure TcxShellListViewReportLink.CreateImages;
|
|
begin
|
|
end;
|
|
|
|
procedure TcxShellListViewReportLink.DeleteImages;
|
|
begin
|
|
end;
|
|
|
|
function TcxShellListViewReportLink.GetLargeImages: TCustomImageList;
|
|
begin
|
|
Result := dxPSUtl.ShellLargeImages;
|
|
end;
|
|
|
|
function TcxShellListViewReportLink.GetSmallImages: TCustomImageList;
|
|
begin
|
|
Result := dxPSUtl.ShellSmallImages;
|
|
end;
|
|
|
|
function TcxShellListViewReportLink.GetStateImages: TCustomImageList;
|
|
begin
|
|
Result := dxPSUtl.ShellSmallImages;
|
|
end;
|
|
|
|
function TcxShellListViewReportLink.HasStateImages: Boolean;
|
|
begin
|
|
Result := not IsReportStyle or inherited HasStateImages;
|
|
end;
|
|
|
|
function TcxShellListViewReportLink.GetcxShellListView: TcxShellListView;
|
|
begin
|
|
Result := TcxShellListView(Component);
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
{$IFDEF DXVER500}
|
|
|
|
{ TcxCustomRichEditReportLink }
|
|
|
|
constructor TcxCustomRichEditReportLink.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
RichEditVersion := 2;
|
|
LinkModified(False);
|
|
end;
|
|
|
|
function TcxCustomRichEditReportLink.GetRichEditHandle: {$IFDEF BCB}Integer {$ELSE}HWND {$ENDIF};
|
|
begin
|
|
if RichEdit <> nil then
|
|
Result := RichEdit.InnerControl.Handle
|
|
else
|
|
Result := 0;
|
|
end;
|
|
|
|
function TcxCustomRichEditReportLink.GetRichEdit: TcxCustomRichEdit;
|
|
begin
|
|
Result := inherited Component as TcxCustomRichEdit;
|
|
end;
|
|
|
|
{ TcxRichEditReportLink }
|
|
|
|
function TcxRichEditReportLink.GetRichEdit: TcxRichEdit;
|
|
begin
|
|
Result := inherited Component as TcxRichEdit;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
initialization
|
|
dxPSRegisterReportLink(TcxTreeViewReportLink, TcxTreeView, TdxfmTVReportLinkDesignWindow);
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
dxPSRegisterReportLink(TcxShellTreeViewReportLink, TcxShellTreeView, TdxfmTVReportLinkDesignWindow);
|
|
{$ENDIF}
|
|
|
|
dxPSRegisterReportLink(TcxListViewReportLink, TcxListView, TdxfmLVReportLinkDesignWindow);
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
dxPSRegisterReportLink(TcxShellListViewReportLink, TcxShellListView, TdxfmLVReportLinkDesignWindow);
|
|
{$ENDIF}
|
|
|
|
{$IFDEF DXVER500}
|
|
dxPSRegisterReportLink(TcxRichEditReportLink, TcxRichEdit, nil);
|
|
{$ENDIF}
|
|
|
|
finalization
|
|
{$IFDEF DXVER500}
|
|
dxPSUnregisterReportLink(TcxRichEditReportLink, TcxRichEdit, nil);
|
|
{$ENDIF}
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
dxPSUnregisterReportLink(TcxShellListViewReportLink, TcxShellListView, TdxfmTVReportLinkDesignWindow);
|
|
{$ENDIF}
|
|
dxPSUnregisterReportLink(TcxListViewReportLink, TcxListView, TdxfmTVReportLinkDesignWindow);
|
|
|
|
{$IFDEF REGISTERCXSHELLCTRLS}
|
|
dxPSUnregisterReportLink(TcxShellTreeViewReportLink, TcxShellTreeView, TdxfmLVReportLinkDesignWindow);
|
|
{$ENDIF}
|
|
dxPSUnregisterReportLink(TcxTreeViewReportLink, TcxTreeView, TdxfmLVReportLinkDesignWindow);
|
|
|
|
end.
|
|
|