Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;
生活随笔
收集整理的這篇文章主要介紹了
Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
本例效果圖:
代碼文件:
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)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: QQ病毒越来越人性化了
- 下一篇: 从自己实现Ruby单例模式揭秘Ruby模