实现TCHART+上面画透明图片飘动效果delphi

最新推荐文章于 2021-02-01 03:53:31 发布

WangYuanfei12345

最新推荐文章于 2021-02-01 03:53:31 发布

阅读量1.3k

点赞数 1

文章标签： delphi image integer timer gdi+ c

本文链接：https://blog.csdn.net/WangYuanfei12345/article/details/5089669

版权

该博客介绍了如何在Delphi的TChart组件上实现透明图片飘动效果，结合GDI+库，详细阐述了从加载图片、绘制坐标轴、画实时曲线到实现图片飘动的整个过程，包括Timer事件的运用来更新图片位置，以避免画面抖动。

摘要由CSDN通过智能技术生成

实现TCHART上面画透明图片飘动效果
tchart也用GDI+功能实现，实现功能包括，x轴坐标，y轴坐标显示，外框实线，内框虚线，并实时画曲线
波动率,并有TCHART背景图片
实现方法是：
uses GDIPOBJ, GDIPAPI;
以下过程均在FormPaint中实现
var g:tgpGraphics;
    Image,Thumbnail: TGPImage;
    bit1,bit2:tbitmap;
    m,n:integer;
    t:integer;
正确的做法是要用 TBitmap 来缓冲:
1、给 TBitmap1 载入你的图片;
bit1:=tbitmap.Create;
bit1.LoadFromFile('C:/Documents and Settings/king/My Documents/My   Pictures/winter_1024_1_.bmp');
2、在带有图片的 TBitmap1 上画格;
x轴坐标，y轴坐标显示，外框实线，内框虚线，

3、把 TBitmap1 上画好的东西复制到 TBitmap2;
bit2.Assign(bit1);
bit2.Canvas.Pen.Color:=clred;
bit2.Canvas.Pen.Style:=pssolid;
4、在 TBitmap2 上画你的实时曲线;
for t:=0 to arrj-2 do    //画曲线
begin
    if (yarr[t+1]<>'') and (yarr[t]<>'') then//yarr为实时获取的数据数组
    begin
    //540