qrDBRichview whitout段落格式和字体格式

时间:2015-12-23 19:27:10

标签: delphi wrapper delphi-2009 quickreports

我将DBrichView(格式化对齐)保存在数据库中,我需要在快速报告中打印 我使用“TRichView包装器(RVQRControls)v3.0 for QuickReport”,tQrDBRichview,但它不显示文本格式,也显示不同的字体。

var
  sds1: TSQLDataSet;
  dsp1: TDataSetProvider;
  cds1: TClientDataSet;
  qrp1: TQuickRep;
  qrbDetailBand1: TQRBand;
  qrDBRvw1: TQRDBRichView;

  ...     
  with sds1 do
  begin
    CommandText := 
      'select  a.id_anot,  a.text,  a.cod_user from  anot a where  a.id_ANOT = 1977';   
  end;
  with dsp1 do
  begin
    Name := 'dsp1';
    DataSet := sds1;
  end;
  with cds1 do
  begin
    Name := 'cds1';
    ProviderName := 'dsp1';
  end;
  with qrp1 do
  begin
    Name := 'qrp1';
    DataSet := cds1;        
  end;
  with qrbDetailBand1 do
  begin
    Name := 'qrbDetailBand1';
    Parent := qrp1;
    BandType := rbDetail;
  end;      
  with qrDBRvw1 do
  begin
    Name := 'qrDBRvw1';
    Parent := qrbDetailBand1;
    NoMargins := True;
    DataField := 'TEXTO';
    DataSet := cds1;
  end;
  ...

我如何解决这个问题?

0 个答案:

没有答案