BillsEditor/MF/BillsProjectFrame.pas

unit BillsProjectFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms,
  Dialogs, ZjGridTreeDBA, ZjGridDBA, ZJGrid,
  ExtCtrls, ComCtrls, ToolWin,
  DataBase, StdCtrls, ZJEdits, ZjCells,
  ConstMethodUnit, ZjLists, XPMenu, ZjPopupPanel, JimPages,
  fraBillsItemsFrame, ImgList, dxBar, GridsEh, DBGridEh,Buttons
  {$IFDEF _beEncrypt}
  , ScEncryptUnit
  {$ENDIF};

type
  TColWidth = record
    ColIndex: Integer;
    ColWidth: Integer;
  end;
  PColWidth = ^TColWidth;

type
  TBillsProjectView = class(TFrame)
    zaDrawingQuantity: TZjGridDBA;
    zaBills: TZjGridTreeDBA;
    xppBillsView: TdxBarPopupMenu;
    xppDrawQuantity: TdxBarPopupMenu;
    XPMenu: TXPMenu;
    zaCustomStep: TZjGridDBA;
    zaDQCalcExprs: TZjGridDBA;
    dxpmLocateBills: TdxBarPopupMenu;
    dxpmShowLevel: TdxBarPopupMenu;
    zaQtyItems: TZjGridDBA;
    JimPages: TJimPages;
    JimPagesPage1: TJimPage;
    JimPagesPage2: TJimPage;
    jpDetails: TJimPages;
    jpDetailsPage1: TJimPage;
    Panel1: TPanel;
    Splitter3: TSplitter;
    zgDrawingQuantity: TZJGrid;
    cbDQUnit: TZjComboBox;
    zgCustomStep: TZJGrid;
    jpDetailsPage2: TJimPage;
    pnlFXQD_Btm: TPanel;
    tbViewdQ: TToolBar;
    tbDrawingQuantity: TToolButton;
    tbItems: TToolButton;
    Splitter1: TSplitter;
    zgBills: TZJGrid;
    cbUnits: TZjComboBox;
    pnlFXQD_Top: TPanel;
    tbView1: TToolBar;
    tbBillsLocate: TToolButton;
    tbBillsShowLevel: TToolButton;
    QtyItemsFrame: TBillsItemsFrame;
    zgQtyItems: TZJGrid;
    ToolBar1: TToolBar;
    tbtnRefreshBills: TToolButton;
    Splitter2: TSplitter;
    JimPagesPage3: TJimPage;
    zgProjectBills: TZJGrid;
    PPItemsFrame: TBillsItemsFrame;
    ztaProjectBills: TZjGridTreeDBA;
    Panel2: TPanel;
    cbAutoSelectItems: TCheckBox;
    cbSpanLevelSelItems: TCheckBox;
    Splitter4: TSplitter;
    zcbBidLot: TZjComboBox;
    ToolBar2: TToolBar;
    tbAutoSelectNode: TToolButton;
    dpmGather: TdxBarPopupMenu;
    tbCancelSelectNode: TToolButton;
    dpmQtyBills: TdxBarPopupMenu;
    jpDetailsPage3: TJimPage;
    gStat: TDBGridEh;
    btnStat: TToolButton;
    btnOneKeyGatherNode: TSpeedButton;
    procedure zaBillsGridGetCellEditor(Sender: TObject; ACoord: TPoint;
      var AControl: TWinControl);
    procedure zaDrawingQuantityGridGetCellEditor(Sender: TObject;
      ACoord: TPoint; var AControl: TWinControl);
    procedure zgBillsMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure tbDrawingQuantityClick(Sender: TObject);
    procedure zgBillsCopy(Sender: TObject; const ABounds: TRect;
      var Allow: Boolean);
    procedure zgBillsPaste(Sender: TObject; const ABounds: TRect;
      var Allow: Boolean);
    procedure zgDrawingQuantityMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure zgCustomStepCellTextChanging(Sender: TObject;
      const ACoord: TPoint; var NewValue: String; var Accept: Boolean);
    procedure zgBillsCellTextChanging(Sender: TObject;
      const ACoord: TPoint; var NewValue: String; var Accept: Boolean);
    procedure zgBillsColWidthChange(Sender: TObject; AIndex: Integer;
      const AValue: Integer);
    procedure tbBillsShowLevelClick(Sender: TObject);
    procedure tbBillsLocateClick(Sender: TObject);
    procedure cbSpanLevelSelItemsClick(Sender: TObject);
    procedure cbAutoSelectItemsClick(Sender: TObject);
    procedure tbtnRefreshBillsClick(Sender: TObject);
    procedure PPItemsFramezgItemsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ztaProjectBillsGridGetCellText(Sender: TObject;
      const ACoord: TPoint; var Value: String);
    procedure ztaProjectBillsGridSetCellText(Sender: TObject;
      const ACoord: TPoint; var Value: String);
    procedure zgProjectBillsCellGetColor(Sender: TObject; ACoord: TPoint;
      var AColor: TColor);
    procedure zgBillsCellGetColor(Sender: TObject; ACoord: TPoint;
      var AColor: TColor);
    procedure zgBillsBeforePaste(Sender: TObject; const ABounds: TRect;
      var Allow: Boolean);
    procedure zgBillsCustomPaste(Sender: TObject; ABounds: TRect;
      ASourSheet: TZjSheet);
    procedure zgProjectBillsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure tbAutoSelectNodeClick(Sender: TObject);
    procedure tbCancelSelectNodeClick(Sender: TObject);
    procedure QtyItemsFramezgItemsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure zgDrawingQuantityShowHint(var HintStr: String;
      var CanShow: Boolean; var HintInfo: THintInfo; const ACoord: TPoint);
    procedure zaBillsGridSetCellText(Sender: TObject; const ACoord: TPoint;
      var Value: String);
    procedure zgBillsShowHint(var HintStr: String; var CanShow: Boolean;
      var HintInfo: THintInfo; const ACoord: TPoint);
    procedure btnOneKeyGatherNodeClick(Sender: TObject);
  private
    FShowOwnerName: Boolean;
    FProject: TObject;
    FCreating: Boolean;
    FStdBillsCtrl: TObject;
    PList: TList;
    FIsGradeView: Boolean;

    procedure SetUnitsList(AStrings: TStrings);
    function GetAutoSelectItems: Boolean;
    function GetSpanLevelSelectItems: Boolean;
    property IsAutoSelectItems: Boolean read GetAutoSelectItems;
    property IsSpanLevelSelectItems: Boolean read GetSpanLevelSelectItems;
    procedure SetStdBillsCtrl(const Value: TObject);
    {inner delete}
    function GetSelectionInfo(aStrList: TStringList): Integer;
    procedure RepairTreeStructure(var aPreID, aLastID, aParentID: Integer);
    procedure InitView;
    procedure SyncSelected(aID: Integer; aValue: Boolean);
    function GetPastePosition(var aNode: TZjIDTreeNode; var ABillsQty, ADQQty: Boolean): Integer;

    function GetActivePage: Integer;
    procedure SetActivePage(const Value: Integer);
    function GetActiveDetailPage: Integer;
    procedure SetActiveDetailpage(const Value: Integer);
    function GetBidLotList: TStrings;
    procedure SetBidLotList(const Value: TStrings);
    procedure SetProject(const Value: TObject);

    function GetRBNodeName(AIndex: Integer): string;
    procedure SetShowDesignQuantity(const Value: Boolean);
    procedure SetShowDrawingCode(const Value: Boolean);
    procedure SetShowEconomicMark(const Value: Boolean);
  public
    procedure AdjustControlsSize;
    constructor Create(aProject: TObject);
    destructor Destroy; override;
    procedure DoOnStat(AFJF: Currency; AYsCount, AQdCount: Integer);

    procedure CopyBills;
    // Modified by GiLi 2012-6-11 10:14:15
    function IsCanCopyBills: Boolean;
    function IsCanGridPaste: Boolean;

    procedure CopyBillsToRecycleBin;
    { delete }
    function GetSelection(aStrList: TStringList; var aPreID, aLastID, aParentID: Integer): Integer;

    { control grid repaint }
    procedure ControlBillsTreeRT(AEnabled: Boolean; AETree: Boolean = True);
    procedure ControlDrawQtyRT(AEnabled: Boolean; AETree: Boolean = True);
    procedure ControlDesignCode(AEnabled: Boolean; AETree: Boolean = True);
    procedure SetGridFocus(aPageIdx: Integer);
    { beginupdate }
    procedure BeginUpdate;
    procedure EndUpdate;
    procedure BeginSelect;
    procedure EndSelect;
    { xmjBills }
    procedure EnterXMJBills;
    procedure LeaveXMJBills;
    procedure ControlXMJTreeView(aEnabled: Boolean; aXMJTree: Boolean = True);

    { Refresh }
    function CanRefreshQtyItem: Boolean;
    { Control OwnerName visible }
    procedure ControlOwnerBid(aFlag: Integer);
    // 切换到清单评分视图
    procedure SwitchBillsGradeView(AGradeView: Boolean);

    procedure LoadBillsViewOption;

    property UnitsList: TStrings write SetUnitsList;
    property BidLotList: TStrings read GetBidLotList write SetBidLotList;
    property ActivePage: Integer read GetActivePage write SetActivePage;
    property ActiveDetailPage: Integer read GetActiveDetailPage write SetActiveDetailpage;
    property Project: TObject read FProject write SetProject;
    property StdBillsCtrl: TObject read FStdBillsCtrl write SetStdBillsCtrl;
    property IsGradeView: Boolean read FIsGradeView write FIsGradeView;

    property ShowDesignQuantity: Boolean write SetShowDesignQuantity;
    property ShowEconomicMark: Boolean write SetShowEconomicMark;
    property ShowDrawingCode: Boolean write SetShowDrawingCode;
  end;

