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.



相关文章推荐

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

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

一.使用OpenCv加载一幅图像

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

BGRABitmap图像操作10:透视映射

透视映射允许改变每一个点的深度。 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

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

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...

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

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...

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

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...

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

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr...

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

水波随鼠标而动。      unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileU...

BGRABitmap图像操作9c:同时使用莫林杂点和 phong 阴影制作纹理

纹理随鼠标不停变化,有点像水面。
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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