BGRABitmap图像操作10：使用纹理映射

最新推荐文章于 2024-06-02 09:40:22 发布

翻译最新推荐文章于 2024-06-02 09:40:22 发布 · 408 阅读

文章标签：

#TBGRABitmap #纹理

Lazarus 专栏收录该内容

171 篇文章

订阅专栏

本文介绍了一个使用Lazarus和FreePascal进行图像处理的简单实例，展示了如何加载图像并将其变形绘制到窗口上。通过具体的代码示例，读者可以了解基本的图像操作方法。

http://wiki.lazarus.freepascal.org/BGRABitmap_tutorial_10

第一个例子，图像不变形，需要改进。

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);
var image: TBGRABitmap;
    tex: TBGRABitmap;
begin
  //black background
  image := TBGRABitmap.Create(ClientWidth,ClientHeight, BGRABlack );

  tex:= TBGRABitmap.Create('image.png'); //load a bitmap
  image.FillPolyAntialias( [PointF(110,10), PointF(250,10), PointF(350,160), PointF(10,160)], tex);
  tex.Free;

  image.Draw(Canvas,0,0,True); //draw on the screen
  image.free;

end;

end.