implementation

{$R *.dfm}

uses
  ScCopyBills,
  ClipBrd,
  ZjClipBrd,
  ConstVarUnit,
  ScStdBillsCtrl,
  ScConfig,
  ZjIDTree,
  DB,
  DBClient,
  ScBillsTree,
  DetailItemsDM,
  CheckPosForm,
  MainForm,
  NewProjectFrm,
  ScProjectManager;

{ TBillsProjectView }

constructor TBillsProjectView.Create(aProject: TObject);
begin
  FCreating := True;
  inherited Create(nil);
  Project := aProject;

//  zgBills.CellClass.Cols[1] := TZjCheckBoxCell;
  zgProjectBills.CellClass.Cols[1] := TZjCheckBoxCell;
  zgBills.CellClass.Cols[4] := TZjComboCell;
//  zgBills.CellClass.Cols[5] := TZjComboCell;

  zgDrawingQuantity.CellClass.Cols[3] := TZjComboCell;
  { init }
  InitView;
  FCreating := False;
end;

destructor TBillsProjectView.Destroy;
begin                  
//  FIntegerList.Free;
  inherited;
end;

procedure TBillsProjectView.zaBillsGridGetCellEditor(Sender: TObject;
  ACoord: TPoint; var AControl: TWinControl);
begin
  if ACoord.X = 4 then
    AControl := cbUnits
  else if FShowOwnerName and (ACoord.X = 5) then
    AControl := zcbBidLot;

end;

procedure TBillsProjectView.zaDrawingQuantityGridGetCellEditor(
  Sender: TObject; ACoord: TPoint; var AControl: TWinControl);
begin
  if ACoord.X = 3 then
    AControl := cbDQUnit;
end;

procedure TBillsProjectView.zgBillsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    xppBillsView.PopupFromCursorPos;
  end;

end;

procedure TBillsProjectView.tbDrawingQuantityClick(Sender: TObject);
begin
  jpDetails.ActivePageIndex := TToolButton(Sender).Tag;
end;

procedure TBillsProjectView.SetUnitsList(AStrings: TStrings);
begin
  cbUnits.Items.Assign(AStrings);
  cbDQUnit.Items.Assign(AStrings);
end;

procedure TBillsProjectView.zgBillsCopy(Sender: TObject;
  const ABounds: TRect; var Allow: Boolean);
var
  rOldSel: TRect;
begin
  if zgBills.Tag > 0 then
  begin
    LockWindowUpdate(zgBills.Handle);
    // 保存表格的选中状态
    rOldSel.TopLeft := TZjGrid(Sender).Selection.Current;
    rOldSel.BottomRight := TZJGrid(Sender).Selection.EndSel;
    // 阻止Grid对象近一步执行默认的复制操作
    Allow := False;
    // 打开剪贴板，因为我们要多次向剪贴板复制不同格式的内容
    Clipboard.Open;

    try
      Screen.Cursor := crHourGlass;
      // 调用表格默认的剪贴板，保存文本内容到剪贴板
      ZjClipboard.CopyToClipboard(TZjGrid(Sender), ABounds);

      // 调用TScXMLClipboard将选中的清单按照一定的格式保存到剪贴板，保存的格式名称为CF_Bills
      with TScXMLClipboard.Create(TProject(FProject).BillsData) do
      try
        with TZjGrid(Sender) do
        begin
          if zgBills.Tag = 1 then
            CopyBillsToClipboard(Selection.Bounds.Top - FixedRowCount,
              Selection.Bounds.Bottom - FixedRowCount - 1)
          else if zgBills.Tag = 2 then
          begin
            TProject(FProject).RecycleBinData.InsertNode(TProject(FProject).ProjectName, GetRBNodeName(Selection.Bounds.Top - FixedRowCount));
            CopyBillsToFile(TProject(FProject).RecycleBinData.GetCurrentFileName, Selection.Bounds.Top - FixedRowCount,
              Selection.Bounds.Bottom - FixedRowCount - 1);
          end;
        end;
      finally
        Free;
        Screen.Cursor := crDefault;
      end;
      // 恢复表格的选中状态
      TZJGrid(Sender).Selection.SelectRow(rOldSel.Top, rOldSel.Bottom);
    finally
      zgBills.Tag := 0;
      Clipboard.Close;
      LockWindowUpdate(0);
    end;
  end;  
end;

procedure TBillsProjectView.zgBillsPaste(Sender: TObject;
  const ABounds: TRect; var Allow: Boolean);
begin
  if Clipboard.HasFormat(CF_Bills) then
  begin
    Allow := False;
    // 建立TScXMLClipboard对象，执行粘贴过程
    with TScXMLClipboard.Create(TProject(FProject).BillsData) do
    try
      PasteBillsFromClipboard(ABounds.Top - TZjGrid(Sender).FixedRowCount);
    finally
      Free;            
    end;
  end;
end;

procedure TBillsProjectView.CopyBills;
var
  iSelTop: Integer;
  iSelBottom: Integer;
