david
960b25140d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@55 05c56307-c608-d34a-929d-697000501d7a
134 lines
5.1 KiB
ObjectPascal
134 lines
5.1 KiB
ObjectPascal
{********************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressQuantumGrid }
|
|
{ }
|
|
{ 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 EXPRESSQUANTUMGRID 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 cxGridViewLayoutEditor;
|
|
|
|
{$I cxGridVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages,
|
|
SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, cxStyles, cxGridLevel, cxControls, cxGrid,
|
|
cxGridCustomView, cxGridDBDataDefinitions;
|
|
|
|
type
|
|
TcxGridViewLayoutEditor = class(TForm)
|
|
pnlBottom: TPanel;
|
|
pnlClient: TPanel;
|
|
pnlButtons: TPanel;
|
|
btnOK: TButton;
|
|
bntCancel: TButton;
|
|
btnColumnsCustomization: TButton;
|
|
procedure btnColumnsCustomizationClick(Sender: TObject);
|
|
private
|
|
FView: TcxCustomGridView;
|
|
protected
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
function ShowGridViewLayoutEditor(AView: TcxCustomGridView): Boolean;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView;
|
|
|
|
function ShowGridViewLayoutEditor(AView: TcxCustomGridView): Boolean;
|
|
var
|
|
AForm: TcxGridViewLayoutEditor;
|
|
AGrid: TcxGrid;
|
|
ALevel: TcxGridLevel;
|
|
ALayoutView: TcxCustomGridView;
|
|
I: Integer;
|
|
begin
|
|
AForm := TcxGridViewLayoutEditor.Create(nil);
|
|
AForm.btnColumnsCustomization.Visible := AView is TcxGridTableView;
|
|
try
|
|
AGrid := TcxGrid.Create(AForm);
|
|
AGrid.Parent := AForm.pnlClient;
|
|
AGrid.Align := alClient;
|
|
ALevel := AGrid.Levels.Add;
|
|
ALayoutView := AGrid.CreateView(TcxCustomGridViewClass(AView.ClassType));
|
|
ALevel.GridView := ALayoutView;
|
|
ALayoutView.Assign(AView);
|
|
AForm.FView := ALayoutView;
|
|
if ALayoutView is TcxCustomGridTableView then
|
|
with TcxCustomGridTableView(ALayoutView) do
|
|
for I := 0 to ItemCount - 1 do
|
|
Items[I].Tag := Integer(TcxCustomGridTableView(AView).Items[I]);
|
|
if AForm.ShowModal = mrOK then
|
|
begin
|
|
AView.BeginUpdate;
|
|
try
|
|
if ALayoutView is TcxGridBandedTableView then
|
|
begin
|
|
with TcxGridBandedTableView(ALayoutView) do
|
|
for I := 0 to Bands.Count - 1 do
|
|
TcxGridBandedTableView(AView).Bands[I].Assign(Bands[I]);
|
|
end;
|
|
if ALayoutView is TcxCustomGridTableView then
|
|
begin
|
|
with TcxCustomGridTableView(ALayoutView) do
|
|
for I := 0 to ItemCount - 1 do
|
|
begin
|
|
TcxCustomGridTableItem(Items[I].Tag).Assign(Items[I]);
|
|
TcxCustomGridTableItem(Items[I].Tag).Index := Items[I].Index;
|
|
end;
|
|
end;
|
|
finally
|
|
AView.EndUpdate;
|
|
end;
|
|
Result := True;
|
|
end else Result := False;
|
|
ALayoutView.Free;
|
|
finally
|
|
AForm.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TcxGridViewLayoutEditor.btnColumnsCustomizationClick(
|
|
Sender: TObject);
|
|
begin
|
|
if FView is TcxGridTableView then
|
|
TcxGridTableView(FView).Controller.Customization :=
|
|
not TcxGridTableView(FView).Controller.Customization;
|
|
end;
|
|
|
|
end.
|