使用说明.txt

delphi制作表格的控件

        // 合并网格
        procedure SetMerges(AMergeRect: TRect; WantPrompt: Boolean = False);

        // 拆分网格
        procedure DeleteMerges(AMergeRect: TRect);

        // **********************************************
        // 注意：ClearCells 仅仅清除文本
        //       而 RestoreCells 会将网格的合并区拆散
        //       并恢复网格颜色、对齐等所有属性为缺省状态
        // **********************************************
        // 把一个范围内的 Cells 恢复到缺省状态
        procedure RestoreCells(DestRestoreRect: TRect);

        // 清除一个范围内的 Cells 的文本
        procedure ClearCells(DestClearRect: TRect);

        // 拷贝一个范围内的 Cells 内容到剪贴板中
        procedure CopyCells(DestCopyRect: TRect);

        // 拷贝一个范围内的 Cells 内容到剪贴板中并执行 RestoreCells 操作
        procedure CutCells(DestCutRect: TRect);

        // 填充网格内容（相当于点击网格右下角的黑点的填充操作）
        procedure FillCells(SrcRect: TRect; Offset: Integer; FillStyle: TFillStyle);

        // 从剪贴板中粘贴 Cells 内容到一个范围内
        procedure PasteCells(DestPasteCoord: TPoint);

        // **********************************************
        // 下述四个方法的 PropertyName 的可用参数如下：
        // pnDataStyle, pnAlignMode, pnReadOnly,pnAutoWordBreak,
        // pnShowForeText, pnDrawTop, pnDrawLeft, pnDrawRight, pnDrawBottom,
        // pnAllowNegative, pnTrailingZero, pnZeroNull, pnThousandSep, pnMaxLength,
        // pnIntLength, pnDecLength, pnLineWidth, pnPenStyle, pnNumber, pnColor,
        // pnFontSize, pnFontColor, pnFontStyle, pnFontName,
        // pnForeText, pnBackText
        // 分别对应网格的各个属性。
        // Value 参数应全部用 Pointer() 进行强制转换
        // 例如：
        //   SetRowProperty(1, pnColor, Pointer(clRed));
        // 将把第一行的颜色设为红色。
        //     通过这些方法以及属性数组（如：Colors, Aligns）对网格内容进行
        // 改动时，如果不显式指定 AutoUpdate ，会自动刷新网格显示
        // ***********************************************
        // 设置某一行的 Cell 属性值
        procedure SetColProperty(ColIndex: Integer; PropertyName: TPropertyName; Value: Pointer);

        // 设置某一行的 Cell 属性值
        procedure SetRowProperty(RowIndex: Integer; PropertyName: TPropertyName; Value: Pointer);

        // 设置某个范围内的 Cell 属性值
        procedure SetRangeProperty(Range: TRect; PropertyName: TPropertyName; Value: Pointer);

        // 设置整个 Grid 的 Cell 属性值
        procedure SetGridProperty(PropertyName: TPropertyName; Value: Pointer);
        // **********************************************

        // 清空剪贴板内容
        procedure ClearClipBoard;

        // 打开剪贴板
        procedure OpenClipBoard;

        // 关闭剪贴板
        procedure CloseClipBoard;

        // 判断剪贴板是否可用（是否有 EasyGrid 剪贴数据）
        function ClipBoardAvailable: Boolean;

        // 向右插入一个网格
        procedure InsertCellRight(InsertRect: TRect);

        // 向下插入一个网格
        procedure InsertCellDown(InsertRect: TRect);

        // 插入一行
        procedure InsertRow(InsertRect: TRect);

        // 插入一列
        procedure InsertCol(InsertRect: TRect);

        // 向右删除一个网格
        procedure DeleteCellRight(DeleteRect: TRect);

        // 向下删除一个网格
        procedure DeleteCellDown(DeleteRect: TRect);

        // 删除一行
        procedure DeleteRow(DeleteRect: TRect);

        // 删除一列
        procedure DeleteCol(DeleteRect: TRect);

        // 显示设置单元格属性窗口
        procedure SetCellProp(DefaultPage: Integer = -1);

        // 把 Grid 保存到文件中
        procedure SaveToFile(FileName: string);

        // 把 Grid 保存到文件流中
        procedure SaveToStream(FileStream: TFileStream);

        // 从文件中读出 Grid 内容
        procedure LoadFromFile(FileName: string);

        // 从文件流中读出 Grid 内容
        procedure LoadFromStream(FileStream: TFileStream);

        // 打印 Grid
        procedure Print;

        // 显示打印对话框
        procedure PrintDialog;

        // 显示打印预览窗口
        procedure Preview;

        // 显示打印机设置对话框
        function PrinterSetup: Boolean;

        // 显示页面设置对话框
        procedure PageSetup;
        
  四、事件
        此处只介绍最常用的 OnSelectCell 事件。其他与 StringGrid 类似。
            OnSelectCell 在每次用户选中一个单元格时触发。值得注意的是：网格
        此时的 Col, Row 属性尚未改变，仍然是上次的位置，OnSelectCell 的参数
        给出了新的单元格的坐标。编程者仍然可以通过对 CanSelect 参数赋值来
        指定是否允许选择该单元格。
            OnSelectCell 事件最有用途的一个应用就是：可以在网格控件上放置
        其他的控件。
            通过 CellRect 方法可以得到新的单元格的物理坐标，然后动态在该处
        Show 一个先前 Visible 属性为假的控件（如THintEdit），使得网格看上去
        可以挂接感应框。

PreviewBox 使用说明：

  一、属性
        PageCount // 页面个数
        PageIndex // 当前页
        Zoom      // 缩放比（10~100）
  二、方法
        NextPage   // 下一页
        PriorPage  // 上一页
        SwitchZoom // 放大/缩小
  三、事件
        此处只介绍 OnDrawPage 事件。
          procedure(DrawCanvas: TCanvas; DrawRect: TRect;
            PageIndex: Integer; Printing: Boolean);
        参数：
          DrawCanvas // 页面画布
          DrawRect   // 可画区域
          PageIndex  // 当前页面索引
          Printing   // 打印标志（是否正在打印或预览）

Calculator 使用说明：

  一、属性
          Associated    // 与之关联的 TCustomEdit 的子类控件（TEdit,THintEdit...）
                        // 按下计算器的'√'键时计算结果将送到该 Edit 中
          BackColor     // 背景颜色
          ButtonSize    // 按钮大小（Ctrl + +/-）运行时可以调节
          ButtonSpace   // 按钮间隔（Ctrl + Alt + +/-）运行时可以调节
          ControlColor  // 不同按钮的颜色
          NumberColor
          OperatorColor
          SpecialColor
          Moveable      // 是否允许用鼠标拖曳
          Transparent   // 是否透明（Ctrl + Alt + T）运行时可以调节
          RoundCornered // 是否圆角（Ctrl + Alt + R）运行时可以调节
          RoundRadius   // 圆角弧度
          Font          // 按钮字体（Ctrl + Alt + Shift + +/-）运行时可以调节