begin
  with zgBills do
  begin
    Tag := 1;
    // 首先将表格的选中状态转变为整行选择
    iSelTop := Selection.Current.Y;
    iSelBottom := Selection.EndSel.Y;
    Selection.SelectRow(iSelTop, iSelBottom);
    // 复制到剪贴板
    CopyToClipboard(Selection.Bounds);
  end;
end;

procedure TBillsProjectView.zgDrawingQuantityMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    xppDrawQuantity.PopupFromCursorPos;
end;

function TBillsProjectView.GetAutoSelectItems: Boolean;
begin
  Result := cbAutoSelectItems.Checked;
end;

procedure TBillsProjectView.ControlBillsTreeRT(AEnabled, AETree: Boolean);
begin
  if AEnabled then
  begin
    zgBills.EndUpdate;
    zaBills.EnableControl;
    if AETree then
      if Assigned(zaBills.IDTree) then
        zaBills.IDTree.EndUpdate(False);
  end
  else
  begin
    zgBills.BeginUpdate;
    if AETree then
    begin
      if Assigned(zaBills.IDTree) then
        zaBills.IDTree.BeginUpdate(AETree);
      zaBills.DisableControl(True);
    end
    else
      zaBills.DisableControl;
  end;
end;

procedure TBillsProjectView.SetStdBillsCtrl(const Value: TObject);
begin
  FStdBillsCtrl := Value;
  if Assigned(Value) then
  begin
    with TStdBillsCtrl(FStdBillsCtrl) do
      zaCustomStep.DataSet := DMStdBillsLib.cdsCustomStepView;
  end
  else
    zaCustomStep.DataSet := nil;
end;

procedure TBillsProjectView.zgCustomStepCellTextChanging(Sender: TObject;
  const ACoord: TPoint; var NewValue: String; var Accept: Boolean);
begin
  if zaCustomStep.DataSet.RecordCount = 0 then Accept := False;
end;

procedure TBillsProjectView.zgBillsCellTextChanging(Sender: TObject;
  const ACoord: TPoint; var NewValue: String; var Accept: Boolean);
begin
  if (zaCustomStep.DataSet.RecordCount > 0) and not ScConfigInfo.AllowMfyCode then
  begin
    if ACoord.X in [1, 2, 4] then Accept := False;
  end;

  if ACoord.X = 6 then
  begin
    if TProject(FProject).BillsData.HasGatherQ then
    begin
      Accept := False;
      MessageHint(0, '设计细目被勾选，不允许修改清单工程量。');
    end;
  end;
end;

procedure TBillsProjectView.zgBillsColWidthChange(Sender: TObject;
  AIndex: Integer; const AValue: Integer);
var
  I, iIdx: Integer;
begin
  if FCreating then Exit;
  
  iIdx := 0;
  for I := 0 to zaBills.Columns.Count - 1 do
  begin

    if zaBills.Columns[I].Visible and (iIdx = AIndex - zgBills.FixedColCount) then
    begin
      zaBills.Columns[I].Width := AValue;
      Break;
    end;

    if zaBills.Columns[I].Visible then Inc(iIdx);
  end;
end;

procedure TBillsProjectView.tbBillsShowLevelClick(Sender: TObject);
var
  P: TPoint;
begin
  P := tbView1.ClientToScreen(
      Point(tbBillsShowLevel.Left, tbBillsShowLevel.Top + tbBillsShowLevel.Height));
  dxpmShowLevel.Popup(P.X, P.Y);
end;

procedure TBillsProjectView.tbBillsLocateClick(Sender: TObject);
var
  P: TPoint;
  sBillsChapters: TStrings;
begin
  P := tbView1.ClientToScreen(
       Point(tbBillsLocate.Left, tbBillsLocate.Top + tbBillsLocate.Height));

  sBillsChapters := TStrings(GetLocateBillsStrings);
  TProject(FProject).BillsData.GetChapterNames(sBillsChapters);

  dxpmLocateBills.Popup(P.X, P.Y);
end;

procedure TBillsProjectView.BeginUpdate;
begin
  zgBills.BeginUpdate;
  zgProjectBills.BeginUpdate;
end;

procedure TBillsProjectView.EndUpdate;
begin
  zgBills.EndUpdate;
  zgProjectBills.EndUpdate;
end;

function TBillsProjectView.GetSelectionInfo(aStrList: TStringList): Integer;
var
  iPosition, iRange, iStart: Integer;
  vNode: TZjIDTreeNode;
  sIDString: string;
  iRefCount: Integer;
begin
  Result := 0;
  iRefCount := 0;
  sIDString := '';
  with zaBills.IDTree do
  begin
    iRange := zgBills.Selection.Bottom - zgBills.Selection.Top;

    if Selected.MajorIndex >= zgBills.Selection.Top - zgBills.FixedRowCount + 1 then
      vNode := Items[zgBills.Selection.Top - zgBills.FixedRowCount]
    else
      vNode := Selected;
      
    if not Assigned(vNode) then Exit;
    aStrList.Add(IntToStr(vNode.ID));
    iStart := vNode.MajorIndex;
    iPosition := iStart;
    while Assigned(vNode) and (vNode.MajorIndex < iStart + iRange) do
    begin
      if not Assigned(vNode.LastPosterity) then
      begin
        if TScBillsItem(vNode).IsPreDefine then
        begin
          Result := 0;
          Break;
        end;
        if sIDString <> '' then
        begin
          sIDString := Format('%s or ID=%d', [sIDString, vNode.ID]);
          Inc(iRefCount);
          if iRefCount = 500 then
          begin
            aStrList.Add(sIDString);
            iRefCount := 0;
            sIDString := '';
          end;
        end
        else
        begin
          sIDString := Format('ID=%d', [vNode.ID]);
          Inc(iRefCount);
        end;
        vNode := vNode.NextNode;
        Inc(Result);
      end
      else
      begin
        iPosition := vNode.LastPosterity.MajorIndex;
        while Assigned(vNode) and (vNode.MajorIndex <= iPosition) do
        begin
          if TScBillsItem(vNode).IsPreDefine then
          begin
            Result := 0;
            vNode := nil;
            Break;
          end;
          if sIDString <> '' then
          begin
            sIDString := Format('%s or ID=%d', [sIDString, vNode.ID]);
            Inc(iRefCount);
            if iRefCount = 500 then
            begin
              aStrList.Add(sIDString);
              iRefCount := 0;
              sIDString := '';
            end;
          end
          else
          begin
            sIDString := Format('ID=%d', [vNode.ID]);
            Inc(iRefCount);
          end;
          vNode := vNode.NextNode;
          Inc(Result);
        end;
      end;
    end;
    if sIDString <> '' then
      aStrList.Add(sIDString); 
  end;
end;

procedure TBillsProjectView.RepairTreeStructure(var aPreID, aLastID,
  aParentID: Integer);
var
  iRange, iLast: Integer;
  nParent, nPreSibling, nCurNode, nLastNode: TZjIDTreeNode;
