Delphi初浅入门笔记之十二:多媒体编程五(绘制文字篇)
2011-03-03 00:20
274 查看
procedure TForm1.Button1Click(Sender: TObject);
const
arr:array[0..3] of WideString=('白日依山尽','黄河入海流','欲穷千里目','更上一层楼');
a=20;
b=20;
var
s:string;
x,y:Integer;
i,j:Integer;
begin
x:=20;
y:=20;
for i:=0 to Length(arr)-1 do
begin
for j:=1 to length(arr[i]) do
begin
s:=arr[i][j];
Canvas.TextOut(x,y,s);
x:=x+Canvas.TextWidth(s)+a;
end;
x:=20;
y:=y+Canvas.TextHeight(s)+b;
end;
end;
end.
源代码
const
arr:array[0..3] of WideString=('白日依山尽','黄河入海流','欲穷千里目','更上一层楼');
a=20;
b=20;
var
s:string;
x,y:Integer;
i,j:Integer;
begin
x:=20;
y:=20;
for i:=0 to Length(arr)-1 do
begin
for j:=1 to length(arr[i]) do
begin
s:=arr[i][j];
Canvas.TextOut(x,y,s);
x:=x+Canvas.TextWidth(s)+a;
end;
x:=20;
y:=y+Canvas.TextHeight(s)+b;
end;
end;
end.
源代码
相关文章推荐
- Delphi初浅入门笔记之八:多媒体编程一(了解篇)
- Delphi初浅入门笔记之九:多媒体编程二(媒体播放器控件篇)
- Delphi初浅入门笔记之十:多媒体编程三(打开图片篇)
- Delphi初浅入门笔记之十一:多媒体编程四(画笔篇)
- 【图形学与游戏编程】开发笔记-入门篇3:图形绘制
- 数字图像处理编成入门笔记——第10章 图象处理编程工具及简单的多媒体编程
- hadoop编程入门学习笔记-1 安装运行hadoop
- hadoop编程入门学习笔记-2 通过示例程序理解hadoop
- Java学习笔记―第十二章 Java网络编程入门
- ASP.NET MVC3 高级编程学习笔记——入门
- opencv开发笔记(十二):查找并绘制轮廓
- Python核心编程笔记-第2章:快速入门
- Android 多媒体编程笔记
- oracle编程入门笔记2015-01-19--index fast full scan
- opencv学习笔记0 编程简介入门
- VS2010/MFC 入门编程十二(文件操作 CFILE类)
- SQL Server 2008编程入门经典笔记:表连接
- Android: NDK编程入门笔记
- 笔记_并发编程实践_十二
- VS2010/MFC编程入门之十二(对话框:属性页对话框及相关类的介绍)