zoukankan      html  css  js  c++  java
  • ReportMachine 自定义代码 画细线

    复制代码
    procedure Memo3_OnBeforePrint(Sender: TObject);
    begin
     Memo3.Text := inttostr(Footer1.Top);
     Memo4.Text :=   inttostr(MasterData1.datasetName);
     Diagonal1.height :=(15-strtoint(MasterData1.datasetName))*20;
    
    end;
    复制代码

    数据集下面填充斜线

     procedure Diagonal1_OnBeforePrint(Sender: TObject);
    begin
     Memo3.Text := inttostr(Footer1.Top);
     Memo4.Text :=   inttostr(MasterData1.datasetName);
     Footer1.height :=(25-strtoint(MasterData1.datasetName))*20;
     Diagonal1.top:= Footer1.top+100;
     Diagonal1.height :=   Footer1.height;
    end;

    TRMDiagonalView控件就是斜线表头,如何去掉斜下的线条 在RM_Diagonal.pas单元中定义的

    用普通的Memo控件,右键》边框 菜单,就可以实现斜线了,这个斜线功能是正常的。

    procedure Memo3_OnBeforePrint(Sender: TObject);
    begin
      Footer1.height :=(25-strtoint(MasterData1.datasetName))*20;
     Memo3.top:= Footer1.top+100;
     Memo3.height :=   Footer1.height;
    end;

    复制代码
    procedure Footer1_OnBeforePrint(Sender: TObject);
    var
      acount:integer;
    begin
    
    acount:=   RMDBDataSet1.dataset.recordcount;
    if acount>=7 then
    begin
         Footer1.Height:=  50;
         Memo4.Height := Footer1.Height;
    end else
    begin
         Footer1.Height:=  ( 7-acount)*50;
         Memo4.Height := Footer1.Height;
    end;
    end;
    复制代码

     

    在数据行后面一组画斜线。

    groupstart分组起始号

    groupcount分组行数

    Memo4.top :=MasterData1.top+ groupstart-20;
    memo4.height:=groupcount*MasterData1.Height;

  • 相关阅读:
    Leetcode 121. Best Time to Buy and Sell Stock
    Leetcode 120. Triangle
    Leetcode 26. Remove Duplicates from Sorted Array
    Leetcode 767. Reorganize String
    Leetcode 6. ZigZag Conversion
    KMP HDU 1686 Oulipo
    多重背包 HDU 2844 Coins
    Line belt 三分嵌套
    三分板子 zoj 3203
    二分板子 poj 3122 pie
  • 原文地址:https://www.cnblogs.com/westsoft/p/5919160.html
Copyright © 2011-2022 走看看