begin
  with zaBills.IDTree do
  begin
    aPreID := -1;
    aLastID := -1;
    aParentID := -1;

    iRange := zgBills.Selection.Bottom - zgBills.Selection.Top;

    if Selected.MajorIndex >= zgBills.Selection.Top - zgBills.FixedRowCount + 1 then
    begin
      nCurNode := Items[zgBills.Selection.Top - zgBills.FixedRowCount];
      nCurNode.LocateDBRecord;
    end
    else
      nCurNode := Selected;
      
    iLast := nCurNode.MajorIndex + iRange - 1;
    nParent := nCurNode.Parent;
    nPreSibling := nCurNode.PrevSibling;
    while Assigned(nCurNode) and (nCurNode.MajorIndex <= iLast) do
    begin
      if Assigned(nParent) then
      begin
        if nParent.LastPosterity.MajorIndex < iLast then
        begin
          nCurNode := nParent;
          nParent := nCurNode.Parent;
          nPreSibling := nCurNode;
        end
        else
        begin
          if Assigned(nPreSibling) then
            aPreID := nPreSibling.ID
          else aPreID := -1;
          aLastID := -1;
          aParentID := nParent.ID;
          nCurNode := nParent.LastChild;
          while Assigned(nCurNode) and (nCurNode.MajorIndex > iLast) do
          begin
            aLastID := nCurNode.ID;
            nCurNode := nCurNode.PrevSibling;
          end;
          Break;
        end;
      end
      else
      begin
        // 删除预定义项，不作处理
        aParentID := -1;
        aPreID := nCurNode.PrevSiblingID;
        aLastID := nCurNode.NextSiblingID;
        Break;
      end;
    end;
  end;
end;

function TBillsProjectView.GetSelection(aStrList: TStringList; var aPreID,
  aLastID, aParentID: Integer): Integer;
begin
  Result := GetSelectionInfo(aStrList);
  if Result > 0 then
    RepairTreeStructure(aPreID, aLastID, aParentID);
end;

procedure TBillsProjectView.ControlDrawQtyRT(AEnabled, AETree: Boolean);
begin
  if AEnabled then
    zaDrawingQuantity.EnableControl
  else
    zaDrawingQuantity.DisableControl;
end;

procedure TBillsProjectView.cbSpanLevelSelItemsClick(Sender: TObject);
begin
  if cbSpanLevelSelItems.Checked and cbAutoSelectItems.Checked then
    cbAutoSelectItems.Checked := False;
end;

procedure TBillsProjectView.cbAutoSelectItemsClick(Sender: TObject);
begin
  if cbAutoSelectItems.Checked and cbSpanLevelSelItems.Checked then
    cbSpanLevelSelItems.Checked := False;
end;

function TBillsProjectView.GetSpanLevelSelectItems: Boolean;
begin
  Result := cbSpanLevelSelItems.Checked;
end;

procedure TBillsProjectView.InitView;
var i: integer;
begin
  FIsGradeView := False;
  jpDetails.ActivePageIndex := 0;
  JimPages.ActivePageIndex := 0;

  {_zgBills.Height := Round(0.68 * Height);
  zgQtyItems.Height := Round(0.60 * Height);
  zgProjectBills.Height := Round(0.60 * Height);  }

  for i := 0 to gStat.Columns.Count -1 do
    gStat.Columns[i].Footers[1].Color := $0086C2FF;

  TProject(FProject).BillsData.OnStat := DoOnStat;
  TProject(FProject).BillsData.Stat;

  // Modified by GiLi 2012-3-18 12:23:29
  // 界面的修改
  // 屏蔽评分功能
  // 屏蔽按钮
  btnStat.Visible := False;
  // 屏蔽分项清单表格评分列
  zaBills.Column('IsIgNore').Visible := False;
  zaBills.Column('ErrorHint').Visible := False;
  zaBills.Column('IsSuperscale').Visible := False;
  zaBills.Column('StandardGrade').Visible := False;
  zaBills.Column('DeductGrade').Visible := False;
  zaBills.Column('UserModified').Visible := False;

  LoadBillsViewOption;
end;

function TBillsProjectView.GetActivePage: Integer;
begin
  Result := JimPages.ActivePageIndex;
end;

procedure TBillsProjectView.SetActivePage(const Value: Integer);
begin
  JimPages.ActivePageIndex := Value;
  case Value of
    0: zgBills.SetFocus;
    1: zgQtyItems.SetFocus;
    2: zgProjectBills.SetFocus;
  end;
end;

procedure TBillsProjectView.tbtnRefreshBillsClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    TProject(FProject).DetailItemsDM.RefreshPQItems;
  finally
    Screen.Cursor := crDefault;
  end;
end;

function TBillsProjectView.GetActiveDetailPage: Integer;
begin
  Result := jpDetails.ActivePageIndex;
end;

procedure TBillsProjectView.SetActiveDetailpage(const Value: Integer);
begin
  jpDetails.ActivePageIndex := Value;
end;

procedure TBillsProjectView.PPItemsFramezgItemsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PPItemsFrame.zgDetailItemsMouseDown(Sender, Button, Shift, X, Y);

end;

procedure TBillsProjectView.ztaProjectBillsGridGetCellText(Sender: TObject;
  const ACoord: TPoint; var Value: String);
var
  OldActiveRec: Integer;
begin
  if (ACoord.X = 1) and
     ztaProjectBills.ChangeActiveRecord(ACoord.Y - zgProjectBills.FixedRowCount, OldActiveRec) then
  begin
    try
      Value := ZjBooleanStr(TScBillsItem(ztaProjectBills.IDTree.Items[ACoord.Y - zgProjectBills.FixedRowCount]).Selected);
    finally
      ztaProjectBills.ChangeActiveRecord(OldActiveRec, OldActiveRec);
    end;
  end;
end;

procedure TBillsProjectView.ztaProjectBillsGridSetCellText(Sender: TObject;
  const ACoord: TPoint; var Value: String);

  procedure SelectNextSibling(ANode: TZjIDTreeNode; ASelected: Boolean);
  var
    xNode: TZjIDTreeNode;
  begin
    xNode := ANode;
    while Assigned(xNode.PrevSibling) do
    begin
      TScBillsItem(xNode.PrevSibling).Selected := ASelected;
      SyncSelected(xNode.PrevSiblingID, ASelected);
      //FIntegerList[xNode.PrevSibling.MajorIndex] := Ord(ASelected);
      xNode := xNode.PrevSibling;
    end;

    TScBillsItem(ANode).Selected := ASelected;
    SyncSelected(ANode.ID, ASelected);
    //FIntegerList[ANode.MajorIndex] := Ord(ASelected);

    while Assigned(ANode.NextSibling) do
    begin
      TScBillsItem(ANode.NextSibling).Selected := ASelected;
      SyncSelected(ANode.NextSiblingID, ASelected);
      //FIntegerList[ANode.NextSibling.MajorIndex] := Ord(ASelected);
      ANode := ANode.NextSibling;
    end;
  end;

  procedure SelectChildren(ANode: TZjIDTreeNode; iLevel: Integer; ASelected: Boolean);
  begin
    if ANode = nil then Exit;
    if ANode.Level = iLevel then
    begin
      SelectNextSibling(ANode, ASelected);
      Exit;
    end;

    if ANode.FirstChild <> nil then SelectChildren(ANode.FirstChild, iLevel, ASelected);
    if ANode.NextSibling <> nil then SelectChildren(ANode.NextSibling, iLevel, ASelected);
  end;

  procedure SelectItems(ANode: TZjIDTreeNode; ASelected: Boolean);
  var
    iLevel: Integer;
    blFlag: Boolean;
    xNode, zNode: TZjIDTreeNode;
  begin
    blFlag := False;
    iLevel := ANode.Level;
    xNode := ANode.Parent;
    while Assigned(xNode) do
    begin
      if TScBillsItem(xNode).Selected then
      begin
        blFlag := True;
        Break;
      end;
      xNode := xNode.Parent;
    end;
    if not blFlag then
      SelectNextSibling(ANode, ASelected)
    else if Assigned(xNode) then
    begin
     zNode := xNode.PrevSibling;
      while Assigned(zNode) do
      begin
        if TScBillsItem(zNode).Selected then
          SelectChildren(zNode.FirstChild, iLevel, ASelected);
        zNode := zNode.PrevSibling;
      end;
      SelectChildren(xNode.FirstChild, iLevel, ASelected);
      zNode := xNode;
      while Assigned(zNode) do
      begin
        if TScBillsItem(zNode).Selected then
          SelectChildren(zNode.FirstChild, iLevel, ASelected);
        zNode := zNode.NextSibling;
      end;
      
    end;
  end;

