内容索引:Delphi源码,界面编程,艺术字
　　Delphi 生成艺术字效果，可以生成四种形式的艺术线：水平线效果、垂直线效果、向下延伸和向上延伸、曲线效果等。代码实现请看以下片段：
　　
　　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;

进入下载地址页面

　1. 如果某源代码或其它资源侵犯了您的利益，请立即告之我们，以便尽快得到处理。
　2. 我们提供的源代码意在用于学习和研究，未经作者或本站许可请勿用于商业用途，由此造成的不良后果本站不承担任何法律责任。