本例效果图:

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 FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}vardib: TDIB;procedure TForm1.FormCreate(Sender: TObject);
constImgPath1 = 'C:\Temp\test.bmp';
beginPosition := poScreenCenter;dib := TDIB.Create;dib.LoadFromFile(ImgPath1);DXPaintBox1.Width := dib.Width;DXPaintBox1.Height := dib.Height;
end;procedure TForm1.FormDestroy(Sender: TObject);
begindib.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
beginDXPaintBox1.DIB.Assign(dib);DXPaintBox1.Repaint;
end;procedure TForm1.Button2Click(Sender: TObject);
beginDXPaintBox1.DIB.Fill(clWhite);DXPaintBox1.DIB.DrawAdditive(dib, 0, 0, dib.Width, dib.Height, 1);DXPaintBox1.Repaint;
end;procedure TForm1.Button3Click(Sender: TObject);
beginDXPaintBox1.DIB.Fill(clWhite);DXPaintBox1.DIB.DrawAdditive(dib, 0, 0, dib.Width, dib.Height, 128);DXPaintBox1.Repaint;
end;procedure TForm1.Button4Click(Sender: TObject);
beginDXPaintBox1.DIB.Fill(clBlack);DXPaintBox1.DIB.DrawAdditive(dib, 0, 0, dib.Width, dib.Height, 128);DXPaintBox1.Repaint;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 204ClientWidth = 253Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object DXPaintBox1: TDXPaintBoxLeft = 8Top = 8Width = 81Height = 73AutoStretch = FalseCenter = FalseKeepAspect = FalseStretch = FalseViewWidth = 0ViewHeight = 0endobject Button1: TButtonLeft = 8Top = 174Width = 56Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 68Top = 174Width = 56Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 129Top = 174Width = 56Height = 25Caption = 'Button3'TabOrder = 2OnClick = Button3Clickendobject Button4: TButtonLeft = 190Top = 174Width = 56Height = 25Caption = 'Button4'TabOrder = 3OnClick = Button4Clickend
end