var
  Node: TZjIDTreeNode;
begin
  Node := ztaProjectBills.IDTree.Selected;
  if Assigned(Node) and (ACoord.X = 1) then
  begin
    BeginSelect;
    try
      TScBillsItem(Node).Selected := ZjStrToBoolean(Value);
      SyncSelected(Node.ID, ZjStrToBoolean(Value));
      if IsAutoSelectItems then
        SelectNextSibling(Node, ZjStrToBoolean(Value))
      else if IsSpanLevelSelectItems then
        SelectItems(Node, ZjStrToBoolean(Value));
    finally
      EndSelect;
    end;
    zgProjectBills.InvalidateCol(1);
  end;
end;


procedure TBillsProjectView.BeginSelect;
begin
  zgProjectBills.BeginUpdate;
  ztaProjectBills.IDTree.BeginUpdate(True);
  ztaProjectBills.DisableControl(True);
  ControlBillsTreeRT(False);
end;

procedure TBillsProjectView.EndSelect;
begin
  zgProjectBills.EndUpdate;
  ztaProjectBills.EnableControl;
  ztaProjectBills.IDTree.EndUpdate(False);
  ControlBillsTreeRT(True);
end;

procedure TBillsProjectView.EnterXMJBills;
begin
  ztaProjectBills.IDTree := TProject(FProject).BillsData.XMJBillsTree;
end;

procedure TBillsProjectView.LeaveXMJBills;
begin
  ztaProjectBills.IDTree := nil;
end;

procedure TBillsProjectView.SyncSelected(aID: Integer; aValue: Boolean);
var
  sbiNode: TScBillsItem;
begin
  sbiNode := TScBillsItem(TProject(FProject).BillsData.BillsTree.FindNode(aID));
  if Assigned(sbiNode) then
    sbiNode.SyncSelected(aValue);
end;

function TBillsProjectView.GetBidLotList: TStrings;
begin
  Result := zcbBidLot.Items;
end;

procedure TBillsProjectView.SetBidLotList(const Value: TStrings);
begin
  zcbBidLot.Items.Assign(Value);
end;

function TBillsProjectView.CanRefreshQtyItem: Boolean;
begin
  Result := zaQtyItems.DataSet.RecordCount = 0;
end;

procedure TBillsProjectView.SetProject(const Value: TObject);
begin
  FProject := Value;
  if Assigned(FProject) then
  begin
    with TProject(FProject) do
    begin
      zaBills.IDTree := BillsData.BillsTree;
      zaDrawingQuantity.DataSet := BillsData.cdsOrgDrawingQuantity;
      PPItemsFrame.ItemsDS := DetailItemsDM.cdsPPItems;
      PPItemsFrame.DetailItemsDS := DetailItemsDM.cdsPPDetailItems;
      PPItemsFrame.DrawQtyDS := DetailItemsDM.cdsPPDrawQty;
      QtyItemsFrame.ItemsDS := DetailItemsDM.cdsQIItems;
      QtyItemsFrame.DetailItemsDS := DetailItemsDM.cdsQIDetailItems;
      QtyItemsFrame.DrawQtyDS := DetailItemsDM.cdsQIDrawQty;
      zaQtyItems.DataSet := DetailItemsDM.cdsPQBills;
      PPItemsFrame.DetailItemsDM := DetailItemsDM;
      QtyItemsFrame.DetailItemsDM := DetailItemsDM;
      gStat.DataSource := BillsData.dsStat;
    end;
  end
  else
  begin
    zaBills.IDTree := nil;
    zaDrawingQuantity.DataSet := nil;
    PPItemsFrame.ItemsDS := nil;
    PPItemsFrame.DetailItemsDS := nil;
    PPItemsFrame.DrawQtyDS := nil;
    PPItemsFrame.DetailItemsDM := nil;
    QtyItemsFrame.ItemsDS := nil;
    QtyItemsFrame.DetailItemsDS := nil;
    QtyItemsFrame.DrawQtyDS := nil;
    QtyItemsFrame.DetailItemsDM := nil;
    gStat.DataSource := nil;   
  end;
end;

procedure TBillsProjectView.ControlOwnerBid(aFlag: Integer);
begin
  if aFlag = 1 then
  begin
    zgBills.CellClass.Cols[5] := TZjComboCell;
    FShowOwnerName := True;
  end
  else
  begin
    // chenshilong, 2011-01-26 10:39:42  Visible会影响后面的Boolean字段列的显示
//    zaBills.Columns[5].Visible := False;
    zaBills.Columns[5].Width := 0;
    FShowOwnerName := False;
  end;
end;

procedure TBillsProjectView.SetGridFocus(aPageIdx: Integer);
begin
  case aPageIdx of
    0: zgBills.SetFocus;
    1: zgProjectBills.SetFocus;
    2: zgQtyItems.SetFocus;
  end;
end;

procedure TBillsProjectView.zgProjectBillsCellGetColor(Sender: TObject;
  ACoord: TPoint; var AColor: TColor);
var
  ztnNode: TZjIDTreeNode;
begin
  if ztaProjectBills.IDTree = nil then Exit;
  ztnNode := ztaProjectBills.IDTree[ACoord.Y - zgProjectBills.FixedRowCount];

  if Assigned(ztnNode) then
  begin
    if ztnNode.ParentID = 1 then
      AColor := $00FBCAC4;
  end;
end;

procedure TBillsProjectView.zgBillsCellGetColor(Sender: TObject;
  ACoord: TPoint; var AColor: TColor);
var
  ztnNode: TZjIDTreeNode;
begin
  if zaBills.IDTree = nil then Exit;
  ztnNode := zaBills.IDTree[ACoord.Y - zgBills.FixedRowCount];

  if Assigned(ztnNode) then
  begin
    if Assigned(ztnNode.Parent) then
    begin
      if ztnNode.ParentID = 1 then
        AColor := $00FBCAC4
      // 预算项目节用颜色标识出来
      else if Trim(TScBillsItem(ztnNode).Code) <> '' then
        AColor := TColor($00F9E8DF);
    end;
  end;
end;

procedure TBillsProjectView.ControlXMJTreeView(aEnabled,
  aXMJTree: Boolean);
begin

  if aEnabled then
  begin
    zgProjectBills.EndUpdate;
    
    //if Assigned(ztaProjectBills.IDTree) and Assigned(ztaProjectBills.IDTree.DataSet) then
    ztaProjectBills.EnableControl;

    if aXMJTree then
    begin
      if Assigned(ztaProjectBills.IDTree) and Assigned(ztaProjectBills.IDTree.DataSet) then
        ztaProjectBills.IDTree.EndUpdate(False);
    end;
  end
  else
  begin
    zgProjectBills.BeginUpdate;
    if aXMJTree then
    begin
      if Assigned(ztaProjectBills.IDTree) and Assigned(ztaProjectBills.IDTree.DataSet) then
      begin
        ztaProjectBills.IDTree.BeginUpdate(True);
        ztaProjectBills.DisableControl(True);
      end;
    end
    else
      ztaProjectBills.DisableControl;
  end;
