BillsEditor/Reports/Config/ReportAdjusterUnit.pas

unit ReportAdjusterUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Spin, ExtCtrls, Buttons, Printers, WinSpool,
  PrintCom, PrintComXML, PrintComTypeDefUnit, Inifiles, ImgList, IdGlobal,
  ScReportUtils, ConstTypeUnit{ConstTypeUnit这里开始是ScConsts}, ScProjectManager,
  {$IFNDEF _KTDebug}
  ScFileArchiver,
  {$ENDIF}
  Grids, ZJGrid, ZJCells, ZJEdits, JimCombos, Menus;

const DOU_DEFAULTHEIGHT = 0.6;

{$IFDEF _KTDebug}
const FILEEXT = '.xml';
{$ELSE}
const FILEEXT = '.srt';
{$ENDIF}

const
{$IFDEF _ScBudget}
  IsBiaoBiao = False;
{$ELSE}
  IsBiaoBiao = True;
{$ENDIF}

type
  arr_Type = array of array[0..63] of char;

  TReportAdjuster = class(TForm)
    ReportConfigPageControl: TPageControl;
    PrinterPageSheet: TTabSheet;
    PageSizeSheet: TTabSheet;
    ReportSheet: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    DefaultConfigBtn: TBitBtn;
    OKBtn: TBitBtn;
    CloseBtn: TBitBtn;
    PageNameCBox: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    PageHeightEdit: TEdit;
    PageWidthEdit: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    UpEdgeSpinEdit: TSpinEdit;
    DownEdgeSpinEdit: TSpinEdit;
    LeftEdgeSpinEdit: TSpinEdit;
    RightEdgeSpinEdit: TSpinEdit;
    pcxSmartCostRpt: TPrintComXML;
    Image2: TImage;
    RepBorderUnderLineCHK: TCheckBox;
    RepCelVerLineCHK: TCheckBox;
    RepBorderVerLineCHK: TCheckBox;
    RepCelHorLineCHK: TCheckBox;
    AutoRetLineCHK: TCheckBox;
    Label10: TLabel;
    Label11: TLabel;
    BorderLineSpinEdit: TSpinEdit;
    Label12: TLabel;
    ReportsCBox: TComboBox;
    StyleCBox: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    TitleEdit: TEdit;
    OrientationGroup: TRadioGroup;
    PrintPageAmountCHK: TCheckBox;
    SaveFormatBtn: TBitBtn;
    OtherFormatBtn: TBitBtn;
    zgReportProperty: TZJGrid;
    HeadRBtn: TRadioButton;
    MemoBtn: TRadioButton;
    zgReportElements: TZJGrid;
    ZjShowSelectionCBox: TZjComboBox;
    TailRBtn: TRadioButton;
    SetToDefaultBtn: TBitBtn;
    ReportCellLineSpinEdit: TEdit;
    seStartPage: TSpinEdit;
    Label15: TLabel;
    Label16: TLabel;
    seRefPage: TSpinEdit;
    UpCHK: TCheckBox;
    UpTitleEdit: TEdit;
    UpLineCHK: TCheckBox;
    DownCHK: TCheckBox;
    DownStartPage: TSpinEdit;
    Label17: TLabel;
    DownLineCHK: TCheckBox;
    UpGroup: TRadioGroup;
    DownGroup: TRadioGroup;
    GroupBox4: TGroupBox;
    ReportPageImage: TImage;
    BoldSBtn: TSpeedButton;
    ItalicSBtn: TSpeedButton;
    UnderlineSBtn: TSpeedButton;
    Label9: TLabel;
    FontCBox: TComboBox;
    FontSizeCBox: TComboBox;
    RowHeightSpinEdit: TSpinEdit;
    Label18: TLabel;
    Label19: TLabel;
    editLineHeight: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Label20: TLabel;
    Label21: TLabel;
    PrinterCBX: TComboBox;
    NarrowChk: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageNameCBoxSelect(Sender: TObject);
    procedure SetDefaultBtnClick(Sender: TObject);
    procedure DefaultConfigBtnClick(Sender: TObject);
    procedure ReportPageImageMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure UpEdgeSpinEditChange(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FontCBoxChange(Sender: TObject);
    procedure ReportCellLineSpinEditChange(Sender: TObject);
    procedure BorderLineSpinEditChange(Sender: TObject);
    procedure RepHeadFootLineCHKClick(Sender: TObject);
    procedure zgReportElementsGetCellEditor(Sender: TObject;
      ACoord: TPoint; var AControl: TWinControl);
    procedure zgReportElementsEditorLoadCell(Sender: TObject;
      ACoord: TPoint; AControl: TWinControl);
    procedure zgReportElementsEditorSaveCell(Sender: TObject;
      ACoord: TPoint; AControl: TWinControl);
    procedure ReportsCBoxChange(Sender: TObject);
    procedure SaveFormatBtnClick(Sender: TObject);
    procedure SetToDefaultBtnClick(Sender: TObject);
    procedure StyleCBoxChange(Sender: TObject);
    procedure OrientationGroupClick(Sender: TObject);
    procedure PrintPageAmountCHKClick(Sender: TObject);
    procedure HeadRBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure zgReportPropertyCellValueChanged(Sender: TObject);
    procedure TitleEditChange(Sender: TObject);
    procedure seStartPageChange(Sender: TObject);
    procedure seRefPageChange(Sender: TObject);
    procedure UpCHKClick(Sender: TObject);
    procedure DownCHKClick(Sender: TObject);
    procedure editLineHeightChange(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure editLineHeightExit(Sender: TObject);
    procedure PrinterCBXSelect(Sender: TObject);
  private
    { Private declarations }
    arr_PaperSize   : array of TPoint;

    arr_szDeviceName: array[0..64] of char;
    arr_szDriver    : array[0..64] of char;
    arr_szPort      : array[0..64] of char;

    arr_HeadIndex   : array[0..7] of array[0..2] of integer;
    arr_FootIndex   : array[0..7] of array[0..2] of integer;

    L_intPageElementIndex : integer;
    L_IniFile : TIniFile;

    L_ContentObjList : TList;

    //--------------------------------------------------------------------------
    bPaperChanged : boolean;
    bEdgeChanged : boolean;
    bReportPageChanged : boolean;
    bCrossObj : boolean;

    slReports : TStringList;

    ExePath : string;
    bHeadTailChangd : boolean;

    intMaxItem : integer;

    {$IFNDEF _KTDebug}
    RptArchiverObj : TReportArchiver;
    {$ENDIF}

    MemFile : TMemoryStream;
    strModified : string;
    FReportManager: TScReportManager;
    FProject: TProject;

    //bHasModified : boolean;
    {
    strBillRptDir_Before : string; //清单报表目录(调价前)
    strBillRptDir_After  : string; //清单报表目录(调价后)
    strBudgetRptDir      : string; //预算报表目录
    strCommonRptDir      : string; //其他(公共)报表目录
    strTmpRptBkDir       : string; //报表备份零时目录
    //}
    //--------------------------------------------------------------------------
    procedure IniPrinterPage();
    procedure IniReportPage();
    procedure IniReportFormat();
    procedure IniHeadTailElements();

    procedure SetDefaultPrinter;
    procedure SetDefaultPageFormat;
    procedure SetDefaultReportFormat;

    procedure getAllSupportPaperNames_bk();
    procedure getAllSupportPaperNames();
    procedure PaintImage;
    procedure SetElementIndex(IDX : integer);

    function  getCaptionString : String;

    procedure checkCurReport; //检测当前报表文件是否在slReports中,如果没有,则加上
                              //在最后确定或取消的时候来获取修改过的报表文件信息
    function getHeadTailIndex(strCompareName : string) : integer;
    function getHeadTailObj(HeadType : integer; TypeIDX : integer) : PHeadRec;

    procedure LoadReports;
    procedure getReport(strFileName : string);
    procedure SaveRpt(strFileName : string);
    function getCurReportName() : string; //取当前选择的报表全名称
  public
    { Public declarations }
    // 是否调价后
    IsTender: Boolean;
    ProjType: TScProjType;
    //remark: 要注意处理，因在ScConsts.pas文件中有定义
    SetupChanged : boolean;
    SetupReportName : string;
    //strConfigTxt : string;
    SetupReportNo : integer;
    ReportChanged: boolean;
    property PageElementIndex : integer read L_intPageElementIndex write SetElementIndex;
    property Project: TProject read FProject write FProject;
  end;

  {$IFNDEF _KTDebug}
  function chkLoadFile(strFileName : string): boolean;
  {$ENDIF}
  
var
  ReportAdjuster: TReportAdjuster;

implementation

{$R *.dfm}

procedure TReportAdjuster.FormShow(Sender: TObject);
var
  FileName : String;
  i : integer;
begin
  // zy
  ReportConfigPageControl.ActivePage := PageSizeSheet;

  L_IniFile := nil;
  bHeadTailChangd := false;
  FileName := ExePath + STR_CONFIG_TEXT;
  if FileExists(FileName) then
  begin
    L_IniFile := TIniFile.Create(FileName);
    CopyFileTo(ExePath + STR_CONFIG_TEXT,
               ExePath + STR_REVERSE_CONFIG_TEXT)
  end else
  begin
    //Close;
  end;
  IniPrinterPage;
  IniReportPage;
  IniReportFormat;
  IniHeadTailElements;
  if SetupReportNo >= 0 then
  begin
    for i := 0 to ReportsCBox.Items.Count - 1 do
    begin
      if SetupReportNo = Integer(ReportsCBox.Items.Objects[i]) then
      begin
        ReportsCBox.OnChange := nil;
        ReportsCBox.ItemIndex := i;
        ReportsCBox.OnChange := ReportsCBoxChange;
        ReportsCBoxChange(ReportsCBox);
        break;
      end;
    end;
  end;
end;

procedure TReportAdjuster.IniReportPage();
var i : integer;
    FontStr : TStrings;
    strAlign : string;
begin
  //1. 设置字体
  FontCBox.Items.Clear;
  FontStr := Screen.Fonts;
  for i := 0 to FontStr.Count - 1 do
  begin
    FontCBox.Items.Add(FontStr[i]);
  end;

  //----------------------------------------------------------------------------
  UpCHK.OnClick := nil;
  UpTitleEdit.OnChange := nil;
  UpLineCHK.OnClick := nil;
  UpGroup.OnClick := nil;
  DownCHK.OnClick := nil;
  DownStartPage.OnChange := nil;
  DownLineCHK.OnClick := nil;
  DownGroup.OnClick := nil;
  //----------------------------------------------------------------------------
  //ReportCellLineSpinEdit.Value := L_IniFile.ReadInteger('页面','表格线粗',0);
  ReportCellLineSpinEdit.Text := FloatToStr(L_IniFile.ReadFloat('页面','表格线粗',0));
  BorderLineSpinEdit.Value := L_IniFile.ReadInteger('页面','边框线粗',0);
  //RepHeadFootLineCHK.Checked := (L_IniFile.ReadInteger('页面','页眉/页脚线',0) = 1);
  RepBorderUnderLineCHK.Checked := (L_IniFile.ReadInteger('页面','报表边框横线',0) = 1);
  RepCelHorLineCHK.Checked := (L_IniFile.ReadInteger('页面','报表表格横线',0) = 1);
  AutoRetLineCHK.Checked := (L_IniFile.ReadInteger('页面','自动换行打印',0) = 1);
  RepBorderVerLineCHK.Checked := (L_IniFile.ReadInteger('页面','报表边框竖线',0) = 1);
  RepCelVerLineCHK.Checked := (L_IniFile.ReadInteger('页面','报表表格竖线',0) = 1);
  NarrowChk.Checked := (L_IniFile.ReadInteger('页面','内容窄体输出',0) = 1);

  UpLineCHK.Checked := (L_IniFile.ReadInteger('页面','页眉横线',0) = 1);
  strAlign := L_IniFile.ReadString('页面','页眉_对齐','中');
  if (strAlign = '左') then
     UpGroup.ItemIndex := 0
  else if (strAlign = '右') then
     UpGroup.ItemIndex := 2
  else
     UpGroup.ItemIndex := 1;
  UpTitleEdit.Text := L_IniFile.ReadString('页面','页眉_显示内容','');
  UpCHK.Checked := (L_IniFile.ReadInteger('页面','页眉显示',0) = 1);

  DownLineCHK.Checked := (L_IniFile.ReadInteger('页面','页脚横线',0) = 1);
  strAlign := L_IniFile.ReadString('页面','页脚_对齐','中');
  if (strAlign = '左') then
     DownGroup.ItemIndex := 0
  else if (strAlign = '右') then
     DownGroup.ItemIndex := 2
  else
     DownGroup.ItemIndex := 1;
  DownStartPage.Value := L_IniFile.ReadInteger('页面','页脚_起始页码',0);
  DownCHK.Checked := (L_IniFile.ReadInteger('页面','页脚显示',0) = 1);

  if (UpCHK.Checked) then
  begin
    UpTitleEdit.Enabled := true;
    UpLineCHK.Enabled := true;
    UpGroup.Enabled := true;
  end;
  if (DownCHK.Checked) then
  begin
    DownStartPage.Enabled := true;
    DownLineCHK.Enabled := true;
    DownGroup.Enabled := true;
  end;
  //----------------------------------------------------------------------------
  UpCHK.OnClick := UpCHKClick;
  UpTitleEdit.OnChange := UpCHKClick;
  UpLineCHK.OnClick := UpCHKClick;
  UpGroup.OnClick := UpCHKClick;
  DownCHK.OnClick := DownCHKClick;
  DownStartPage.OnChange := DownCHKClick;
  DownLineCHK.OnClick := DownCHKClick;
  DownGroup.OnClick := DownCHKClick;
  //----------------------------------------------------------------------------

  //2. 画框
  L_intPageElementIndex := -1;
  SetElementIndex(-1);
  SetElementIndex(0);
  //
end;

procedure TReportAdjuster.IniHeadTailElements();
begin
  ZjShowSelectionCBox.Clear;
  ZjShowSelectionCBox.Style := csDropDownList;
  intMaxItem := 0;
  //ZjShowSelectionCBox.AddItem('默认项',nil);
  ZjShowSelectionCBox.AddItem(' ',nil);
  //项目级
  ZjShowSelectionCBox.AddItem('建设项目名称',nil);
  ZjShowSelectionCBox.AddItem('单位工程名称',nil); //合同段
  ZjShowSelectionCBox.AddItem('工 程  地 点',nil);
  ZjShowSelectionCBox.AddItem('建 设  单 位',nil);
  ZjShowSelectionCBox.AddItem('投   标   人',nil);
  ZjShowSelectionCBox.AddItem('编制',nil);
  ZjShowSelectionCBox.AddItem('编制人 证 号',nil);
  ZjShowSelectionCBox.AddItem('复核',nil);
  ZjShowSelectionCBox.AddItem('复核人 证 号',nil);
  ZjShowSelectionCBox.AddItem('编 制  范 围',nil);
  ZjShowSelectionCBox.AddItem('编 制  时 间',nil);
  //清单级
  ZjShowSelectionCBox.AddItem('分项工程名称',nil);
  ZjShowSelectionCBox.AddItem('分项工程编号',nil);
  ZjShowSelectionCBox.AddItem('计 量  单 位',nil);
  ZjShowSelectionCBox.AddItem('数量',nil);
  ZjShowSelectionCBox.AddItem('单价',nil);
  //ZjShowSelectionCBox.AddItem('项目名称',nil);
  //ZjShowSelectionCBox.AddItem('项目编号',nil);
  //表级别（如08表）
  ZjShowSelectionCBox.AddItem('表   编   号',nil);
  ZjShowSelectionCBox.AddItem('打印时间',nil);
  ZjShowSelectionCBox.AddItem('工 料 机名称',nil);
  intMaxItem := ZjShowSelectionCBox.Items.Count;
  //ZjShowSelectionCBox.AddItem('单位工程',nil);
  //ZjShowSelectionCBox.AddItem('建设项目',nil);
  //ZjShowSelectionCBox.AddItem('起始页码',nil);
  ZjShowSelectionCBox.AddItem('总页码数',nil);
  ZjShowSelectionCBox.AddItem('当前页码',nil);
end;

procedure TReportAdjuster.IniReportFormat();
begin
  //
  zgReportProperty.ColCount := 1;
  zgReportProperty.RowCount := 5;

  zgReportProperty.Cells[0,0].Text := '内容';
  zgReportProperty.Cells[0,1].Text := '标题';
  zgReportProperty.Cells[0,2].Text := '宽度';
  zgReportProperty.Cells[0,3].Text := '对齐';
  zgReportProperty.Cells[0,4].Text := '精度';

  //zgReportProperty.ColWidths[1] := 30;
  //getfiles
  //zgReportProperty.RowHeights[1] := 20;
  LoadReports;

  TitleEdit.Enabled := true;
  PrintPageAmountCHK.Enabled := true;
  
  zgReportElements.ColWidths[0] := 136;
  zgReportElements.ColWidths[1] := 136;
  zgReportElements.ColWidths[2] := 136;
  zgReportElements.ColWidths[3] := 136;
  zgReportElements.ColWidths[4] := 136;
  zgReportElements.ColWidths[5] := 136;
  zgReportElements.ColWidths[6] := 136;
  zgReportElements.ColWidths[7] := 136;
  {
  zgReportElements.Cells[0,0].Text := '左';
  zgReportElements.Cells[1,0].Text := '偏左';
  zgReportElements.Cells[2,0].Text := '中';
  zgReportElements.Cells[3,0].Text := '偏右';
  zgReportElements.Cells[4,0].Text := '右';
  //}
  //设置事件
  //zgReportProperty.OnCellValueChanged := zgReportPropertyCellValueChanged;
  ZjShowSelectionCBox.Top := -20;
end;

procedure TReportAdjuster.IniPrinterPage();
var i : integer;
begin
  try
    PrinterCBX.Clear();
    for i := 0 to Printer.Printers.Count - 1 do
    begin
      PrinterCBX.Items.Add(Printer.Printers[i]);
    end;
    PrinterCBX.ItemIndex := Printer.PrinterIndex;
    getAllSupportPaperNames;
  except
    //
  end;
end;

procedure TReportAdjuster.getAllSupportPaperNames();
begin
  SetLength(arr_PaperSize,2);
  arr_PaperSize[0] := Point(210, 297);
  arr_PaperSize[1] := Point(297, 420);
  PageNameCBox.Clear();
  PageNameCBox.Items.Add('A4');
  PageNameCBox.Items.Add('A3');
  //PageNameCBox.ItemIndex := 0;
  if L_IniFile <> nil then
  begin
    LeftEdgeSpinEdit.OnChange := nil;
    RightEdgeSpinEdit.OnChange := nil;
    UpEdgeSpinEdit.OnChange := nil;
    DownEdgeSpinEdit.OnChange := nil;
    try
      LeftEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','左边距',0);
      RightEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','右边距',0);
      UpEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','上边距',0);
      DownEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','下边距',0);
    finally
      LeftEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      RightEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      UpEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      DownEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
    end;
  end;
end;

procedure TReportAdjuster.getAllSupportPaperNames_bk();
var Rslt,i:integer;
    PaperNames: Pointer;
    PaperSizes: Pointer;
    pDevModeInput : PDeviceMode;
    DevHandle : THandle;
    intP : integer;

    szDeviceName: String;
    szDriver : String;
    szPort: String;

    //PszDeviceName: PChar;
    //PszDriver : PChar;
    //PszPort: PChar;

    strTemp : string;
    pTempPaperNames : Pointer;
    pTempPaperSizes : Pointer;
begin
  szDeviceName := Printer.Printers[Printer.PrinterIndex];
  intP := Pos(' on ', szDeviceName);
  if (intP > 0) then
  begin
    //备注: 在WIN98下打印机名称是XXX on YYY, 很讨嫌,要去掉' on '后面的字符,否则DeviceCapabilities
    //      函数会返回-1
    szDeviceName := Trim(Copy(szDeviceName,1,intP-1));
  end;
  szPort := '';

  Rslt := DeviceCapabilities(PChar(szDeviceName),PChar(szPort),DC_PAPERNAMES,nil,nil);
  if (Rslt >= 1) and (Rslt <= 256) then
  begin
    GetMem(PaperNames, Rslt*64);
    GetMem(PaperSizes, Rslt*SizeOf(TPoint));
    //PszDeviceName: PChar;

    SetLength(arr_PaperSize,Rslt);

    pTempPaperSizes := PaperSizes;
    pTempPaperNames := PaperNames;
    try
      DeviceCapabilities(PChar(szDeviceName), PChar(szPort), DC_PAPERNAMES, PaperNames, nil);
      DeviceCapabilities(PChar(szDeviceName), PChar(szPort), DC_PAPERSIZE, PaperSizes, nil);
      PageNameCBox.Clear();
      for i := 0 to Rslt - 1 do
      begin
        strTemp := PChar(PaperNames);
        PageNameCBox.Items.Add( strTemp );
        Inc(PChar(PaperNames), 64);
        arr_PaperSize[i] := TPoint(PaperSizes^);
        Inc(PChar(PaperSizes), SizeOf(TPoint));
      end;

      Printer.GetPrinter(arr_szDeviceName,arr_szDriver,arr_szPort,DevHandle);
      //备注: 有时候真搞不懂这些参数(PChar, char数组)的区分,我我用PChar类型做参数
      //      就总有问题,换了char数组就OK; 但在调用系统API函数时,却是PChar好使
      try
        pDevModeInput := PDeviceMode(GlobalLock(DevHandle));
        //pDevModeInput.dmPaperSize := 9;
        //pDevModeInput.dmPaperLength := 2100;
        //pDevModeInput.dmPaperWidth := 2970;
        PageNameCBox.Text := pDevModeInput.dmFormName;
        for i := 0 to PageNameCBox.Items.Count - 1 do
        begin
          if PageNameCBox.Items[i] = pDevModeInput.dmFormName then
          begin
            PageNameCBox.ItemIndex := i;
            PageNameCBoxSelect(nil); //控件不自动刷新,要手工刷新一把
            break;
          end;
        end;
      finally
        GlobalUnLock(DevHandle);
        //GlobalFree(DevHandle);
      end;
      //}
    finally
      FreeMem(pTempPaperNames, Rslt*64);
      FreeMem(pTempPaperSizes, Rslt*SizeOf(TPoint));
    end;
  end;
  if L_IniFile <> nil then
  begin
    LeftEdgeSpinEdit.OnChange := nil;
    RightEdgeSpinEdit.OnChange := nil;
    UpEdgeSpinEdit.OnChange := nil;
    DownEdgeSpinEdit.OnChange := nil;
    try
      LeftEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','左边距',0);
      RightEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','右边距',0);
      UpEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','上边距',0);
      DownEdgeSpinEdit.Value := L_IniFile.ReadInteger('纸张','下边距',0);
    finally
      LeftEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      RightEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      UpEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
      DownEdgeSpinEdit.OnChange := UpEdgeSpinEditChange;
    end;
  end;
end;

procedure TReportAdjuster.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FReportManager.Free;

  slReports.Free;
  {$IFNDEF _KTDebug}
  RptArchiverObj.free;
  {$ENDIF}
  if (MemFile <> nil) then
      MemFile.Free;
  SetLength(arr_PaperSize,0);
  L_ContentObjList.Free;
end;

procedure TReportAdjuster.PageNameCBoxSelect(Sender: TObject);
var pDevModeInput : PDeviceMode;
    DevHandle : THandle;
    DevSetHandle : THandle;
    StubDevMode: TDeviceMode;
begin
  (*
  //1. 设置显示
  PageHeightEdit.Text := FloatToSTr(arr_PaperSize[PageNameCBox.ItemIndex].X / 10);
  PageWidthEdit.Text := FloatToSTr(arr_PaperSize[PageNameCBox.ItemIndex].Y / 10);
  //2. 设置打印机
  if Sender = nil then exit;
  //{
  Printer.GetPrinter(arr_szDeviceName,arr_szDriver,arr_szPort,DevHandle);
  try
    L_IniFile.WriteString('纸张','幅面',PageNameCBox.Text);
    pDevModeInput := PDeviceMode(GlobalLock(DevHandle));
    StrCopy(pDevModeInput.dmFormName,PChar(PageNameCBox.Items[PageNameCBox.ItemIndex]));
    pDevModeInput.dmPaperLength := arr_PaperSize[PageNameCBox.ItemIndex].Y;
    pDevModeInput.dmPaperWidth := arr_PaperSize[PageNameCBox.ItemIndex].X;
    //pDevModeInput.dmPaperSize := DMPAPER_USER;
    //要改变项
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_FORMNAME;
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERLENGTH;
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERWIDTH;
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERSIZE;

    DocumentProperties(0, Printer.Handle, arr_szDeviceName, pDevModeInput^,
                          pDevModeInput^, DM_OUT_BUFFER);
  finally
    GlobalUnLock(DevHandle);
    //GlobalFree(DevHandle);
  end;
  //}
  //*)
  PageHeightEdit.Text := FloatToSTr(arr_PaperSize[PageNameCBox.ItemIndex].X / 10);
  PageWidthEdit.Text := FloatToSTr(arr_PaperSize[PageNameCBox.ItemIndex].Y / 10);
  //2. 设置打印机
  if Sender = nil then exit;
  //{
  Printer.GetPrinter(arr_szDeviceName,arr_szDriver,arr_szPort,DevHandle);
  try
    L_IniFile.WriteString('纸张','幅面',PageNameCBox.Text);
    pDevModeInput := PDeviceMode(GlobalLock(DevHandle));
    StrCopy(pDevModeInput.dmFormName,PChar(PageNameCBox.Items[PageNameCBox.ItemIndex]));
    //pDevModeInput.dmPaperLength := arr_PaperSize[PageNameCBox.ItemIndex].Y;
    //pDevModeInput.dmPaperWidth := arr_PaperSize[PageNameCBox.ItemIndex].X;
    if (PageNameCBox.ItemIndex = 0) then
    begin
      pDevModeInput.dmPaperSize := DMPAPER_A4;
    end else if (PageNameCBox.ItemIndex = 1) then
    begin
      pDevModeInput.dmPaperSize := DMPAPER_A3;
    end;

    //要改变项
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_FORMNAME;
    //pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERLENGTH;
    //pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERWIDTH;
    pDevModeInput.dmFields := pDevModeInput.dmFields or DM_PAPERSIZE;

    DocumentProperties(0, Printer.Handle, arr_szDeviceName, pDevModeInput^,
                          pDevModeInput^, DM_OUT_BUFFER);
  finally
    GlobalUnLock(DevHandle);
    //GlobalFree(DevHandle);
  end;
end;

procedure TReportAdjuster.SetDefaultBtnClick(Sender: TObject);
begin
  case ReportConfigPageControl.TabIndex of
    0 : SetDefaultPrinter;
    1 : SetDefaultPageFormat;
    2 : SetDefaultReportFormat;
  end;
end;

procedure TReportAdjuster.SetDefaultPrinter;
begin
  //
end;

procedure TReportAdjuster.SetDefaultPageFormat;
begin
  //
end;

procedure TReportAdjuster.SetDefaultReportFormat;
begin
  //
end;

procedure TReportAdjuster.PaintImage;
var FontRec : TFontRec;
    DrawRect : TRect;
begin
  //1. 画底色
  if L_intPageElementIndex = -1 then
  begin
    ReportPageImage.Canvas.Brush.Color := clInactiveCaption;
    ReportPageImage.Canvas.Rectangle(0,0,ReportPageImage.Width,ReportPageImage.Height);
    ReportPageImage.Canvas.Brush.Color := clBtnface;
  end;
  //2. 画字
  IniFontRec(FontRec);
  FontRec.FontColor := clWhite;
  FontRec.FontName := ReportAdjuster.Font.Name;
  FontRec.FontHeight := Round(ReportAdjuster.Font.Size * ReportAdjuster.Font.PixelsPerInch / 72);
  //2.a
  DrawRect := Rect(0,0,78,25);
  if L_intPageElementIndex = 0 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('表标题',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
  //2.b
  DrawRect := Rect(79,0,157,25);
  if L_intPageElementIndex = 1 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('列标题',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
  //2.c
  DrawRect := Rect(158,0,236,25);
  if L_intPageElementIndex = 2 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('表正文',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
  //2.d
  DrawRect := Rect(237,0,315,25);
  if L_intPageElementIndex = 3 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('表合计',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
  //2.e
  DrawRect := Rect(316,0,394,25);
  if L_intPageElementIndex = 4 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('表眉/表脚',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
  //2.f
  DrawRect := Rect(395,0,473,25);
  if L_intPageElementIndex = 5 then
  begin
    FontRec.FontBold := 600;
  end else
  begin
    FontRec.FontBold := 400;
  end;
  InDrawText('页眉/页脚',DrawRect,FontRec,4,False,ReportPageImage.Canvas,False,1,Rect(0,0,0,0));
end;

procedure TReportAdjuster.ReportPageImageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PageElementIndex := X div 79;
end;

procedure TReportAdjuster.SetElementIndex(IDX : integer);
var strFontName : String;
    intFontSize : integer;
begin
  if ((L_intPageElementIndex >= 0) and (L_intPageElementIndex <= 5)) then
  begin
    ReportPageImage.Canvas.Brush.Color := clInactiveCaption;
    ReportPageImage.Canvas.Pen.Color := clInactiveCaption;
    ReportPageImage.Canvas.Rectangle(L_intPageElementIndex * 79 ,0 ,
                                     (L_intPageElementIndex + 1) * 79, ReportPageImage.Height);
    ReportPageImage.Canvas.Pen.Color := clBlack;
  end;
  if ((IDX >= 0) and (IDX <= 5)) and (IDX <> L_intPageElementIndex) then
  begin
    L_intPageElementIndex := IDX;
    ReportPageImage.Canvas.Brush.Color := clGradientActiveCaption;
    ReportPageImage.Canvas.Pen.Color := clInactiveCaption;
    ReportPageImage.Canvas.Rectangle(L_intPageElementIndex * 79 ,0 ,
                                     (L_intPageElementIndex + 1) * 79, ReportPageImage.Height);
    ReportPageImage.Canvas.Pen.Color := clBlack;
    //获取相关信息
    case L_intPageElementIndex of
      0 :
      begin //表标题
        FontCBox.Text := L_IniFile.ReadString('页面','表标题_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','表标题_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','表标题_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','表标题_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','表标题_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','表标题_行高',1)
      end;
      1 :
      begin //列标题
        FontCBox.Text := L_IniFile.ReadString('页面','列标题_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','列标题_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','列标题_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','列标题_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','列标题_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','列标题_行高',1)
      end;
      2 :
      begin //表正文
        FontCBox.Text := L_IniFile.ReadString('页面','表正文_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','表正文_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','表正文_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','表正文_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','表正文_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','表正文_行高',1)
      end;
      3 :
      begin //表合计
        FontCBox.Text := L_IniFile.ReadString('页面','表合计_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','表合计_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','表合计_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','表合计_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','表合计_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','表合计_行高',1)
      end;
      4 :
      begin //表眉/表脚
        FontCBox.Text := L_IniFile.ReadString('页面','表眉/表脚_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','表眉/表脚_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','表眉/表脚_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','表眉/表脚_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','表眉/表脚_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','表眉/表脚_行高',1)
      end;
      5 :
      begin //页眉/页脚
        FontCBox.Text := L_IniFile.ReadString('页面','页眉/页脚_字体','宋体');
        FontSizeCBox.Text := L_IniFile.ReadString('页面','页眉/页脚_字体大小','9');
        BoldSBtn.Down := (L_IniFile.ReadInteger('页面','页眉/页脚_字体粗',0) = 1 );
        ItalicSBtn.Down := (L_IniFile.ReadInteger('页面','页眉/页脚_字体斜',0) = 1 );
        UnderlineSBtn.Down := (L_IniFile.ReadInteger('页面','页眉/页脚_字体下滑线',0) = 1 );
        RowHeightSpinEdit.Value := L_IniFile.ReadInteger('页面','页眉/页脚_行高',1)
      end;
    end;
  end;
  PaintImage;
end;

procedure TReportAdjuster.UpEdgeSpinEditChange(Sender: TObject);
begin
  if L_IniFile <> nil then
  begin
    L_IniFile.WriteInteger('纸张','左边距',LeftEdgeSpinEdit.Value);
    L_IniFile.WriteInteger('纸张','右边距',RightEdgeSpinEdit.Value);
    L_IniFile.WriteInteger('纸张','上边距',UpEdgeSpinEdit.Value);
    L_IniFile.WriteInteger('纸张','下边距',DownEdgeSpinEdit.Value);
    ReportChanged := true;
  end;
end;

procedure TReportAdjuster.OKBtnClick(Sender: TObject);
var i : integer;
begin
  //1. 把本次改动的配置放在保留配置文件中
  DeleteFile(ExePath + STR_REVERSE_CONFIG_TEXT);
  CopyFileTo(ExePath + STR_CONFIG_TEXT,
             ExePath + STR_REVERSE_CONFIG_TEXT);
  //2. 报表保存
  for i := 0 to slReports.Count - 1 do
  begin
    DeleteFile(ExePath + 'BillsEditorReports\Reserved\'+
           slReports[i] + FILEEXT);
    CopyFileTo(ExePath + 'BillsEditorReports\'+
           slReports[i] + FILEEXT,
           ExePath + 'BillsEditorReports\Reserved\'+
           slReports[i] + FILEEXT);
  end;
  //3.
  ReportChanged := True;
  SetupChanged := true;
  if bHeadTailChangd then
  begin
    //
  end;
  Close;
end;

procedure TReportAdjuster.CloseBtnClick(Sender: TObject);
var i : integer;
begin
  //1. 还原以前的配置(系统打印机除外)
  DeleteFile(ExePath + STR_CONFIG_TEXT);
  CopyFileTo(ExePath + STR_REVERSE_CONFIG_TEXT,
             ExePath + STR_CONFIG_TEXT);
  //2. 报表还原
  for i := 0 to slReports.Count - 1 do
  begin
    DeleteFile(ExePath + 'BillsEditorReports\'+
               slReports[i] + FILEEXT);
    CopyFileTo(ExePath + 'BillsEditorReports\Reserved\'+
               slReports[i] + FILEEXT,
               ExePath + 'BillsEditorReports\'+
               slReports[i] + FILEEXT);
  end;
  //3.
  SetupChanged := false;
  ReportChanged := false;
  Close;
end;

procedure TReportAdjuster.SetToDefaultBtnClick(Sender: TObject);
begin
  //设置为默认值
end;

procedure TReportAdjuster.DefaultConfigBtnClick(Sender: TObject);
var
  ReportName : string;
begin
  case ReportConfigPageControl.ActivePageIndex of
    0,1 :
    begin
      //还原默认设置
      DeleteFile(ExePath + STR_CONFIG_TEXT);
      CopyFileTo(ExePath + '报表打印机初始默认设置.INI',
                 ExePath + STR_CONFIG_TEXT);
      IniPrinterPage;
      IniReportPage;
      //FormShow(self);
    end;
    2 :
    begin
      //(*
      if ReportsCBox.ItemIndex >= 0 then
      begin
        FReportManager.RecordNo := Integer(ReportsCBox.Items.Objects[ReportsCBox.ItemIndex]);
        ReportName := ExtractFileName(FReportManager.FieldValue['FileName']);

        DeleteFile(ExePath + 'BillsEditorReports\'+ ReportName);
        CopyFileTo(ExePath + 'BillsEditorReports\Reserved\'+ ReportName,
                   ExePath + 'BillsEditorReports\'+ ReportName);

        ReportsCBoxChange(nil);
      end;
      //*)
    end;
  end;
end;

procedure TReportAdjuster.FontCBoxChange(Sender: TObject);
var strCap : String;
    intBold, intItalic, intUnderline : integer;
begin
  if L_IniFile <> nil then
  begin
    strCap := getCaptionString;
    intBold := 0;
    intItalic := 0;
    intUnderline := 0;

    if BoldSBtn.Down then intBold := 1;
    if ItalicSBtn.Down then intItalic := 1;
    if UnderlineSBtn.Down then intUnderline := 1;

    L_IniFile.WriteString('页面', strCap + '_字体',FontCBox.Text);
    L_IniFile.WriteString('页面', strCap + '_字体大小',FontSizeCBox.Text);
    L_IniFile.WriteInteger('页面',strCap + '_字体粗',intBold);
    L_IniFile.WriteInteger('页面',strCap + '_字体斜',intItalic);
    L_IniFile.WriteInteger('页面',strCap + '_字体下滑线',intUnderline);
    L_IniFile.WriteInteger('页面',strCap + '_行高',RowHeightSpinEdit.Value);
  end;
end;

function  TReportAdjuster.getCaptionString : String;
begin
  Result := '';
  case L_intPageElementIndex of
    0 : Result := '表标题';
    1 : Result := '列标题';
    2 : Result := '表正文';
    3 : Result := '表合计';
    4 : Result := '表眉/表脚';
    5 : Result := '页眉/页脚';
  end;
end;

procedure TReportAdjuster.checkCurReport;
var
  i : integer;
  bHas : boolean;
  ReportName : string;
begin
  bHas := false;
  ReportName := getCurReportName();
  //(*
  for i := 0 to slReports.Count - 1 do
  begin
    if ReportName = slReports[i] then
    begin
      bHas := true;
      break;
    end;
  end;
  if not(bHas) then
  begin
    slReports.Add(ReportName);
    if ReportName = SetupReportName then
    begin
      ReportChanged := true;
    end;
  end;
  //*)
end;

function TReportAdjuster.getHeadTailIndex(strCompareName : string) : integer;
var i : integer;
begin
  Result := 0; //0是空白
  for i := 1 to ZjShowSelectionCBox.Items.Count - 1 do
  begin
    if strCompareName = ZjShowSelectionCBox.Items[i] then
    begin
      Result := i;
      break;
    end;
  end;
end;

function TReportAdjuster.getHeadTailObj(HeadType : integer; TypeIDX : integer): PHeadRec;
begin
  //根据表头尾对象及ID设置属性
  Result := pcxSmartCostRpt.newHeadTailObj(HeadType);
  if (Result <> nil) and (TypeIDX > 0) then
  begin
    Result.Name := ZjShowSelectionCBox.Items[TypeIDX];
    Result.Align := 3;
    if TypeIDX <> 17 then
       Result.Prefix := ZjShowSelectionCBox.Items[TypeIDX] + ': '
    else Result.Prefix := '';
    //
    Result.Field := pcxSmartCostRpt.getFieldByID(1000 + TypeIDX);
    if Result.Field = nil then
       Result.Param := pcxSmartCostRpt.getParamByID(1000 + TypeIDX);
    //备注: 1. 建设项目名称(对应FieldID=1001)  2. 单位工程名称(对应FieldID=1002)
    //      3. 工程地点(对应FieldID=1003)      4. 建设单位(对应FieldID=1004)
    //      5. 投标人(对应FieldID=1005)        6. 编制(对应FieldID=1006)
    //      7. 编制人证号(对应FieldID=1007)    8. 复核(对应FieldID=1008)
    //      9. 复核人证号(对应FieldID=1009)    10.编制范围(对应FieldID=1010)
    //      11.编制时间(年月日)(对应FieldID=1011)
    //      以上是项目级
    //      12.分项工程名称(对应FieldID=1012)  13.分项工程编号(对应FieldID=1013)
    //      14.计量单位(对应FieldID=1014)      15. 数量(对应FieldID=1015)
    //      16.单价(对应FieldID=1016)
    //      以上是清单级
    //      17.表编号(对应FieldID=1017)
    //      18.打印时间(对应FieldID=1018)
    //      这里假设所有的相关参数都已经存在(预先写好了的!),名称与ID确定,
    //      如果没有的话,说明类型不一样,不能选择
  end;
end;

procedure TReportAdjuster.ReportCellLineSpinEditChange(Sender: TObject);
begin
  if (L_IniFile <> nil) then
  begin
    if TestReal(ReportCellLineSpinEdit.Text) then
    begin
      //L_IniFile.WriteInteger('页面', '表格线粗',ReportCellLineSpinEdit.Value);
      L_IniFile.WriteFloat('页面', '表格线粗',StrToFloat(ReportCellLineSpinEdit.Text));
    end else
    begin
      ReportCellLineSpinEdit.Text := '0.75';
    end;
  end;
end;

procedure TReportAdjuster.BorderLineSpinEditChange(Sender: TObject);
begin
  if (L_IniFile <> nil) then
  begin
    if TestReal(ReportCellLineSpinEdit.Text) then
    begin
      L_IniFile.WriteFloat('页面', '表格线粗', StrToFloat(ReportCellLineSpinEdit.Text));
      L_IniFile.WriteInteger('页面', '边框线粗',BorderLineSpinEdit.Value);
    end;
  end;
end;

procedure TReportAdjuster.RepHeadFootLineCHKClick(Sender: TObject);
begin
  if L_IniFile <> nil then
  begin
    if TCheckBox(Sender).Checked then
       L_IniFile.WriteInteger('页面', TCheckBox(Sender).Caption,1)
    else
       L_IniFile.WriteInteger('页面', TCheckBox(Sender).Caption,0)
  end;
end;

procedure TReportAdjuster.zgReportElementsGetCellEditor(Sender: TObject;
  ACoord: TPoint; var AControl: TWinControl);
begin
  if TZjGrid(Sender).Items[ACoord].ClassType = TZjComboCell then
  begin
    AControl := ZjShowSelectionCBox;
  end;
end;

procedure TReportAdjuster.zgReportElementsEditorLoadCell(Sender: TObject;
  ACoord: TPoint; AControl: TWinControl);
begin
  ZjShowSelectionCBox.ItemIndex := getHeadTailIndex(zgReportElements.Cells[ACoord.X,ACoord.Y].Text);;
  if ZjShowSelectionCBox.ItemIndex <= 0 then
  begin
    ZjShowSelectionCBox.Items[0] := zgReportElements.Cells[ACoord.X,ACoord.Y].Text;
    ZjShowSelectionCBox.ItemIndex := 0;
  end;
end;

procedure TReportAdjuster.zgReportElementsEditorSaveCell(Sender: TObject;
  ACoord: TPoint; AControl: TWinControl);
var ObjList : TList;
    ObjType : integer;
    i,j : integer;
    idx : integer;
    intMaxHeadTailID : integer;
    HeadTailObj : PHeadRec;
    PageObj : PPageRec;
    douRowHeight : double;
    intRowSteps  : integer;
begin
  //在修改之前先获取旧ITEM信息
  if HeadRBtn.Checked then
  begin
    idx := arr_HeadIndex[ACoord.X][ACoord.Y - 1];
    arr_HeadIndex[ACoord.X][ACoord.Y - 1] := ZjShowSelectionCBox.ItemIndex;
    ObjType := 0;
  end else
  begin
    idx := arr_FootIndex[ACoord.X][ACoord.Y - 1];
    arr_FootIndex[ACoord.X][ACoord.Y - 1] := ZjShowSelectionCBox.ItemIndex;
    ObjType := 1;
  end;
  if idx <> ZjShowSelectionCBox.ItemIndex then
  begin
    //bHeadTailChangd := true;
    //checkCurReport;
    //{
    intMaxHeadTailID := 0;
    //1. 清除旧的表头尾对象
    if (idx < intMaxItem) then
    begin
      ObjList := TList.Create;
      try
        if HeadRBtn.Checked then
           pcxSmartCostRpt.getAllHeadObjs(ObjList)
        else
           pcxSmartCostRpt.getAllTailObjs(ObjList);
        for i := 0 to ObjList.Count - 1 do
        begin
          if (intMaxHeadTailID < PHeadRec(ObjList[i]).ID) then
              intMaxHeadTailID := PHeadRec(ObjList[i]).ID + 1;
          if PHeadRec(ObjList[i]).Name = ZjShowSelectionCBox.Items[idx] then
          begin
            pcxSmartCostRpt.delHeadTailObj(ObjType, ObjList[i]);
            //break;
            //备注: 这里以名称为制约因素,并且是清空所有的同名对象
          end;
        end;
      finally
        ObjList.Free;
      end;
    end else
    begin
      ObjList := TList.Create;
      try
        pcxSmartCostRpt.getAllPageObjs(ObjList);
        for i := 0 to ObjList.Count - 1 do
        begin
          if PPageRec(ObjList[i]).Name = ZjShowSelectionCBox.Items[idx] then
          begin
            //pcxSmartCostRpt.delPageObj(ObjList[i]);
            PPageRec(ObjList[i]).Visible := false;
            pcxSmartCostRpt.setPageObj(PPageRec(ObjList[i]));
            break;
          end;
        end;
      finally
        ObjList.Free;
      end;
    end;
    //2. 创建新的表头尾对象
    if ZjShowSelectionCBox.ItemIndex > 0 then
    begin
      if (ZjShowSelectionCBox.ItemIndex < intMaxItem) then
      begin
        //增加表头尾对象
        HeadTailObj := getHeadTailObj(ObjType,ZjShowSelectionCBox.ItemIndex);
        //设置相关属性
        if HeadTailObj <> nil then
        begin
          HeadtailObj.ExArea.ExLeft := ACoord.X * (100/zgReportElements.ColCount);
          //HeadtailObj.ExArea.ExRight:= HeadTailObj.ExArea.ExLeft + 100/zgReportElements.ColCount;
          HeadtailObj.ExArea.ExRight:= HeadTailObj.ExArea.ExLeft + 200/zgReportElements.ColCount;
          if HeadtailObj.ExArea.ExRight > 100 then
             HeadtailObj.ExArea.ExRight := 100;
          HeadtailObj.ExArea.ExTop := ACoord.Y;
          HeadtailObj.ExArea.ExBottom := 1;
        end;
        if (HeadTailObj.Field <> nil) or (HeadTailObj.Param <> nil) then
           pcxSmartCostRpt.setHeadTailObj(ObjType, HeadTailObj)
        else //提示并释放对象
        begin
          Application.MessageBox('您选取了不符合本表类型的选项,请重新再选一个。','注意',0);
          ZjShowSelectionCBox.ItemIndex := 0;
          zgReportElements.Cells[ACoord.X,ACoord.Y].Text := '';
          //Dispose(HeadTailObj);
          pcxSmartCostRpt.delHeadTailObj(ObjType,HeadTailObj);
        end;
      end else
      begin
        PageObj := nil;
        ObjList := TList.Create;
        try
          pcxSmartCostRpt.getAllPageObjs(ObjList);
          for i := 0 to ObjList.Count - 1 do
          begin
            if PPageRec(ObjList[i]).Name = ZjShowSelectionCBox.Items[ZjShowSelectionCBox.ItemIndex] then
            begin
              PageObj := ObjList[i];
              PPageRec(ObjList[i]).Visible := true;
              PageObj.PageType := ZjShowSelectionCBox.ItemIndex - intMaxItem;
              break;
            end;
          end;
        finally
          ObjList.Free;
        end;
        if (PageObj = nil) then
            PageObj := pcxSmartCostRpt.newPageObj(ZjShowSelectionCBox.ItemIndex - intMaxItem);
        //设置相关属性
        PageObj.Name := ZjShowSelectionCBox.Items[ZjShowSelectionCBox.ItemIndex];
        case ObjType of
          0 : PageObj.AreaName := '表头';
          1 : PageObj.AreaName := '表尾';
        end;
        PageObj.Align := 3;
        PageObj.AreaType := false;
        PageObj.ExArea.ExLeft := ACoord.X * (100/zgReportElements.ColCount);
        PageObj.ExArea.ExRight:= PageObj.ExArea.ExLeft + 100/zgReportElements.ColCount;
        if PageObj.ExArea.ExRight > 100 then
           PageObj.ExArea.ExRight := 100;
        PageObj.ExArea.ExTop := ACoord.Y;
        PageObj.ExArea.ExBottom := 1;
        //
        PageObj.FontRec.FontName := L_IniFile.ReadString('页面','表眉/表脚_字体','宋体');
        PageObj.FontRec.FontHeight := Round(L_IniFile.ReadInteger('页面','表眉/表脚_字体大小',12)*4/3);
        PageObj.FontRec.FontBold := 400 + L_IniFile.ReadInteger('页面','表眉/表脚_字体粗',0)*200;
        PageObj.FontRec.FontItalic := L_IniFile.ReadInteger('页面','表眉/表脚_字体斜',0);
        PageObj.FontRec.FontUnderLine := L_IniFile.ReadInteger('页面','表眉/表脚_字体下滑线',0);
        //
        if (ZjShowSelectionCBox.ItemIndex = intMaxItem) then
        begin
          PageObj.PrefixContent := '共';
          PageObj.SufixContent := '页';
        end else
        if (ZjShowSelectionCBox.ItemIndex = (intMaxItem + 1)) then
        begin
          PageObj.PrefixContent := '第';
          PageObj.SufixContent := '页';
          PageObj.PageDist := seStartPage.Value - 1;
        end;
        //储存
        pcxSmartCostRpt.setPageObj(PageObj);
      end;
    end;
    //3. 重新设置表头,尾的高度及层数
    douRowHeight := 0;
    intRowSteps := 1;
    for i := 3 downto 1 do
    begin
      for j := 0 to 7 do
      begin
        if Trim(zgReportElements.Cells[j,i].Text) <> '' then
        begin
          douRowHeight := DOU_DEFAULTHEIGHT * i;
          intRowSteps := i;
          break;
        end;
      end;
      if douRowHeight > 0.5 then
         break;
    end;
    pcxSmartCostRpt.setNewHeadTailAreaProperties(ObjType, douRowHeight, intRowSteps);
    //4. 保存
    SaveRpt(getCurReportName());
    //}
  end;
end;

procedure TReportAdjuster.ReportsCBoxChange(Sender: TObject);
var TitleRec : PTitleRec;
    strPath : String;
    strFileName : String;
    intPos : integer;
    FileHandle : THandle;
    FindFileRec : TWIN32FindData;
    RepObjList : TList;
    i,j : integer;
    ContentObj : PContentRec;
    CrossContentObj : PCrossContentRec;
    ColumnObj  : PColumnRec;
    ObjList : TList;
    PageObj : PPageRec;
    Param : PParamRec;
    //ReportNameMod : string;
begin
  //(*
  if ReportsCBox.ItemIndex >= 0 then
  begin
    //bHasModified := false;
    //事件设置
    zgReportProperty.OnCellValueChanged := nil;
    TitleEdit.OnChange := nil;

    getReport(getCurReportName());

    {
    ReportNameMod := ExePath + 'SmartCostReports\'  +
                     ReportsCBox.Items[ReportsCBox.ItemIndex] + strModified + FILEEXT;
    if FileExists(ReportNameMod) then
       bHasModified := true;
    if bHasModified then
       getReport(ReportNameMod);
    //}

    //1. 显示Title
    TitleRec := pcxSmartCostRpt.getTitleByID(1);
    if TitleRec <> nil then
       TitleEdit.Text := TitleRec.Content
    else
       TitleEdit.Text := EmptyStr;
    if (TitleRec.Field <> nil) or (TitleRec.Param <> nil) then
      TitleEdit.ReadOnly := true
    else
      TitleEdit.ReadOnly := false;

    //2. 查找格式
    (*
    StyleCBox.Clear;
    StyleCBox.Items.Add('当前');
    strPath := ExePath + 'SmartCostReports\Formats\' + ReportsCBox.Items[ReportsCBox.ItemIndex];
    if ForceDirectories(strPath) then
    begin
      FileHandle := FindFirstFile(PChar(strPath + '\*' + FILEEXT),FindFileRec);
      if FileHandle <> INVALID_HANDLE_VALUE then
      begin
        strFileName := ExtractFileName(FindFileRec.cFileName);
        intPos := Pos(FILEEXT, strFileName);
        if intPos > 0 then
        begin
          strFileName := Copy(strFileName, 1 , intPos - 1 );
        end;
        StyleCBox.Items.Add(strFileName);
        while FindNextFile(FileHandle,FindFileRec) do
        begin
          strFileName := ExtractFileName(FindFileRec.cFileName);
          intPos := Pos(FILEEXT, strFileName);
          if intPos > 0 then
          begin
            strFileName := Copy(strFileName, 1 , intPos - 1 );
          end;
          StyleCBox.Items.Add(strFileName);
        end;
      end;
    end;
    StyleCBox.ItemIndex := 0;
    //*)
    //3. 报表方向
    OrientationGroup.OnClick := nil;
    if (pcxSmartCostRpt.ReportOrientation = '横') then
       OrientationGroup.ItemIndex := 1
    else
       OrientationGroup.ItemIndex := 0;
    OrientationGroup.OnClick := OrientationGroupClick;
    //4.
    editLineHeight.OnChange := nil;
    if (TestReal(pcxSmartCostRpt.FlowContentOrgHeight)) then
    begin
      editLineHeight.Text := FloatToStr(StrToFloat(pcxSmartCostRpt.FlowContentOrgHeight)*10);
      editLineHeight.Enabled := true;
      editLineHeight.OnChange := editLineHeightChange;
    end else
    begin
      editLineHeight.Enabled := false;
    end;
    //5. 检测其他报表元素项
    RepObjList := TList.Create;
    try
      //a. 本页小计
      pcxSmartCostRpt.getAllSumObjs(0,RepObjList);
      if RepObjList.Count > 0 then
      begin
        PrintPageAmountCHK.Enabled := true;
        PrintPageAmountCHK.OnClick := nil;
        if PSumRec(RepObjList[0]).Visible then
           PrintPageAmountCHK.Checked := true
        else
           PrintPageAmountCHK.Checked := false;
        PrintPageAmountCHK.OnClick := PrintPageAmountCHKClick;
      end else
      begin
        PrintPageAmountCHK.Enabled := false;
      end;
      //b. 表栏头
      bCrossObj := false;
      pcxSmartCostRpt.getAllFlowShowContentObjs(L_ContentObjList);
      if (L_ContentObjList.Count = 0) then
      begin
        pcxSmartCostRpt.getAllCrossContentObjs(L_ContentObjList);
        bCrossObj := true;
      end;
      zgReportProperty.ColCount := L_ContentObjList.Count + 1;
      if not(bCrossObj) then
      begin
        for i := 0 to L_ContentObjList.Count - 1 do
        begin
          ContentObj := L_ContentObjList[i];
          ColumnObj := ContentObj.Column;
          if ColumnObj <> nil then
          begin
            zgReportProperty.Cells[i + 1, 0].Text := ColumnObj.Name;
            zgReportProperty.Cells[i + 1, 1].Text := ColumnObj.Content;
            //宽度目前是百份比
            zgReportProperty.Cells[i + 1, 2].Text := FloatToStr(ColumnObj.ExArea.ExRight - ColumnObj.ExArea.ExLeft);
            zgReportProperty.Cells[i + 1, 3].Text := GetNameByAlign(ContentObj.Align);
            //精度
            zgReportProperty.Cells[i + 1, 4].Text := IntToStr(ContentObj.ShowInfoRec.Precision);
          end;
        end;
      end else
      begin
        for i := 0 to L_ContentObjList.Count - 1 do
        begin
          CrossContentObj := L_ContentObjList[i];
          ColumnObj := CrossContentObj.CrossContent.Column;
          if ColumnObj <> nil then
          begin
            zgReportProperty.Cells[i + 1, 0].Text := ColumnObj.Name;
            zgReportProperty.Cells[i + 1, 1].Text := ColumnObj.Content;
            //宽度目前是百份比
            zgReportProperty.Cells[i + 1, 2].Text := FloatToStr(ColumnObj.ExArea.ExRight - ColumnObj.ExArea.ExLeft);
            zgReportProperty.Cells[i + 1, 3].Text := GetNameByAlign(CrossContentObj.CrossContent.Align);
            //精度
            zgReportProperty.Cells[i + 1, 4].Text := IntToStr(CrossContentObj.CrossContent.ShowInfoRec.Precision);
          end;
        end;
      end;
    finally
      RepObjList.Free;
    end;
    //6. 打开或设置其他
    HeadRBtn.Enabled := true;
    HeadRBtn.Checked := false;
    TailRBtn.Enabled := true;
    TailRBtn.Checked := false;

    seStartPage.Enabled := true;
    ObjList := TList.Create;
    try
      pcxSmartCostRpt.getAllPageObjs(ObjList);
      for i := 0 to ObjList.Count - 1 do
      begin
        PageObj := ObjList[i];
        if PageObj.PageType = 1 then
        begin
          seStartPage.Value := PageObj.PageDist + 1;
          pcxSmartCostRpt.setPageObj(PageObj);
          //保存
          //SaveRpt(getCurReportName());
          break;
        end;
      end;
    finally
      ObjList.Free;
    end;

    zgReportProperty.OnCellValueChanged := zgReportPropertyCellValueChanged;
    TitleEdit.OnChange := TitleEditChange;
    for i := 0 to 7 do
    begin
      for j := 0 to 2 do
      begin
        arr_HeadIndex[i][j] := 0;
        arr_FootIndex[i][j] := 0;
      end;
    end;

    Param := pcxSmartCostRpt.getParamByID(3001);
    if Param <> nil then
    begin
      seRefPage.OnChange := nil;
      seRefPage.Enabled := true;
      seRefPage.Value := Param.Value;
      seRefPage.OnChange := seRefPageChange;
    end else
    begin
      seRefPage.Enabled := false;
    end;

    HeadRBtn.Checked := true;
  end;
  //*)
end;

procedure TReportAdjuster.SaveFormatBtnClick(Sender: TObject);
var strFormat : String;
begin
  //保存格式
  (*
  strFormat := InputBox('格式保存','请输入要保存的格式名称','');
  if strFormat <> EmptyStr then
  begin
    //1. 检测是否有重复的格式
    strFormat := ExePath + 'SmartCostReports\Formats\' +
                           ReportsCBox.Items[ReportsCBox.ItemIndex] + '\' +
                           strFormat + FILEEXT;
    if FileExists(strFormat) then
    begin
      if Application.MessageBox('','',MB_YESNO) <> IDYES then
         exit;
    end;
    CopyFileTo(ExePath +'SmartCostReports\'+
               ReportsCBox.Items[ReportsCBox.ItemIndex] + FILEEXT,
               strFormat);
  end;
  //*)
end;

procedure TReportAdjuster.StyleCBoxChange(Sender: TObject);
var strFormat : String;
begin
  //选择新格式
end;

procedure TReportAdjuster.OrientationGroupClick(Sender: TObject);
var strOri : string;
begin
  case OrientationGroup.ItemIndex of
    0 : strOri := '纵';
    1 : strOri := '横';
  end;
  pcxSmartCostRpt.ReportOrientation := strOri;
  SaveRpt(getCurReportName());
end;

procedure TReportAdjuster.PrintPageAmountCHKClick(Sender: TObject);
var SumObjList : TList;
    douHeight : double;
    intSumSteps : integer;
    SumObj : PSumRec;
    i : integer;
begin
  case PrintPageAmountCHK.Checked of
    true :
    begin
      SumObjList := TList.Create ;
      try
        //1. 设置所有页小计项VISIBLE为TRUE
        pcxSmartCostRpt.getAllSumObjs(0, SumObjList);
        for i := 0 to SumObjList.Count - 1 do
        begin
          SumObj := PSumRec(SumObjList[i]);
          SumObj.Visible := true;
          pcxSmartCostRpt.setSumObj(SumObj);
        end;
        //如果有页小计的话,就有,没有就说明不需要,不然如何去确认合计字段?
        if SumObjList.Count > 0 then
        begin
          intSumSteps := pcxSmartCostRpt.SumSteps;
          Inc(intSumSteps);
          douHeight := pcxSmartCostRpt.SumOriginalHeight;
          if (douHeight = 0.0) then
             Dec(intSumSteps);
          douHeight := douHeight + DOU_DEFAULTHEIGHT; //要减掉页小计的高度,约定是DOU_DEFAULTHEIGHT,单位是厘米,
          pcxSmartCostRpt.setNewSumAreaProperties(douHeight,intSumSteps);
          //3. 整理其他合计项
          pcxSmartCostRpt.getAllSumObjs(1, SumObjList);
          //设置总计项
          for i := 0 to SumObjList.Count - 1 do
          begin
            SumObj := PSumRec(SumObjList[i]);
            SumObj.ExArea.ExTop := SumObj.ExArea.ExTop + 1;
            pcxSmartCostRpt.setSumObj(SumObj);
          end;
          pcxSmartCostRpt.getAllSumObjs(2, SumObjList);
          //设置章总计项
          for i := 0 to SumObjList.Count - 1 do
          begin
            SumObj := PSumRec(SumObjList[i]);
            SumObj.ExArea.ExTop := SumObj.ExArea.ExTop + 1;
            pcxSmartCostRpt.setSumObj(SumObj);
          end;
          //4. 保存
          SaveRpt(getCurReportName());
        end;
      finally
        sumObjList.Free;
      end;
    end;
    false:
    begin
      SumObjList := TList.Create ;
      try
        //1. 设置所有页小计项VISIBLE为FALSE
        //pcxSmartCostRpt.delSumObjs(0);
        pcxSmartCostRpt.getAllSumObjs(0, SumObjList);
        for i := 0 to SumObjList.Count - 1 do
        begin
          SumObj := PSumRec(SumObjList[i]);
          SumObj.Visible := false;
          pcxSmartCostRpt.setSumObj(SumObj);
        end;
        //2. 整理合计框高度
        if SumObjList.Count > 0 then
        begin
          douHeight := pcxSmartCostRpt.SumOriginalHeight;
          douHeight := douHeight - DOU_DEFAULTHEIGHT; //要减掉页小计的高度,约定是DOU_DEFAULTHEIGHT,单位是厘米,
          if douHeight < 0 then douHeight := 0;
          intSumSteps := pcxSmartCostRpt.SumSteps;
          Dec(intSumSteps);
          if intSumSteps < 1 then intSumSteps := 1;
          pcxSmartCostRpt.setNewSumAreaProperties(douHeight,intSumSteps);
          //3. 整理其他合计项
          pcxSmartCostRpt.getAllSumObjs(1, SumObjList);
          //设置总计项
          for i := 0 to SumObjList.Count - 1 do
          begin
            SumObj := PSumRec(SumObjList[i]);
            SumObj.ExArea.ExTop := SumObj.ExArea.ExTop - 1;
            if SumObj.ExArea.ExTop < 0 then
               SumObj.ExArea.ExTop := 1;
            pcxSmartCostRpt.setSumObj(SumObj);
          end;
          pcxSmartCostRpt.getAllSumObjs(2, SumObjList);
          //设置章总计项
          for i := 0 to SumObjList.Count - 1 do
          begin
            SumObj := PSumRec(SumObjList[i]);
            SumObj.ExArea.ExTop := SumObj.ExArea.ExTop - 1;
            if SumObj.ExArea.ExTop < 0 then
               SumObj.ExArea.ExTop := 1;
            pcxSmartCostRpt.setSumObj(SumObj);
          end;
          //4. 保存
          SaveRpt(getCurReportName());
        end;
      finally
        SumObjList.free;
      end;
    end;
  end;
end;

procedure TReportAdjuster.HeadRBtnClick(Sender: TObject);
var i : integer;
    ObjList : TList;
    PageObjList : TList;
    HeadTailObj : PHeadRec;
    PageObj : PPageRec;
    Row, Col : integer;
    strAreaName : string;
    intType : integer;
begin
  ObjList := TList.Create;
  PageObjList := TList.Create;
  try
    pcxSmartCostRpt.getAllPageObjs(PageObjList);
    case TRadioButton(Sender).tag of
      0 :
      begin
        pcxSmartCostRpt.getAllHeadObjs(ObjList);
        strAreaName := '表头';
        intType := 0;
      end;
      1 :
      begin
        pcxSmartCostRpt.getAllTailObjs(ObjList);
        strAreaName := '表尾';
        intType := 1;
      end;
    end;
    for i := PageObjList.Count - 1 downto 0 do
    begin
      PageObj := PageObjList[i];
      if (PageObj.AreaName <> strAreaName) then
      begin
        PageObjList.Delete(i);
      end;
    end;
    zgReportElements.Clear;
    //1. 表头表尾项
    for i := 0 to zgReportElements.ColCount - 1 do
    begin
      zgReportElements.CellClass.Cols[i] := TZjComboCell;
    end;
    for i := 0 to ObjList.Count - 1 do
    begin
      HeadTailObj := ObjList[i];
      Row := Round(HeadTailObj.ExArea.ExTop);
      if HeadTailObj.ExArea.ExLeft < 2.5 then
      begin //左边
        Col := 0;
      end else
      if HeadTailObj.ExArea.ExLeft < 15 then
      begin //中间
        Col := 1;
      end else
      if HeadTailObj.ExArea.ExLeft < 27.5 then
      begin //右边
        Col := 2;
      end else
      if HeadTailObj.ExArea.ExLeft < 40 then
      begin
        Col := 3;
      end else
      if HeadTailObj.ExArea.ExLeft < 52.5 then
      begin
        Col := 4;
      end else
      if HeadTailObj.ExArea.ExLeft < 65 then
      begin
        Col := 5;
      end else
      if HeadTailObj.ExArea.ExLeft < 77.5 then
      begin
        Col := 6;
      end else
      begin
        Col := 7
      end;

      zgReportElements.Cells[Col,Row].Text := HeadTailObj.Name;

      case intType of
        0 : arr_HeadIndex[Col][Row - 1] := getHeadTailIndex(HeadTailObj.Name);
        1 : arr_FootIndex[Col][Row - 1] := getHeadTailIndex(HeadTailObj.Name);
      end;
      
    end;
    //2. 页码项
    for i := 0 to PageObjList.Count - 1 do
    begin
      PageObj := PageObjList[i];
      if not(PageObj.Visible) then
         continue;
      if PageObj.PageType = 1 then
      begin
        seStartPage.OnChange := nil;
        seStartPage.Value := PageObj.PageDist + 1;
        seStartPage.OnChange := seStartPageChange;
        seStartPage.Enabled := true;
      end;
      Row := Round(PageObj.ExArea.ExTop);
      if PageObj.ExArea.ExLeft < 2.5 then
      begin //左边
        Col := 0;
      end else
      if PageObj.ExArea.ExLeft < 15.5 then
      begin //中间
        Col := 1;
      end else
      if PageObj.ExArea.ExLeft < 27.5 then
      begin //右边
        Col := 2;
      end else
      if PageObj.ExArea.ExLeft < 40 then
      begin
        Col := 3;
      end else
      if PageObj.ExArea.ExLeft < 52.5 then
      begin
        Col := 4;
      end else
      if PageObj.ExArea.ExLeft < 65 then
      begin
        Col := 5;
      end else
      if PageObj.ExArea.ExLeft < 77.5 then
      begin
        Col := 6;
      end else
      begin
        Col := 7;
      end;
      //备注: 上面的判断方式是只考虑三层的情况,目前也就限定了三层的情况
      zgReportElements.Cells[Col,Row].Text := PageObj.Name;
      case intType of
        0 : arr_HeadIndex[Col][Row - 1] := getHeadTailIndex(PageObj.Name);
        1 : arr_FootIndex[Col][Row - 1] := getHeadTailIndex(PageObj.Name);
      end;
    end;
  finally
    ObjList.Free;
    PageObjList.Free;
  end;
end;

procedure TReportAdjuster.FormCreate(Sender: TObject);
var i,j : integer;
begin
  IsTender := False;
  FReportManager := TScReportManager.Create;
  //strConfigTxt := '报表打印机设置.INI';

  {$IFNDEF _KTDebug}
  RptArchiverObj := TReportArchiver.Create;
  {$ENDIF}
  MemFile := nil;
  strModified := '(调价后)';
  SetupChanged := false;
  SetupReportName := '';
  SetupReportNo := -1;
  ReportChanged := false;
  L_ContentObjList := TList.Create;
  slReports := TStringList.Create;
  ExePath := ExtractFilePath(Application.ExeName);
end;

procedure TReportAdjuster.zgReportPropertyCellValueChanged(
  Sender: TObject);
var ContentObj : PContentRec;
    CrossContentObj : PCrossContentRec;
    i : integer;
    douRight : double;
    Row, Col : integer;
begin
  //单元格内容变化
  Row := zgReportProperty.CurRow;
  Col := zgReportProperty.CurCol;
  if not(bCrossObj) then
  begin
    ContentObj := L_ContentObjList[Col - 1];
    if ContentObj.Column <> nil then
    begin
      try
        case Row of
          1 : //标题
          begin
            ContentObj.Column.Content := zgReportProperty.Cells[Col,Row].Text;
            pcxSmartCostRpt.setColumnHeadTailObj(0,ContentObj.Column);
          end;
          2 : //宽度
          begin
            //这个宽度会影响到其他表栏
            douRight := ContentObj.Column.ExArea.ExLeft;
            for i := Col - 1 to L_ContentObjList.Count - 1 do
            begin
              ContentObj := L_ContentObjList[i];
              ContentObj.Column.ExArea.ExLeft := douRight;
              douRight := ContentObj.Column.ExArea.ExLeft + StrToFloat(zgReportProperty.Cells[i + 1,Row].Text);
              ContentObj.Column.ExArea.ExRight:= douRight;
              pcxSmartCostRpt.setColumnHeadTailObj(0,ContentObj.Column);
            end;
          end;
          3 : //对齐
          begin
            ContentObj.Align := getAlignByName(zgReportProperty.Cells[Col,Row].Text);
            pcxSmartCostRpt.setFlowContentObj(ContentObj);
          end;
          4 : //精度
          begin
            ContentObj.ShowInfoRec.Precision := StrToInt(zgReportProperty.Cells[Col,Row].Text);
            pcxSmartCostRpt.setFlowContentObj(ContentObj);
          end;
        end;
        //4. 保存
        SaveRpt(getCurReportName());
      except
        //数据错误
      end;
    end;
  end else
  begin
    CrossContentObj := L_ContentObjList[Col - 1];
    if CrossContentObj.CrossContent.Column <> nil then
    begin
      try
        case Row of
          1 : //标题
          begin
            CrossContentObj.CrossContent.Column.Content := zgReportProperty.Cells[Col,Row].Text;
            pcxSmartCostRpt.setColumnHeadTailObj(0,CrossContentObj.CrossContent.Column);
          end;
          2 : //宽度
          begin
            //这个宽度会影响到其他表栏
            douRight := CrossContentObj.CrossContent.Column.ExArea.ExLeft;
            for i := Col - 1 to L_ContentObjList.Count - 1 do
            begin
              CrossContentObj := L_ContentObjList[i];
              CrossContentObj.CrossContent.Column.ExArea.ExLeft := douRight;
              douRight := CrossContentObj.CrossContent.Column.ExArea.ExLeft + StrToFloat(zgReportProperty.Cells[i + 1,Row].Text);
              CrossContentObj.CrossContent.Column.ExArea.ExRight:= douRight;
              pcxSmartCostRpt.setColumnHeadTailObj(0,CrossContentObj.CrossContent.Column);
            end;
          end;
          3 : //对齐
          begin
            CrossContentObj.CrossContent.Align := getAlignByName(zgReportProperty.Cells[Col,Row].Text);
            pcxSmartCostRpt.setCrossContentObj(CrossContentObj);
          end;
          4 : //精度
          begin
            CrossContentObj.CrossContent.ShowInfoRec.Precision := StrToInt(zgReportProperty.Cells[Col,Row].Text);
            pcxSmartCostRpt.setCrossContentObj(CrossContentObj);
          end;
        end;
        //4. 保存
        SaveRpt(getCurReportName());
      except
        //数据错误
      end;
    end;
  end;
end;

procedure TReportAdjuster.TitleEditChange(Sender: TObject);
var TitleRec : PTitleRec;
begin
  //改变表题名称
  TitleRec := pcxSmartCostRpt.getTitleByID(1);
  TitleRec.Content := TitleEdit.Text;
  pcxSmartCostRpt.setTitleObj(TitleRec);
  SaveRpt(getCurReportName());
end;

procedure TReportAdjuster.seStartPageChange(Sender: TObject);
var ObjList : TList;
    i : integer;
    PageObj : PPageRec;
begin
  ObjList := TList.Create;
  try
    pcxSmartCostRpt.getAllPageObjs(ObjList);
    for i := 0 to ObjList.Count - 1 do
    begin
      PageObj := ObjList[i];
      if PageObj.PageType = 1 then
      begin
        PageObj.PageDist := seStartPage.Value - 1;
        pcxSmartCostRpt.setPageObj(PageObj);
        //保存
        SaveRpt(getCurReportName());
        break;
      end;
    end;
  finally
    ObjList.Free;
  end;
end;

procedure TReportAdjuster.seRefPageChange(Sender: TObject);
var Param : PParamRec;
begin
  Param := pcxSmartCostRpt.getParamByID(3001);
  if Param <> nil then
  begin
    Param.Value := seRefPage.Value;
    pcxSmartCostRpt.setIdpParamObj(Param);
    //保存
    SaveRpt(getCurReportName());
  end;
end;

procedure TReportAdjuster.getReport(strFileName : string);
begin
  {$IFNDEF _KTDebug}
  RptArchiverObj.FileName := strFileName;
  MemFile := RptArchiverObj.Extract;
  {$ENDIF}
  if (MemFile = nil) then
  begin
    MemFile := TMemoryStream.Create;
    MemFile.LoadFromFile(strFileName);
  end else
  begin
    MemFile.Position := 0;
  end;
  try
    pcxSmartCostRpt.ReadReportStream(MemFile)
  finally
    MemFile.free;
    MemFile := nil;
  end;
end;

procedure TReportAdjuster.SaveRpt(strFileName : string);
var L_MemFile : TMemoryStream;
begin
  L_MemFile := TMemoryStream.Create;
  try
    pcxSmartCostRpt.SaveToStream(L_MemFile);
    {$IFNDEF _KTDebug}
    //RptArchiverObj.FileName := ExePath +'SmartCostReports\'+ strFileName;
    RptArchiverObj.FileName := strFileName; //调整后给的参数是一个完整的名称
    RptArchiverObj.Archive(L_MemFile);
    {$ELSE}
    L_MemFile.Position := 0;
    //L_MemFile.SaveToFile(ExePath +'SmartCostReports\'+ strFileName);
    L_MemFile.SaveToFile(strFileName);
    {$ENDIF}
    checkCurReport;
  finally
    L_MemFile.free;
  end;
end;

function TReportAdjuster.getCurReportName() : string;
begin
  Result := '';
  if ReportsCBox.ItemIndex >=0 then
  begin
    FReportManager.RecordNo := Integer(ReportsCBox.Items.Objects[ReportsCBox.ItemIndex]);
    Result := FReportManager.FieldValue['FileName'];
  end;
end;

procedure TReportAdjuster.LoadReports;
// 2012.3.1 HXY注销这个Const变量
const
  ReportVerNames: array[TScProjType] of string =
    ('招投标版', '预算版', '概算版', '可行性估算版', '建议估算版',
    '三级清单预算', '决算'); 

begin
  FReportManager.LoadFromSRT(ExePath + 'BillsEditorReports\*' + FILEEXT, '主版本=招投标版');

  ReportsCBox.Items.Clear;

// lenglshumei 2011-1-12 广东版调价前后
//  {$IF DEFINED(_ScGuangDong) OR DEFINED(_ScBills)}
//  if not IsTender then
//    FReportManager.SetRange(['调价前'], ['是'])
//  else
//    FReportManager.SetRange(['调价前'], ['否']);
//  {$IFEND}

  FReportManager.First;
  while not FReportManager.Eof do
  begin
    ReportsCBox.AddItem(FReportManager.FieldValue['名称'], Pointer(FReportManager.RecordNo));
    FReportManager.Next;
  end;
  ReportsCBox.Sorted := true;
  //*)
end;

{$IFNDEF _KTDebug}
function chkLoadFile(strFileName : string): boolean;
begin
  Result := true;
end;
{$ENDIF}

procedure TReportAdjuster.UpCHKClick(Sender: TObject);
begin
  if L_IniFile <> nil then
  begin
    if UpCHK.Checked then
    begin
      L_IniFile.WriteInteger('页面', UpCHK.Caption,1);
      UpTitleEdit.Enabled := true;
      UpLineCHK.Enabled := true;
      UpGroup.Enabled := true;
      //
      if (UpLineCHK.Checked) then
         L_IniFile.WriteInteger('页面', UpLineCHK.Caption,1)
      else
         L_IniFile.WriteInteger('页面', UpLineCHK.Caption,0);
      L_IniFile.WriteString('页面', '页眉_显示内容',UpTitleEdit.Text);
      case UpGroup.ItemIndex of
        0 : L_IniFile.WriteString('页面', '页眉_对齐','左');
        1 : L_IniFile.WriteString('页面', '页眉_对齐','中');
        2 : L_IniFile.WriteString('页面', '页眉_对齐','右');
      end;
    end else
    begin
      L_IniFile.WriteInteger('页面', UpCHK.Caption,0);
      UpTitleEdit.Enabled := false;
      UpLineCHK.Enabled := false;
      UpGroup.Enabled := false;
    end;
    ReportChanged := true;
  end;
end;

procedure TReportAdjuster.DownCHKClick(Sender: TObject);
begin
  if L_IniFile <> nil then
  begin
    if DownCHK.Checked then
    begin
      L_IniFile.WriteInteger('页面', DownCHK.Caption,1);
      DownStartPage.Enabled := true;
      DownLineCHK.Enabled := true;
      DownGroup.Enabled := true;
      //
      if (DownLineCHK.Checked) then
          L_IniFile.WriteInteger('页面', DownLineCHK.Caption,1)
      else
          L_IniFile.WriteInteger('页面', DownLineCHK.Caption,0);
      L_IniFile.WriteInteger('页面', '页脚_起始页码',DownStartPage.Value);
      case DownGroup.ItemIndex of
        0 : L_IniFile.WriteString('页面', '页脚_对齐','左');
        1 : L_IniFile.WriteString('页面', '页脚_对齐','中');
        2 : L_IniFile.WriteString('页面', '页脚_对齐','右');
      end;
    end else
    begin
      L_IniFile.WriteInteger('页面', DownCHK.Caption,0);
      DownStartPage.Enabled := false;
      DownLineCHK.Enabled := false;
      DownGroup.Enabled := false;
    end;
    ReportChanged := true;
  end;
end;

procedure TReportAdjuster.editLineHeightChange(Sender: TObject);
begin
  //
end;

procedure TReportAdjuster.N1Click(Sender: TObject);
var
    strOldName : string;
    strNewName : string;
    ObjList : TList;
    ObjType : integer;

    idx : integer;
    intMaxHeadTailID : integer;
    HeadTailObj : PHeadRec;
    PageObj : PPageRec;
    douRowHeight : double;
    intRowSteps  : integer;
begin
  //修改显示名称
  //(*
  if HeadRBtn.Checked then
  begin
    ObjType := 0;
  end else
  begin
    ObjType := 1;
  end;
  //*)
  //
  strOldName := zgReportElements.Cells[zgReportElements.CurCol,zgReportElements.CurRow].Text;
  //if (strOldName <> EmptyStr) then
  begin
    HeadTailObj := pcxSmartCostRpt.getHeadTailObjByName(strOldName,ObjType);
    if (HeadTailObj <> nil) then
    begin
      strNewName := InputBox('纵横创新','请输入新的显示名称:',strOldName);
      if (strNewName <> EmptyStr) and (strNewName <> strOldName) then
      begin
        zgReportElements.Cells[zgReportElements.CurCol,zgReportElements.CurRow].Text := strNewName;
        //(*
        idx := arr_HeadIndex[zgReportElements.CurCol][zgReportElements.CurRow - 1];
        if idx <= 0 then
        begin
          ZjShowSelectionCBox.Items[0] := strNewName;
          ZjShowSelectionCBox.ItemIndex := 0;
        end;
        //*)
        HeadTailObj.Name := strNewName;
        HeadTailObj.Prefix := strNewName + ': ';
        pcxSmartCostRpt.setHeadTailObj(ObjType,HeadTailObj);
        SaveRpt(getCurReportName());
      end;
    end;
  end;
end;

procedure TReportAdjuster.editLineHeightExit(Sender: TObject);
var
  dLineHeight : double;
begin
  if (TestReal(editLineHeight.Text)) then
  begin
    dLineHeight := StrToFloat(editLineHeight.Text);
    if (dLineHeight < 1) or (dLineHeight > 1000) then
    begin
      ShowMessage('请输入1~1000范围内的数值!');
      editLineHeight.Text := '6';
      exit;
    end;
    pcxSmartCostRpt.FlowContentOrgHeight := FloatToStr(dLineHeight/10);
    SaveRpt(getCurReportName());
  end else
  begin
    ShowMessage('请输入数值!');
    editLineHeight.Text := '6';
  end;
end;

procedure TReportAdjuster.PrinterCBXSelect(Sender: TObject);
var szDeviceName : String;
begin
  Printer.PrinterIndex := PrinterCBX.ItemIndex;
  szDeviceName := Printer.Printers[Printer.PrinterIndex];
  SetDefaultPrinterEx(szDeviceName);
  getAllSupportPaperNames;
end;

end.