Delphi实现图像文本旋转特效完整实例代码

首页 > 软件编程 > Delphi 更新日期: 2016-04-10
这篇文章主要介绍了Delphi实现图像文本旋转特效完整实例代码,对于帮助读者进一步理解Delphi图形及文字特效的处理有一定的借鉴价值,需要的朋友可以参考下

本文以实例讲述了Delphi实现图像文本旋转特效的解决方法,在本程序中利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转图像的功能。并巧妙地调用相关Windows API 函数来实现对文本的旋转特效。

完整的实例代码如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,math,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Image1: TImage;
bmprotate: TButton;
Label1: TLabel;
Panel1: TPanel;
Image2: TImage;
Panel2: TPanel;
Image3: TImage;
Edit2: TEdit;
RotatedText: TButton;
Label2: TLabel;
procedure bmprotateClick(Sender: TObject);
procedure RotatedTextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure bmp_rotate(src,dst:Tbitmap;angle:extended);
Procedure DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;
TheText : String);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.bmp_rotate(src,dst:Tbitmap;angle:extended);//图像旋转
var
c1x,c1y,c2x,c2y:integer;
p1x,p1y,p2x,p2y:integer;
radius,n:integer;
alpha:extended;
c0,c1,c2,c3:tcolor;
begin
angle := (angle / 180) * pi; //将文本框内的内容转换角度
c1x := src.Width div 2;
c1y := src.Height div 2;
c2x := dst.Width div 2;
c2y := dst.Height div 2;
if c2x < c2y then
n := c2y
else
n := c2x;
dec (n,1); //使n 值减少1,n:=n-1
for p2x := 0 to n do begin
for p2y := 0 to n do begin
if p2x = 0 then
alpha:= pi/2
else
alpha := arctan2(p2y,p2x);
radius := round(sqrt((p2x*p2x)+(p2y*p2y)));//设置旋转时的半径大小
p1x := round(radius * cos(angle+alpha)); //设置旋转时的圆心横坐标
p1y := round(radius * sin(angle+alpha)); //设置旋转时的圆心纵坐标
c0 := src.Canvas.pixels[c1x+p1x,c1y+p1y];//替换图像相关坐标处的像素
c1 := src.Canvas.pixels[c1x-p1x,c1y-p1y];
c2 := src.Canvas.pixels[c1x+p1y,c1y-p1x];
c3 := src.Canvas.pixels[c1x-p1y,c1y+p1x];
dst.Canvas.pixels[c2x+p2x,c2y+p2y]:=c0; //置换不同位置的像素点
dst.Canvas.pixels[c2x-p2x,c2y-p2y]:=c1;
dst.Canvas.pixels[c2x+p2y,c2y-p2x]:=c2;
dst.Canvas.pixels[c2x-p2y,c2y+p2x]:=c3;
end;
application.processmessages //响应其他的消息请求
end;
end;
procedure TForm1.bmprotateClick(Sender: TObject);
Var
RAngle : Extended;
begin
RAngle := StrToFloat(Edit1.Text); //设置旋转的角度
bmp_rotate(Image1.Picture.bitmap,Image2.Picture.bitmap, RAngle);//运行旋转函数,旋转图形
end;
Procedure TForm1.DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;
TheText : String);
var
lf : TLogFont;
tf : TFont;
begin
Image3.Canvas.refresh;
with TheCanvas do begin
Font.Name:='Arial';
Font.Size:=18;
Brush.Style:= bsClear;
tf:= TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, Sizeof(lf), @lf); //将当前实例句柄赋给tf 这个Font 对象
lf.lfEscapement:=TheAngle*10;
lf.lfOrientation := TheAngle * 10; //使输入时的横坐标线与水平线呈所指定的角度
tf.Handle := CreateFontIndirect(lf); //创建一个Font 具体对象
Font.Assign(tf); //使这个对象运用到程序中
finally
tf.Free; //释放对象
end;
TextOut(Image3.left, Image3.top+20 , TheText); //绘制文本到指定区域
end;
end;
procedure TForm1.RotatedTextClick(Sender: TObject);
Var
TheAngle : Integer;
begin
TheAngle := StrToInt(Edit2.Text); //将文本框中的文本转换角度
DrawRotatedText(Image3.Canvas, TheAngle, 'Delphi图形工作室'); //调用旋转文本函数
end;
procedure TForm1.FormCreate(Sender: TObject);
var
tf : TFont;
theText:string;
begin
theText:='Delphi图形工作室'; //设置文本
with Image3.Canvas do
begin
Font.Name := 'Arial'; //设置字体
Font.Size := 18; //设置字体大小
Brush.Style := bsClear; //设置笔刷样式
tf:= TFont.Create; //创建一个Font 具体对象
TextOut(Image3.left, Image3.top+20 , TheText); //绘制文本到指定区域
end;
end;
end.

> 本站内容系网友提交或本网编辑转载,其目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请及时与本网联系,我们将在第一时间删除内容!

相关文章
  • Delphi实现图片滚动切换的完整实例代码
    这篇文章主要介绍了Delphi实现图片滚动切换的完整实例代码,通过本实例,读者可以进一步掌握Delphi控件及图形处理的技巧,需要的朋友可以参考下本文以实例介绍了Delphi实现图片滚动切换的方法.该程序可以实现图像的滚动播出,并且通过本代码可控制窗口中的图像向上滚动,通过调节速度滚动条的值还可以调整滚动的速度:点击"停止"按钮,图像即停 ...
  • Perl合并文本的一段实例代码
    Perl合并文本的一段实例代码,需要的朋友可以参考下有这样一个文本文件,内容有多行如下,数量不定.Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};Lif(__amscript_cd("www.jb51.net" ...
  • 基于C语言实现的贪吃蛇游戏完整实例代码
    这篇文章主要介绍了基于C语言实现的贪吃蛇游戏完整实例代码,对于学习游戏开发的朋友有一定的借鉴价值,需要的朋友可以参考下本文以实例的形式讲述了基于C语言实现的贪吃蛇游戏代码,这是一个比较常见的游戏,代码备有比较详细的注释,对于读者理解有一定的帮助. 贪吃蛇完整实现代码如下: #include <graphics.h> #include <co ...
  • php分页函数完整实例代码
    这篇文章主要介绍了php分页函数完整实例代码,采用较为详尽的注释说明了PHP分页的方法及原理,需要的朋友可以参考下本文分享一例php分页函数完整实例代码,使用此函数实现分页效果很不错.分享给大家供大家参考. 具体功能代码如下: <?php /* * Created on 2011-07-28 * 使用方法: require_once('mypage.p ...
  • C#聊天程序服务端与客户端完整实例代码
    这篇文章主要介绍了C#聊天程序服务端与客户端完整实例代码,很经典的应用,需要的朋友可以参考下本文所述为基于C#实现的多人聊天程序服务端与客户端完整代码.本实例省略了结构定义部分,服务端主要是逻辑处理部分代码,因此使用时需要完善一些窗体按钮之类的. 先看服务端代码如下: using System; using System.Drawing; using Sys ...
  • javascript实现的猜数小游戏完整实例代码
    这篇文章主要介绍了javascript实现的猜数小游戏,游戏中用户共有10次猜测机会,并且每次都有不同的提示信息,该游戏涉及javascript流程控制与数值运算的相关技巧,需要的朋友可以参考下本文实例讲述了javascript实现的猜数小游戏.分享给大家供大家参考,具体如下: <!DOCTYPE html PUBLIC "-//W3C//D ...
猜你喜欢