end;

procedure TBillsProjectView.zgBillsBeforePaste(Sender: TObject;
  const ABounds: TRect; var Allow: Boolean);
var
  iIndex: Integer;
begin
  with TProject(FProject).BillsData.BillsTree do
  begin
    iIndex := ABounds.Top - zgBills.FixedRowCount;
    if (ABounds.Left < 3) and ((Items[iIndex] = nil) or (Items[iIndex].IsPreDefine)) then
    begin
      if Items[iIndex] = nil then
        MessageError(Handle, '不能在此插入记录 ')
      else
        MessageError(Handle, '不能覆盖预定义项, 如果要粘贴清单项，可以先在清单部分插入一条空记录，然后再粘贴. ');

      Allow := False;
    end
    else
      Allow := True;
  end;

end;

procedure TBillsProjectView.zgBillsCustomPaste(Sender: TObject;
  ABounds: TRect; ASourSheet: TZjSheet);
var
  iRow      : Integer;
  iCol      : Integer;
  iSavePoint: Integer;
  iPosition : Integer;

  bBillsQty : Boolean;
  bDQQty    : Boolean;
  bIsCode   : Boolean;

  ztnNode   : TZjIDTreeNode;

  sCode  : string;
  sName  : string;
  sBCode : string;

  gField : TField;
begin
  if ABounds.Left >= 3 then
  begin
    for iRow := ABounds.Top to ABounds.Bottom - 1 do
    begin
      // Not Expanded Node, Cannot Down Paste
      if not TZJGrid(Sender).RowVisible[iRow] then Continue;
      for iCol := ABounds.Left to ABounds.Right - 1 do
        with TZJGrid(Sender).Cells[iCol, iRow] do
          if CanEdit then Text := ASourSheet.Values[iCol - ABounds.Left, iRow - ABounds.Top];
    end;
  end
  else
  begin
    if zaBills.DataSet is TClientDataSet then
      iSavePoint := TClientDataSet(zaBills.DataSet).SavePoint;
        
    ztnNode := TProject(FProject).BillsData.BillsTree.Selected;
    if ztnNode = nil then Exit;
    iPosition := GetPastePosition(ztnNode, bBillsQty, bDQQty);
    if iPosition = -1 then Exit;
    if iPosition = 3 then
    begin
      Screen.Cursor := crHourGlass;
      try
        for iRow := 0 to ASourSheet.RowCount - 1 do
          for iCol := 0 to ASourSheet.ColCount - 1 do
          begin
            with TZJGrid(Sender).Cells[iCol + ABounds.Left , iRow + ABounds.Top] do
              if CanEdit then Text := ASourSheet.Values[iCol, iRow];
          end;
      finally
        Screen.Cursor := crDefault;
      end;

      Exit;
    end;

    bIsCode := ABounds.Left = 1;

    Screen.Cursor := crHourGlass;
    TProject(FProject).BillsData.BeginHandler(True);
    zgBills.BeginUpdate;
    zaBills.DisableControl;
    try

      try
        if ASourSheet.RowCount > 0 then
        begin
          if bIsCode then
          begin
            if ASourSheet.ColCount - 1 >= 0 then
              sCode := ASourSheet.Values[0, iRow];
            if ASourSheet.ColCount - 1 >= 1 then
              sBCode := ASourSheet.Values[1, iRow];
            if (sCode <> '') and (sBCode <> '') then Abort;
          end;

          for iCol := 0 to ASourSheet.ColCount - 1 do
          begin
            if zaBills.FindField(iCol + ABounds.Left, gField) then
            begin
              zaBills.DataSet.Edit;
              if bBillsQty and
                ((gField.FieldName = 'Quantity')
                  or (gField.FieldName = 'UnitPrice')
                  or (gField.FieldName = 'TotalPrice')
                  or (gField.FieldName = 'DesignQuantity')
                  or (gField.FieldName = 'DesignQuantity2')
                  or (gField.FieldName = 'DesignPrice'))
              then
                gField.AsString := ''
              else
                gField.AsString := ASourSheet.Values[iCol, 0];
             // gField.Tag := 0;
            end;
          end;
        end;

        if zaBills.DataSet.State in [dsEdit, dsInsert] then
          zaBills.DataSet.Post;

        for iRow := 1 to ASourSheet.RowCount - 1 do
          for iCol := 0 to ASourSheet.ColCount - 1 do
          begin
            if bIsCode then
            begin
              if iCol = 0 then
              begin
                sCode := ASourSheet.Values[0, iRow];
                if ASourSheet.ColCount - 1 >= 1 then
                  sBCode := ASourSheet.Values[1, iRow];
                if ASourSheet.ColCount - 1 >= 2 then
                  sName := ASourSheet.Values[2, iRow];
                if (sCode <> '') and (sBCode <> '') then
                  Abort
                else if sCode <> '' then
                  ztnNode := TProject(FProject).BillsData.InsertItem(ztnNode, sCode, sName, True)
                else
                  ztnNode := TProject(FProject).BillsData.InsertItem(ztnNode, sBCode, sName, False);
              end;

              //  assign value ....
              if zaBills.FindField(iCol + ABounds.Left, gField) then
              begin
                zaBills.DataSet.Edit;
                if bBillsQty and
                  ((gField.FieldName = 'Quantity')
                    or (gField.FieldName = 'UnitPrice')
                    or (gField.FieldName = 'TotalPrice')
                    or (gField.FieldName = 'DesignQuantity')
                    or (gField.FieldName = 'DesignQuantity2')
                    or (gField.FieldName = 'DesignPrice'))
                then
                  gField.AsString := ''
                else
                  gField.AsString := ASourSheet.Values[iCol, iRow];
                gField.Tag := 0;
              end;

            end
            else  // bcode
            begin
              if iCol = 0 then
              begin
                sCode := ASourSheet.Values[0, iRow];
                if ASourSheet.ColCount - 1 >= 1 then
                  sName := ASourSheet.Values[1, iRow];
                ztnNode := TProject(FProject).BillsData.InsertItem(ztnNode, sCode, sName, False);
              end;

              if zaBills.FindField(iCol + ABounds.Left, gField) then
              begin
                zaBills.DataSet.Edit;
                if bBillsQty and
                  ((gField.FieldName = 'Quantity')
                    or (gField.FieldName = 'UnitPrice')
                    or (gField.FieldName = 'TotalPrice')
                    or (gField.FieldName = 'DesignQuantity')
                    or (gField.FieldName = 'DesignQuantity2')
                    or (gField.FieldName = 'DesignPrice'))
                then
                  gField.AsString := ''
                else
                  gField.AsString := ASourSheet.Values[iCol, iRow];
                gField.Tag := 0;
              end;

            end;

            if zaBills.DataSet.State in [dsEdit, dsInsert] then
              zaBills.DataSet.Post;
          end;
      except

        if zaBills.DataSet is TClientDataSet then
          TClientDataSet(zaBills.DataSet).SavePoint := iSavePoint;
        if Screen.Cursor <> crHourGlass then Screen.Cursor := crHourGlass;
        try
          TProject(FProject).BillsData.DisconnectBillsTree;
          TProject(FProject).BillsData.ConnectionBillsTree;
        finally
          Screen.Cursor := crDefault;
        end;

        raise Exception.Create('  您输入的数据类型不正确！粘贴操作失败! ');
      end;

    finally
      zgBills.EndUpdate;
      zaBills.EnableControl;
      TProject(FProject).BillsData.EndHandler;
      Screen.Cursor := crDefault;
    end;
  end;

