Delphi中动态加载Image控件图片的方法
2013-05-12 12:16
134 查看
Delphi中动态加载Image控件图片的方法
作者:海豚王子procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage; // 要use Jpeg单元
begin
// 显示jpg大图片的方式
jpg := TJPEGImage.Create;
jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');
Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的
jpg.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// 加载24位高清BMP图片(小、大都能成立)
Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + '\pic24位-大.bmp');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
png: tpngimage;
begin
png := tpngimage.Create;
png.LoadFromFile(getcurrentdir() + '\pic.png');
Image1.Picture.Bitmap.Assign(png);
png.Free;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
gif: tgifimage;
begin
gif := tgifimage.Create;
gif.LoadFromFile(getcurrentdir() + '\pic.png');
Image1.Picture.Bitmap.Assign(gif);
gif.Free;
end;
相关文章推荐
- JQ获取动态加载的图片大小的正确方法分享
- 关于Unity3D中Resources动态加载NGUI图片的方法
- delphi cxGrid 动态加载列 的方法
- Delphi FastReport动态加载图片 (转载)
- WPF中Image控件动态加载图片
- delphi 使用image动态加载图片时的错误提醒
- Delphi exe动态调用加载bpl 报地址错误的解决方法
- MFC加载gif动态图片的方法
- Image控件动态加载jpg图片
- 解决IE6下JS动态设置图片IMG的SRC时图片无法加载错误的方法
- 关于Unity3D中Resources动态加载NGUI图片的方法!!!
- jQuery在页面加载时动态修改图片尺寸的方法
- 动态加载拍照和本地图片并移除的方法
- VC中加载GIF格式动态图片的详细方法!
- Android将Glide动态加载不同大小的图片切圆角与圆形的方法
- 解决:ScrollView嵌套ListView导致无法正确计算ListView的高度之动态加载图片高度常规方法失效。
- RDLC加载动态图片和文本的方法
- 关于Unity3D中Resources动态加载NGUI图片的方法!!!
- MFC 加载gif动态图片的方法