Delphi动态添加的图片显示在报表中

//1、将image控件上的图片显示在报表中
TRMPictureView(rm_cz.findobject('picture1')).Picture.Assign(img1.Picture);

//2、加载图片到报表中
var
  p: TfrPictureView;
begin
  p := TfrPictureView(FRReport.FindObject('Logo'));//logo为模板中图片控件的名称
  p.Picture.LoadFromFile('d:\aa.jpg');
end

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi使用TChart动态显示多条曲线的源码可以如下所示: ```delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VCLTee.Series, Vcl.ExtCtrls, VCLTee.TeEngine, VCLTee.TeeProcs, VCLTee.Chart; type TForm1 = class(TForm) Chart1: TChart; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } procedure AddRandomData(Series: TLineSeries); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Series1, Series2: TLineSeries; begin // 创建两条曲线 Series1 := TLineSeries.Create(Chart1); Series2 := TLineSeries.Create(Chart1); // 设置曲线的标题和样式 Series1.Title := '曲线1'; Series2.Title := '曲线2'; Series1.Pointer.Visible := True; Series2.Pointer.Visible := True; // 将曲线添加到图表 Chart1.AddSeries(Series1); Chart1.AddSeries(Series2); // 设置图表的标题和坐标轴名称 Chart1.Title.Text.Text := '动态显示多条曲线'; Chart1.BottomAxis.Title.Caption := 'X轴'; Chart1.LeftAxis.Title.Caption := 'Y轴'; // 启动定时器,定时刷新曲线数据 Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // 每个定时周期更新曲线的数据 AddRandomData(TLineSeries(Chart1.Series[0])); AddRandomData(TLineSeries(Chart1.Series[1])); end; procedure TForm1.AddRandomData(Series: TLineSeries); begin // 随机生成曲线的数据点 Series.Add(Random(100), Random(100)); // 更新图表显示 Chart1.AutoRepaint := True; end; end. ``` 这是一个简单的示例,其通过TLineSeries来显示两条曲线,并使用定时器Timer1来动态更新曲线的数据。在定时器的事件,调用AddRandomData方法生成随机的曲线数据点,并通过Chart1.AutoRepaint := True来实时刷新图表显示

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值