本例效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class(TForm)DXPaintBox1: TDXPaintBox;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); constImgPath1 = 'C:\Temp\DX.jpg'; beginDXPaintBox1.DIB.LoadFromFile(ImgPath1);DXPaintBox1.Width := DXPaintBox1.DIB.Width;DXPaintBox1.Height := DXPaintBox1.DIB.Height;DXPaintBox1.Repaint; end;{Negative 是負(fù)片效果, 如果超過 8 位色, 這個方法有些問題} procedure TForm1.Button2Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 8;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;procedure TForm1.Button3Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 4;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;procedure TForm1.Button4Click(Sender: TObject); beginDXPaintBox1.DIB.BitCount := 1;DXPaintBox1.DIB.Negative;DXPaintBox1.Repaint; end;end.
創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

以上是生活随笔為你收集整理的Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。