unit1.pas

《Delphi实用程序100例》配套书源码盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    FontDialog1: TFontDialog;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure TxtToGif(height,width:integer;FontName:TFont;Txt,FileName: String);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TxtToGif(height,width:integer;FontName:TFont;Txt,FileName: String);
var
    temp: TBitmap;
    Bmp : TBitmap; 
begin 
  temp:=TBitmap.Create;
  try 
    temp.Height     :=height;
    temp.Width      :=width; 
    temp.Transparent:=True;
    temp.Canvas.Font:=FontName;
    temp.Canvas.TextOut (10,10,txt);
    Form1.Image1.Picture.Assign(nil); 

    Bmp := TBitmap.Create;
    try 
      // 转换位图为GIF
      Bmp.Assign(Temp);
      // 保存GIF 
      Bmp.SaveToFile(FileName);
      // 显示GIF
      Form1.Image1.Picture.Assign (Bmp);
    finally 
      Bmp.Free;
    end;
  Finally
    temp.Destroy;
  End; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TxtToGif(strtoint(Edit1.Text),strtoint(Edit2.Text),FontDialog1.Font,Edit3.Text,'File.Bmp')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FontDialog1.Execute;
end;

end.