Delphi 與 DirectX 之 DelphiX(46): TDIB.DoAntiAlias;

本例:

代碼檔案:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DIB, StdCtrls;type  TForm1 = class(TForm)    DXPaintBox1: TDXPaintBox;    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);const  ImgPath1 = 'C:\Temp\DX.jpg';begin  DXPaintBox1.DIB.LoadFromFile(ImgPath1);  DXPaintBox1.Width := DXPaintBox1.DIB.Width;  DXPaintBox1.Height := DXPaintBox1.DIB.Height;  DXPaintBox1.Repaint;end;procedure TForm1.Button2Click(Sender: TObject);begin  DXPaintBox1.DIB.DoAntiAlias;  DXPaintBox1.Repaint;end;end.