fastreport richtext怎样改变字体大小

Posted 2023-05-02

参考技术A 这个还是有点麻烦的，下面的方法你可以参考（还需要你根据自己的程序做相应修改）：
先把某行选中
然后设置字体属性
然后取消选中
richTextBox1.Text = "adfdasf";
richTextBox1.Select(0, 3);
richTextBox1.SelectionColor = Color.Red;
richTextBox1.SelectionFont = new Font("Tahoma", 12, FontStyle.Bold);
richTextBox1.SelectionLength = 0;
Fastreport这类报表软件都需要写代码，所以工作量会比较大，或者如果你觉得麻烦的话可以用finereport，不需要写代码，直接现成，比较方便

delphi传递变量给fastreport

delphi传递变量给fastreport

 

1、打开frReport报表设计。
2、打开file->data dictionary加变量。这里比如加title,bm,zbr,gj,zrs
3、在报表控件主放一个richtext或一个rectangle数据控件，选择刚才添加的变量。
4、选择中frReport的GET Value方法，如下表:
procedure Tgjdb.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
  with frReport1.Dictionary do
   begin
      frVariables[‘title‘]:=query2cllbmc.AsString+‘发放历史表‘;
      frVariables[‘bm‘]:=‘部门:‘+query2bmmc.AsString;
      frVariables[‘zbr‘]:=‘制表人:‘+ Zlogin.Zusername;
      frVariables[‘gjm‘]:=query2.Fields[13].AsString+‘名称‘;
      frVariables[‘zrs‘]:=‘总人数:‘+inttostr(query2.RecordCount);
   end;
end;
5、为什么报表显示空白。
将报表StoreInDFM属情设为TRUE即可。
6、如何打开报报，例:

  frreport1.DesignReport;
  frreport1.LoadFromFile(extractfilepath(paramstr(0)+‘gjdb.frf‘));
  frreport1.PrepareReport;
  frreport1.ShowReport ;