我想在paintbox里加一个bmp或者jpg格式的图片要怎么加呀? 不能用image.我用paintbox.canvas.brush.bitmap.loadfromfile('aa.jpg')出错呀:(谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 paintbox.canvas.brush.bitmap.loadfromfile('aa.jpg')只能用bmp文件 ,错就错在这!! 对头bitmap指明就是bmp格式的文件,不能为其他的格式楼上说得对 uses JPEG;... jpg:=TJpegImage.Create; try jpg.LoadFromFile('e:\my picture\baby1.jpg'); paintbox.canvas.brush.bitmap.Assign(jpg); finally jpg.Free; end; var bm: TBitmap;begin bm := TBitmap.Create; bm.LoadFromFile('abc.bmp'); PaintBox1.Canvas.CopyRect(Rect(PaintBox1.Left, PaintBox1.Top, PaintBox1.Width, PaintBox1.Height), bm.Canvas, Rect(0, 0, bm.Width, bm.Height));end; 遇到不懂的类该怎么查呢? 提示 出现多次列名 有一个这样问题,该如何实现?最好能有一些代码,谢谢 用ado直接连接access,生成的exe文件直接点击运行正常,可是点击桌面上快捷方式就找不到数据库? 谁能给个d7的下载地址? 关于建表的主从表如何设计 初级问题:谁能叙述一下建立自定义过程的步骤,都应该在哪里写代码? delphi使某個程序改变现有速度. 面对有数百万记录的数据表,怎么提供程序效率? Delphi 编的CGI程序可以有象ASP session那样的全局变量吗? 关于Delphi6+SQL Server2000中程序发布连接错误的问题,高手请来看! 程序自动启动问题(高分相送)
只能用bmp文件 ,错就错在这!!
...
jpg:=TJpegImage.Create;
try
jpg.LoadFromFile('e:\my picture\baby1.jpg');
paintbox.canvas.brush.bitmap.Assign(jpg);
finally
jpg.Free;
end;
bm: TBitmap;
begin
bm := TBitmap.Create;
bm.LoadFromFile('abc.bmp');
PaintBox1.Canvas.CopyRect(Rect(PaintBox1.Left, PaintBox1.Top,
PaintBox1.Width, PaintBox1.Height), bm.Canvas,
Rect(0, 0, bm.Width, bm.Height));
end;