实现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