unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)DXPaintBox1: TDXPaintBox;Button1: TButton;Button2: TButton;ColorBox1: TColorBox;ColorBox2: TColorBox;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}const str = '春';vardib,dib1,dib2: TDIB;procedure TForm1.FormCreate(Sender: TObject);
constImgPath1 = 'C:\Temp\DX.jpg';
begindib := TDIB.Create;dib1 := TDIB.Create;dib2 := TDIB.Create;dib.LoadFromFile(ImgPath1);DXPaintBox1.ClientWidth := dib.Width;DXPaintBox1.ClientHeight := dib.Height;DXPaintBox1.DIB.Assign(dib);dib1.Assign(dib);dib2.SetSize(dib.Width, dib.Height, 24);dib2.Canvas.Brush.Style := bsClear;dib2.Canvas.Font.Name := '黑体';dib2.Canvas.Font.Size := 90;dib2.Canvas.Font.Style := [fsBold];ColorBox1.Selected := clBlack;ColorBox2.Selected := clYellow;
end;procedure TForm1.FormDestroy(Sender: TObject);
begindib.Free;dib1.Free;dib2.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
begindib1.Assign(dib);dib2.Fill(ColorBox1.Selected);dib2.Canvas.Font.Color := ColorBox2.Selected;dib2.Canvas.TextOut(0, 0, str);dib1.DrawAlphaMask(dib2, dib1, 0, 0, dib.Width, dib.Height, 0, 0);DXPaintBox1.DIB.Assign(dib1);DXPaintBox1.Repaint;
end;procedure TForm1.Button2Click(Sender: TObject);
begindib1.Assign(dib);dib2.Fill(ColorBox2.Selected);dib2.Canvas.Font.Color := ColorBox1.Selected;dib2.Canvas.TextOut(0, 0, str);dib1.DrawAlphaMask(dib2, dib1, 0, 0, dib.Width, dib.Height, 0, 0);DXPaintBox1.DIB.Assign(dib1);DXPaintBox1.Repaint;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 142ClientWidth = 226Color = 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 = 143Top = 78Width = 75Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 143Top = 109Width = 75Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendobject ColorBox1: TColorBoxLeft = 143Top = 8Width = 81Height = 22ItemHeight = 16TabOrder = 2endobject ColorBox2: TColorBoxLeft = 143Top = 36Width = 81Height = 22ItemHeight = 16TabOrder = 3end
end