end;

function TBillsProjectView.GetPastePosition(var aNode: TZjIDTreeNode; var ABillsQty,
  ADQQty: Boolean): Integer;
var
  iPos: Integer;
begin
  Result := CheckBillsPastePosition(ABillsQty, ADQQty, True);
  case Result of
    cp_Next  : aNode := TProject(FProject).BillsData.BillsTree.AddBillsItem(aNode.ParentID, aNode.NextSiblingID);
    cp_Font  : aNode := TProject(FProject).BillsData.BillsTree.AddBillsItem(aNode.ParentID, aNode.ID);
    cp_Child : aNode := TProject(FProject).BillsData.BillsTree.AddBillsItem(aNode.ID, -1);
  end;
end;

procedure TBillsProjectView.zgProjectBillsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    dpmGather.PopupFromCursorPos;
  end;
end;

procedure TBillsProjectView.tbAutoSelectNodeClick(Sender: TObject);
begin
  ControlBillsTreeRT(False);
  ControlXMJTreeView(False);
  try
    TProject(FProject).BillsData.SelectGatherNode(TProject(FProject).BillsData.XMJBillsTree.FirstNode, True);
  finally
    ControlXMJTreeView(True);
    ControlBillsTreeRT(True);
  end;
end;

procedure TBillsProjectView.tbCancelSelectNodeClick(Sender: TObject);
begin
  ControlBillsTreeRT(False);
  ControlXMJTreeView(False);
  try
    TProject(FProject).BillsData.SelectGatherNode(TProject(FProject).BillsData.XMJBillsTree.FirstNode, False);
  finally
    ControlBillsTreeRT(True);
    ControlXMJTreeView(True);
  end;
end;

procedure TBillsProjectView.QtyItemsFramezgItemsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dpmQtyBills.PopupFromCursorPos;

end;

procedure TBillsProjectView.ControlDesignCode(AEnabled, AETree: Boolean);
begin
  zgDrawingQuantity.BeginUpdate;
  try
    if AEnabled then
    begin
      zaDrawingQuantity.Columns[0].width := 33;
      if Assigned(zaDrawingQuantity.DataSet) then
        zaDrawingQuantity.DataSet.FieldByName('IsGatherQ').ReadOnly := False;
      zaDrawingQuantity.Columns[1].Width := 150;
      zaDrawingQuantity.Columns[2].Visible := True;
      zaDrawingQuantity.Columns[3].Visible := True;
      zaDrawingQuantity.Columns[4].Visible := True;
      zaDrawingQuantity.Columns[5].Visible := True;

    end
    else
    begin
      zaDrawingQuantity.Columns[0].Width := 0;
      if Assigned(zaDrawingQuantity.DataSet) then
        zaDrawingQuantity.DataSet.FieldByName('IsGatherQ').ReadOnly := True;
      zaDrawingQuantity.Columns[1].Width := 320;
      zaDrawingQuantity.Columns[2].Visible := False;
      zaDrawingQuantity.Columns[3].Visible := False;
      zaDrawingQuantity.Columns[4].Visible := False;
      zaDrawingQuantity.Columns[5].Visible := False;
    end;
  finally
    zgDrawingQuantity.EndUpdate;
  end;
end;

procedure TBillsProjectView.zgDrawingQuantityShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo; const ACoord: TPoint);
begin
  if not zaDrawingQuantity.Columns[2].Visible then
  begin
    HintStr := '填写示例 —— ' + #10#13 + #10#13 +
               '设计位置：K5+127.6 '+ #10#13 +
               '设计位置：K9+576.3' + #10#13 +
               '图号：S22-6' + #10#13 +
               '图号：S23-8' + #10#13 + #10#13 +
               '注意：请保留“设计位置：”、“图号：”字样';
    CanShow := True;
  end;
end;

procedure TBillsProjectView.SwitchBillsGradeView(AGradeView: Boolean);
var iFrom, iTo, i, idx, wth: Integer;
  P: PColWidth;
begin
  iFrom := zaBills.Columns.IndexByName('UnitPrice');
  iTo := zaBills.Columns.IndexByName('MemoStr');

  if AGradeView then
  begin
    FIsGradeView := True;

    if Assigned(PList) then Exit;
    PList := TList.Create;
    // 用记录指针记下列和列宽，便于以后恢复。
    for i := iFrom to iTo do
    begin
      New(P);
      P.ColIndex := i;
      P.ColWidth := zgBills.ColWidths[i];
      PList.Add(P);

      zgBills.ColWidths[i] := 0;
    end;

    if not btnStat.Down then
    begin
      btnStat.Down := True;
      btnStat.Click;
    end;

  end
  else // 恢复正常视图
  begin
    FIsGradeView := False;

    if not Assigned(PList) then Exit;
    // 恢复隐藏列的列宽
    for I := 0 to PList.Count - 1 do
    begin
      idx := PColWidth(PList[I]).ColIndex;
      wth := PColWidth(PList[I]).ColWidth;
      zgBills.ColWidths[idx] := wth;
    end;

    // 先释放指针，再释放TList
    for I := 0 to PList.Count - 1 do
    begin
      if Assigned(PList[I]) then
        Dispose(PList[I]);
    end;
    PList.Free;
    // 虽然PList被释放了，但Assigned(PList)值仍为True
    PList := nil;

    if not tbDrawingQuantity.Down then
    begin
      tbDrawingQuantity.Down := True;
      tbDrawingQuantity.Click;
    end;
  end;
end;

procedure TBillsProjectView.zaBillsGridSetCellText(Sender: TObject;
  const ACoord: TPoint; var Value: String);
begin
  if ACoord.X in [15, 17, 18] then
    TProject(FProject).BillsData.SetUserModifiedGrade;
end;

procedure TBillsProjectView.zgBillsShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo; const ACoord: TPoint);
  var s: string;
  OldActiveRecd: Integer;
begin
  if ACoord.X = 14 then
    HintInfo.HintStr := '忽略：勾选后，自动评分时该清单不参与评分和统计。'
  else if ACoord.X = 19 then
    HintInfo.HintStr := '锁定：勾选后，自动评分时用户修改信息不会被覆盖。'
  else if ACoord.X = 15 then
  begin
    s := '';

   { if zaBills.ChangeActiveRecord(ACoord.Y - zgBills.FixedRowCount, OldActiveRecd)then
    begin
      try
        if zaBills.DataSet.FieldByName('NameErrorFlag').AsInteger = 1 then
        begin
          s := '当前名称：' + zaBills.DataSet.FieldByName('Name').AsString + #10;
          s := s + '标准名称：' + zaBills.DataSet.FieldByName('RightName').AsString + #10#13#13;
        end;
        if zaBills.DataSet.FieldByName('UnitsErrorFlag').AsInteger = 1 then
        begin
          s := s + '当前单位：' + zaBills.DataSet.FieldByName('Units').AsString + #10;
          s := s + '标准单位：' + zaBills.DataSet.FieldByName('RightUnits').AsString;
        end;
        if Trim(s) = '' then Exit;
        HintInfo.HintStr := s;
      finally
        zaBills.ChangeActiveRecord(OldActiveRecd, OldActiveRecd);
      end;
    end;  }


    if zaBills.DataSet.FieldByName('NameErrorFlag').AsInteger = 1 then
    begin
      s := '当前名称：“' + zaBills.DataSet.FieldByName('Name').AsString + '”' + #10;
      s := s + '标准名称：“' + zaBills.DataSet.FieldByName('RightName').AsString + '”' + #10#13#13;
    end;
    if zaBills.DataSet.FieldByName('UnitsErrorFlag').AsInteger = 1 then
    begin
      s := s + '当前单位：“' + zaBills.DataSet.FieldByName('Units').AsString + '”'  + #10;
      s := s + '标准单位：“' + zaBills.DataSet.FieldByName('RightUnits').AsString + '”' + #10#13#13;;
    end;
    if Trim(s) = '' then Exit;

    s := s + '参考文件(预算项目节)：' + ExtractFileName(TProject(FProject).BillsData.PBStdTreeFile) + #10;
    s := s + '参考文件(清单子目号)：' + ExtractFileName(TProject(FProject).BillsData.BQStdTreeFile);

    HintInfo.HintStr := s;
  end
  else Exit;

  CanShow := True;
  HintInfo.HintMaxWidth := 600;
  HintInfo.HideTimeout := 30000;
