BGRABitmap图像操作2:加载一幅图片

翻译 2016年08月31日 14:40:32


   下载一幅图片,image.png。用程序显示这幅图片。



unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  BGRABitmap, BGRABitmapTypes;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
    image: TBGRABitmap;

  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  image := TBGRABitmap.Create('image.png');

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  image.Draw(Canvas,0,0,True);

end;

end.



相关文章推荐

一.使用OpenCv加载一幅图像

本栏目记录本人学习使用OpenCv的一些

DirectFB实例1--加载一幅图片

在DirectFB中加载一幅图片,并显示: 1. 通过IDirectFBImageProvider加载一幅图片. 2. 创建一个DirectFBSurface,并将图片数据放入其中. 3. 将该Sur...

android,微信,人人,<android 无标题栏 >微博开机加载一幅图片,再跳转到主应用的实现

包结构:   com.XXXX.loading     xxxxLoading.java   com.XXXX.main     xxxxMain.java handle...

BGRABitmap图像操作10:透视映射

透视映射允许改变每一个点的深度。 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...
  • bq_cui
  • bq_cui
  • 2016年09月19日 08:09
  • 121

BGRABitmap图像操作5:画出月亮、太阳、灯光

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...
  • bq_cui
  • bq_cui
  • 2016年09月02日 09:03
  • 560

BGRABitmap图像操作8:轴向的木质纹理

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...
  • bq_cui
  • bq_cui
  • 2016年09月05日 07:53
  • 430

BGRABitmap图像操作9e:用阈值制作雪上印迹纹理

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...
  • bq_cui
  • bq_cui
  • 2016年09月12日 22:46
  • 116

BGRABitmap图像操作9b:巧克力纹理背景

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...
  • bq_cui
  • bq_cui
  • 2016年09月12日 22:26
  • 136

BGRABitmap图像操作9d:渲染前面的水纹

水波随鼠标而动。      unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileU...
  • bq_cui
  • bq_cui
  • 2016年09月12日 22:41
  • 210
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:BGRABitmap图像操作2:加载一幅图片
举报原因:
原因补充:

(最多只允许输入30个字)