cxgrideditor.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 769 行 · 第 1/2 页

{********************************************************************}
{                                                                    }
{       Developer Express Visual Component Library                   }
{       ExpressQuantumGrid                                           }
{                                                                    }
{       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 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 cxGridEditor; // TODO: Add Level and View...

{$I cxVer.inc}

interface

uses
{$IFDEF DELPHI6}
    DesignIntf, DesignWindows, ComponentDesigner,
{$ELSE}
  DsgnIntf, LibIntf,
{$ENDIF}
  Windows, Classes, SysUtils, Controls, Graphics, Forms, cxClasses,
  StdCtrls, ExtCtrls, ComCtrls, Menus,
  cxControls, cxDesignWindows, cxGridStructureNavigator,
  cxGrid, cxGridLevel, cxGridCustomView, cxViewEditor,
  cxGridViewLayoutEditor, cxLookAndFeelPainters, cxButtons, cxPC, cxLookAndFeels;

type
  TSelectionInfo = record
    Level: TcxGridLevel;
    View: TcxCustomGridView;
    MultiSelect: Boolean;
  end;

  TcxGridEditor = class(TcxDesignFormEditor)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    BClose: TcxButton;
    Panel4: TPanel;
    PLeft: TPanel;
    Splitter1: TSplitter;
    Panel7: TPanel;
    Panel8: TPanel;
    PMGridStructureControl: TPopupMenu;
    PMViews: TPopupMenu;
    Panel11: TPanel;
    Panel10: TPanel;
    PMViewList: TPopupMenu;
    miDeleteView: TMenuItem;
    N1: TMenuItem;
    miEditLayout: TMenuItem;
    Panel5: TPanel;
    Panel12: TPanel;
    Label1: TLabel;
    LSelectedView: TLabel;
    Panel13: TPanel;
    Panel14: TPanel;
    PageControl1: TcxPageControl;
    tsLevels: TcxTabSheet;
    PLevels: TPanel;
    Panel6: TPanel;
    BAddLevel: TcxButton;
    BDeleteLevel: TcxButton;
    TabSheet2: TcxTabSheet;
    PViews: TPanel;
    LBViews: TListBox;
    Panel9: TPanel;
    BAddView: TcxButton;
    BDeleteView: TcxButton;
    BEditView: TcxButton;
    Panel15: TPanel;
    PViewFrame: TPanel;
    procedure BCloseClick(Sender: TObject);
    procedure BDeleteLevelClick(Sender: TObject);
    procedure BAddLevelClick(Sender: TObject);
    procedure LBViewsClick(Sender: TObject);
    procedure BAddViewClick(Sender: TObject);
    procedure BDeleteViewClick(Sender: TObject);
    procedure GridStructureControlKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure miEditLayoutClick(Sender: TObject);
  private
    FGridStructureControl: TcxGridStructureControl;
    FGridStructureHelper: TcxGridStructureHelper;
    FViewEditor: TcxViewEditor;
    procedure CreateViewClick(Sender: TObject);
    function GetGrid: TcxCustomGrid;
    function GetView(Index: Integer): TcxCustomGridView;
    function GetViewCount: Integer;
    function GetViewRepository: TcxGridViewRepository;
    procedure GridStructureControlSelectionChanged(Sender: TObject);
    procedure HideViewFrame;
    procedure ShowViewFrame(AView: TcxCustomGridView; AMultiView: Boolean; ARefreshNeeded: Boolean);
    procedure UpdateButtons;
    procedure UpdateDesigner(Sender: TObject);
    procedure UpdateGridStructureControl;
    procedure UpdateGridStructureControlSelection;
    procedure UpdateViewFrame(ARefreshNeeded: Boolean);
    procedure UpdateViewFrameCaption;
    procedure UpdateViewList;
  protected
    function GetSelectionInfo: TSelectionInfo;
    function GetViewEditorClass(AView: TcxCustomGridView): TcxViewEditorClass; virtual;
    procedure InitFormEditor; override;
    procedure InitIDESelection; virtual;
    procedure InitLookAndFeel(AControl: TWinControl);
    procedure LoadSettings;
    procedure SaveSettings;
    function UniqueName(Component: TComponent): string; override;
    procedure UpdateContent; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure DoItemsModified; override;
    function GetRegKey: string;
    function GetRegSectionName: string;
    procedure SelectionsChanged(const ASelection: TDesignerSelectionList); override;
    property Grid: TcxCustomGrid read GetGrid;
    property ViewCount: Integer read GetViewCount;
    property ViewRepository: TcxGridViewRepository read GetViewRepository;
    property Views[Index: Integer]: TcxCustomGridView read GetView;
  end;

procedure ShowGridEditor(ADesigner: IDesigner; AGrid: TcxCustomGrid);
procedure ShowViewRepositoryEditor(ADesigner: IDesigner; AViewRepository: TcxGridViewRepository);

implementation

uses
  Messages, Registry;

{$R *.dfm}

procedure ShowGridEditor(ADesigner: IDesigner; AGrid: TcxCustomGrid);
begin
  ShowFormEditorClass(ADesigner, AGrid, TcxGridEditor);
end;

procedure ShowViewRepositoryEditor(ADesigner: IDesigner; AViewRepository: TcxGridViewRepository);
begin
  ShowFormEditorClass(ADesigner, AViewRepository, TcxGridEditor);
end;

{ TcxGridEditor }

constructor TcxGridEditor.Create(AOwner: TComponent);
var
  P: TPoint;
begin
  inherited;
{$IFDEF DELPHI6}
  P := {ComponentDesigner}ActiveDesigner.Environment.GetWorkspaceOrigin;
{$ELSE}
  P := DelphiIDE.GetWorkspaceOrigin;
{$ENDIF}
  Left := P.X + 10;
  Top := P.Y + 10;
end;

destructor TcxGridEditor.Destroy;
begin
  FreeAndNil(FGridStructureHelper);
  inherited Destroy;
end;

procedure TcxGridEditor.DoItemsModified;
begin
  inherited;
  UpdateViewList;
  UpdateViewFrame(True);
end;

function TcxGridEditor.GetRegKey: string;
begin
  Result := GetBaseRegKey{$IFDEF DELPHI6}(ComponentDesigner){$ENDIF} + '\TcxGridEditor';
end;

function TcxGridEditor.GetRegSectionName: string;
begin
  Result := ComponentClassName;
end;

procedure TcxGridEditor.SelectionsChanged(const ASelection: TDesignerSelectionList);
begin
  if Closing then Exit;
  UpdateGridStructureControlSelection;
  ListBoxSynchronizeSelection(LBViews);
  UpdateButtons;
  UpdateViewFrame(False);
end;

function TcxGridEditor.GetSelectionInfo: TSelectionInfo;

  procedure FindView(ASelection: TDesignerSelectionList; var AInfo: TSelectionInfo);
  var
    I: Integer;
  begin
    for I := 0 to ASelection.Count - 1 do
      if (ASelection[I] is TcxCustomGridView) and
        IsViewLinkedToComponent(TcxCustomGridView(ASelection[I]), Component) then
        if AInfo.View = nil then
          AInfo.View := TcxCustomGridView(ASelection[I])
        else
        begin
          AInfo.View := nil;
          AInfo.MultiSelect := True;
          Break;
        end;
  end;

  procedure FindLevel(ASelection: TDesignerSelectionList; var AInfo: TSelectionInfo);
  var
    I: Integer;
    ALevel: TcxGridLevel;
  begin
    for I := 0 to ASelection.Count - 1 do
      if ASelection[I] is TcxGridLevel then
      begin
        ALevel := TcxGridLevel(ASelection[I]);
        if ALevel.Control = Grid then
          if (AInfo.Level = nil) and (AInfo.View = nil) then
            if ALevel.GridView = nil then
              AInfo.Level := ALevel
            else
              AInfo.View := ALevel.GridView
          else
          begin
            AInfo.Level := nil;
            AInfo.View := nil;
            AInfo.MultiSelect := True;
            Break;
          end;
      end;
  end;

  procedure FindViewItem(ASelection: TDesignerSelectionList; var AInfo: TSelectionInfo);
  var
    I: Integer;
    AView: TcxCustomGridView;
  begin
    for I := 0 to ASelection.Count - 1 do
    begin
      AView := GetLinkedView(ASelection[I]);
      if (AView <> nil) and IsViewLinkedToComponent(AView, Component) then
        if AInfo.View = nil then
          AInfo.View := AView
        else
          if AInfo.View <> AView then
          begin
            AInfo.View := nil;
            AInfo.MultiSelect := True;
            Break;
          end;
    end;
  end;

var
  ASelectionList: TDesignerSelectionList;
begin
  Result.Level := nil;
  Result.View := nil;
  Result.MultiSelect := False;

  ASelectionList := CreateDesignerSelectionList;
  try
    Designer.GetSelections(ASelectionList);
    FindView(ASelectionList, Result);
    if (Result.View = nil) and not Result.MultiSelect then
    begin
      FindLevel(ASelectionList, Result);
      if (Result.Level = nil) and (Result.View = nil) and not Result.MultiSelect then
        FindViewItem(ASelectionList, Result);
    end;
  finally
    DeleteDesignerSelectionList(ASelectionList);
  end;

  if (Result.Level <> nil) and Result.Level.IsDestroying then
    Result.Level := nil;
  if (Result.View <> nil) and Result.View.IsDestroying then
    Result.View := nil;
end;

function TcxGridEditor.GetViewEditorClass(AView: TcxCustomGridView): TcxViewEditorClass;
begin
  Result := cxViewEditor.GetViewEditorClass(TcxCustomGridViewClass(AView.ClassType));
end;

procedure TcxGridEditor.InitFormEditor;
begin
  inherited InitFormEditor;
  FGridStructureControl := TcxGridStructureControl.Create(Self);
  with FGridStructureControl do
  begin
    Align := alClient;
    Grid := Self.Grid;
    MayFocused := True;
    MultiSelect := True;
    Keys := [kChars];
    OnKeyPress := GridStructureControlKeyPress;
    OnSelectionChanged := GridStructureControlSelectionChanged;
    Parent := PLevels;
  end;
  FGridStructureHelper := TcxGridStructureHelper.Create(FGridStructureControl);
  FGridStructureHelper.OnUpdateDesigner := UpdateDesigner;
  tsLevels.TabVisible := Grid <> nil;
  LSelectedView.Caption := '';
  LSelectedView.Font.Style := [fsBold];
  InitLookAndFeel(Self);
{$IFDEF DELPHI10}  // should be DELPHI105
  MakeColoredControlsOpaque(Self);
{$ENDIF}

  UpdateViewList;
  InitIDESelection;
  UpdateSelection;
  LoadSettings;
end;

procedure TcxGridEditor.InitIDESelection;
var
  ASelectionInfo: TSelectionInfo;
begin
  if (Grid = nil) or (Grid.ActiveLevel = nil) {or Grid.ActiveLevel.IsMaster} then Exit;
  ASelectionInfo := GetSelectionInfo;
  if (ASelectionInfo.Level = nil) and (ASelectionInfo.View = nil) and not ASelectionInfo.MultiSelect then
    if Grid.ActiveView = nil then
      SelectComponent(Grid.ActiveLevel)
    else
      SelectComponent(Grid.ActiveView);
end;

procedure TcxGridEditor.InitLookAndFeel(AControl: TWinControl);
begin
  SetControlLookAndFeel(AControl, lfUltraFlat, False);
end;

procedure TcxGridEditor.LoadSettings;
begin
  with TRegIniFile.Create(GetRegKey) do
    try
      Left := ReadInteger(GetRegSectionName, 'Left', Left);
      Top := ReadInteger(GetRegSectionName, 'Top', Top);
      Width := ReadInteger(GetRegSectionName, 'Width', Width);
      Height := ReadInteger(GetRegSectionName, 'Height', Height);
      PLeft.Width := ReadInteger(GetRegSectionName, 'PLeft.Width', PLeft.Width);
      // TODO: splitters
    finally
      Free;
    end;
  MakeVisibleOnDesktop(Self);  
end;

procedure TcxGridEditor.SaveSettings;
begin
  with TRegIniFile.Create(GetRegKey) do
    try
      EraseSection(GetRegSectionName);
      WriteInteger(GetRegSectionName, 'Left', Left);