main.pas

将录入的文字转换为JPE格式的图片显示出来

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,jpeg, Buttons;

type
  TTextFrm = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    FontDialog1: TFontDialog;
    Edit2: TEdit;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TextFrm: TTextFrm;
  fwidth:integer;
  fheight:integer;
  fname,appath:string;
  fsize,fcolor,Bcolor:integer;
implementation
  uses ImageForm;
{$R *.DFM}

procedure TTextFrm.Button1Click(Sender: TObject);
var bmp :TBitmap;
    Jpg:TJpegImage;
begin
  try
    Bmp := TBitmap.Create;
    bmp.Canvas.Brush.Color:=bcolor;
    jpg := TjpegImage.Create;
    Bmp.Width:=200;
    Bmp.Height:=200;
    fwidth:=Bmp.Width;
    fheight:=Bmp.Width;
    appath:=ExtractFilePath(Application.ExeName);
    Bmp.Canvas.Font.Name:=fname;
    Bmp.Canvas.Font.Size:=fsize;
    Bmp.Canvas.Font.Color := fcolor;
    Bmp.Canvas.TextOut(25,100,Edit1.Text);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(appath+'img.jpg');
    try
      Application.CreateForm(TImageFrm,ImageFrm);
      ImageFrm.ShowModal;
    finally
      ImageFrm.Free;
    end;
finally
    bmp.Free;
    jpg.Free;
end;

end;

procedure TTextFrm.Button2Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    begin
      FName:=FontDialog1.Font.Name ;
      FSize:=FontDialog1.Font.Size ;
      Fcolor:=FontDialog1.Font.Color;
    end;
  edit2.Text:='字体：'+FName+' 大小：'+inttostr(FSize)+' 颜色：'+inttostr(Fcolor);
end;

procedure TTextFrm.Button3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
   bcolor:=ColorDialog1.Color;
  edit3.Text:='背景颜色：'+inttostr(bcolor);
end;

procedure TTextFrm.FormCreate(Sender: TObject);
begin
  fsize:=10;
  fname:='宋体';
  fcolor:=clBlack;
  Bcolor:=clWhite;
end;

end.