end;

procedure TBillsProjectView.DoOnStat(AFJF: Currency; AYsCount, AQdCount: Integer);
// 最终得分，质量分
var cZZDF, cZLF: Currency;
  vDS: TDataSource;
begin
  gStat.Columns[1].Footers[1].ValueType := fvtStaticText;
  gStat.Columns[1].Footers[1].Value := IntToStr(AYsCount + AQdCount) +
    '行(预' + IntToStr(AYsCount) + ',清' + IntToStr(AQdCount) + ')';

  gStat.Columns[5].Footers[1].ValueType := fvtStaticText;
  gStat.Columns[5].Footers[1].Value := CurrToStr(AFJF);
  gStat.Columns[7].Footers[1].ValueType := fvtStaticText;

  cZZDF := StrToCurr(gStat.GetFooterValue(0, gStat.Columns[7]));
  cZLF := AFJF + cZZDF;
  if cZLF > 100 then
    cZLF := 100;
  gStat.Columns[7].Footers[1].Value := CurrToStr(cZLF);

  // 以下用于刷新显示
  vDS := gStat.DataSource;
  gStat.DataSource := nil;
  gStat.DataSource := vDS;
end;

procedure TBillsProjectView.AdjustControlsSize;
begin
  pnlFXQD_Btm.Height := Round(pnlFXQD_Btm.Parent.Height / 3);
  zgQtyItems.Height := Round(zgQtyItems.Parent.Height / 2) - ToolBar1.Height - Splitter2.Height;
  zgProjectBills.Height := Round(zgProjectBills.Parent.Height / 2) - Panel2.Height - Splitter4.Height;
end;

procedure TBillsProjectView.CopyBillsToRecycleBin;
begin
  zgBills.Tag := 2;
  zgBills.CopyToClipboard(zgBills.Selection.Bounds);
end;

function TBillsProjectView.GetRBNodeName(AIndex: Integer): string;
var
  Item: TScBillsItem;
begin
  Result := '';
  Item := TProject(FProject).BillsData.BillsTree.Items[AIndex];
  if Item <> nil then
    Result := Item.SBillCode + Item.SBillBCode + Item.SBillName;
end;


procedure TBillsProjectView.btnOneKeyGatherNodeClick(Sender: TObject);
var
  iID: Integer;
  sGatherName: string;
  strFilePath: string;
  iProjectType, iProjKind, iGatherID: Integer;
  aProject, nProject: TProject;
  bIsExist: Boolean;
begin
  ControlBillsTreeRT(False);
  ControlXMJTreeView(False);
  try
    TProject(FProject).BillsData.SelectGatherNode(TProject(FProject).BillsData.XMJBillsTree.FirstNode, True);
  finally
    ControlXMJTreeView(True);
    ControlBillsTreeRT(True);
  end;

  {$IFDEF _beEncrypt}
  DelayCheckDog;
  CheckDogErrorCountAndHint;
  {$ENDIF}

  if not TProject(FProject).BillsData.HasSelected then
    TProject(FProject).BillsData.SelectGatherNode(TProject(FProject).BillsData.XMJBillsTree.FirstNode, True);

  // 检查是否是建设项目
  TProject(FProject).CheckBeforeGather;

  // 获得名称
  sGatherName := Format('%s[项目清单]', [MainFrm.jtsBillsProjects.Tabs[MainFrm.jtsBillsProjects.TabIndex]]);
  // 获得项目类型
  iProjectType := TProject(FProject).ProjectType;

  // 判断文件是否存在，如存在则然后在询问是否覆盖
  if not MainFrm.ProjectFileManager.ProjectMgrDM.ChackSameProjectForOneKey(TProject(FProject).GetGatherID, sGatherName, bIsExist) then
  begin
    Exit;
  end;

  strFilePath := MainFrm.ProjectFileManager.CreateNewProjectForOneKey(sGatherName, iID, TProject(FProject).GetGatherID);

  Application.ProcessMessages;

  Screen.Cursor := crHourGlass;
  // 界面上加提示
  MainFrm.BeginUserOperation(sGatherWord);

  aProject := MainFrm.ProjectManager.ActiveProject;
  nProject := MainFrm.ProjectManager.CreateNewProject(strFilePath, sGatherName, MainFrm.StdBillsCtrl, iProjectType, iID);
  nProject.ProjectView.Project{.BillsData} := nil;
  IncProgressUI(15);
  try
    if not aProject.GatherProject(nProject) then
    begin
      IncProgressUI(80);
      MessageHint(0, sGatherError);
      DeleteFile(Format('%s%s.smb', [MainFrm.DirPath, sGatherName]));
    end;
  finally
    MainFrm.ProjectManager.RemoveProject(nProject, aProject, False);

    MainFrm.EndUserOperation;
    Screen.Cursor := crDefault;
    IncProgressUI(100);
  end;
end;


function TBillsProjectView.IsCanCopyBills: Boolean;
begin
  if not Assigned(zaBills.IDTree) then
  begin
    Result := False;
    Exit;
  end;
  if not Assigned(zaBills.IDTree.Selected) then
  begin
    Result := False;
    Exit;
  end;
  // 第二部分黑体 不允许复制整块
  if zaBills.IDTree.Selected.ID = 2 then
  begin
    Result := False;
    Exit;
  end;
  Result := True;
end;

function TBillsProjectView.IsCanGridPaste: Boolean;
begin
  if not zgBills.Focused then
  begin
    Result := True;
    Exit;
  end;
  // 第二部分黑体 不允许粘贴整块
  if Assigned(zaBills.IDTree.Selected) and (zaBills.IDTree.Selected.ID = 2) then
  begin
    Result := False;
    Exit;
  end;
  Result := True;
end;

procedure TBillsProjectView.SetShowDesignQuantity(const Value: Boolean);
begin
  zaBills.Column('DesignQuantity').Visible := Value;
  zaBills.Column('DesignQuantity2').Visible := Value;
end;

procedure TBillsProjectView.SetShowDrawingCode(const Value: Boolean);
begin
  zaBills.Column('DrawingCode').Visible := Value;
end;

procedure TBillsProjectView.SetShowEconomicMark(const Value: Boolean);
begin
  zaBills.Column('DesignPrice').Visible := Value;
end;

procedure TBillsProjectView.LoadBillsViewOption;
begin
  ShowDesignQuantity := ScConfigInfo.ShowDesignQuantity;
  ShowEconomicMark := ScConfigInfo.ShowEconomicMark;
  ShowDrawingCode := ScConfigInfo.ShowDrawingCode;
end;

end.