Delphi与DirectX之DelphiX（87）: TDIB.DrawTransparent、DrawTranslucent、Dra

Delphi与DirectX之DelphiX（87）: TDIB.DrawTransparent、DrawTranslucent、Dra2010-11-08 博客园万一Delphi与DirectX之DelphiX（87）: TDIB.DrawTransparent、DrawTranslucent、DrawAlpha（）;

TDIB.DrawTransparent: 按指定的透明色透明;

TDIB.DrawTranslucent: 先按指定的透明色透明, 然后再半透明;

DIB.DrawAlpha: 先按指定的透明色透明, 再按指定的透明度透明.

本例效果图:

代码文件:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DIB, StdCtrls;
type
  TForm1 = class（TForm）
   DXPaintBox1: TDXPaintBox;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   Button4: TButton;
   Button5: TButton;
   Button6: TButton;
   Button7: TButton;
   procedure FormCreate（Sender: TObject）;
   procedure FormDestroy（Sender: TObject）;
   procedure Button1Click（Sender: TObject）;
   procedure Button2Click（Sender: TObject）;
   procedure Button3Click（Sender: TObject）;
   procedure Button4Click（Sender: TObject）;
   procedure Button5Click（Sender: TObject）;
   procedure Button6Click（Sender: TObject）;
   procedure Button7Click（Sender: TObject）;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
  dib: TDIB;
procedure TForm1.FormCreate（Sender: TObject）;
begin
  dib := TDIB.Create;
  dib.SetSize（DXPaintBox1.Width, DXPaintBox1.Height, 24）;
  dib.Fill（0）;
  dib.Canvas.Brush.Style := bsClear;
  dib.Canvas.Font.Color := clRed;
  dib.Canvas.Font.Name := "Tahoma";
  dib.Canvas.Font.Size := 32;
  dib.Canvas.Font.Style := [fsBold];
  dib.Canvas.TextOut（10, 10, "DelphiX"）;
  Self.Color := clWhite;
end;
procedure TForm1.FormDestroy（Sender: TObject）;
begin
  dib.Free;
end;
procedure TForm1.Button1Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Assign（dib）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button2Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawTransparent（dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button3Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawTransparent（dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button4Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawTranslucent（dib, 0, 0, dib.Width, dib.Height, 0, 0, clBlack）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button5Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawTranslucent（dib, 0, 0, dib.Width, dib.Height, 0, 0, clRed）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button6Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawAlpha（dib, 0, 0, dib.Width, dib.Height, 0, 0, 32, clBlack）;
  DXPaintBox1.Repaint;
end;
procedure TForm1.Button7Click（Sender: TObject）;
begin
  DXPaintBox1.DIB.Fill（Self.Color）;
  DXPaintBox1.DIB.DrawAlpha（dib, 0, 0, dib.Width, dib.Height, 0, 0, 32, clRed）;
  DXPaintBox1.Repaint;
end;
end.