unit1.pas

Delphi7编程80例(完全版)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Label1: TLabel;
    Image1: TImage;
    Button2: TButton;
    CheckBox1: TCheckBox;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const  ch:Array [0..7] of String=('漂','亮','的','艺','术','字','效','果');
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.FillRect(Rect(0,0,Width,Height));
with Image1 Do
Begin
For i:=0 to 7 Do
Begin      
canvas.Font.Size:=24;                //设置字体大小
Case ListBox1.ItemIndex Of
0:Begin
  setbkmode(canvas.Handle,1);       //设置字体模式为透明
  If checkBox1.Checked Then
  Begin
  canvas.Font.Color:=clwhite;       //设置浮雕颜色
  Canvas.TextOut(30*i,100,ch[i]);   //水平直线效果
  end;
  canvas.Font.Color:=clBlue;        //设置颜色
  Canvas.TextOut(30*i,100+4,ch[i]); //水平直线效果
  end;
1:Begin
  setbkmode(canvas.Handle,1);       //设置字体模式为透明
  If checkBox1.Checked Then
  Begin
  canvas.Font.Color:=clred;         //设置颜色
  Canvas.TextOut(100,Round(30*i),ch[i]);    //竖直直线效果
  end;
  canvas.Font.Color:=RGB(25-36*i,255-14*i,154);//设置颜色
  Canvas.TextOut(100-6,Round(30*i),ch[i]);    //竖直直线效果
  end;
2:Begin
 setbkmode(canvas.Handle,1);            //设置字体模式为透明
  If checkBox1.Checked Then
  Begin
  canvas.Font.Color:=clred;             //设置颜色
  Canvas.TextOut(30*i,Round(30*i),ch[i]);   //向下延伸直线效果
  end;
  canvas.Font.Color:=RGB(24*i,255-24*i,36*i);//设置颜色
  Canvas.TextOut(30*i+2,Round(30*i)+2,ch[i]);   //向下延伸直线效果
  end;
3:Begin
 setbkmode(canvas.Handle,1);     //设置字体模式为透明
  If checkBox1.Checked Then
  Begin
  canvas.Font.Color:=clFuchsia;      //设置颜色
  Canvas.TextOut(30*i,Round(200-30*i),ch[i]); //向上延伸直线效果
  end;
  canvas.Font.Color:=RGB(24*i,255-14*i,154);      //设置文字渐变颜色
  Canvas.TextOut(30*i+2,Round(200-30*i)+2,ch[i]); //向上延伸直线效果偏移
  end;
4:Begin    //曲线效果
  setbkmode(canvas.Handle,1);     //设置字体模式为透明
  If checkBox1.Checked Then       //是否设置浮雕
  Begin
  canvas.Font.Color:=clFuchsia;  //设置浮雕颜色
  Canvas.TextOut(30*i,Round(3*i*i)+24,ch[i]); //曲线效果
  end;
  canvas.Font.Color:=RGB(255-36*i,255-18*i,36*i);   //设置文字渐变颜色
  Canvas.TextOut(30*i+2,Round(3*i*i)+24+2,ch[i]);   //曲线效果偏移
  end;
end;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If SavePictureDialog1.Execute Then
 Image1.Picture.SaveToFile(SavePictureDialog1.FileName); //将艺术字效果保存
end;

end.