文档章节

Delphi 的绘图功能[8] - TextOut、TextWidth、TextHeight

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 152
阅读 3
收藏 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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 {j := 0 to Length(arr[i])-1 ? WideString!}
    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.

 
 
 
 
 

 

 

  
//效果图:


本文转载自:http://www.cnblogs.com/del/archive/2008/02/17/1071328.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
五子棋的棋盘画不出来

#include #include #define MAX 20 #define TextWidth 200 #define Time1 1 #define Time2 2 #define times 1 #define NO1 1 #define NO2 2 #define ERROR 0 #define NO 0 #define OK 1 int ......

小利子
2011/11/25
2K
10
Android自定义View实现HTML图文环绕效果

Android中并没有提供HTML图文环绕效果的View,最接近的算是TextView中的ImageSpan了,但并未完全实现图文环绕(图文混排)的效果。 1、Android系统TextView的ImageSpan实现图文环绕 代码如下...

带梦想一7飞
2012/11/28
0
0
Android UI(四)云通讯录项目之云端更新进度条实现

作者:泥沙砖瓦浆木匠 网站:http://blog.csdn.net/jeffli1993 个人签名:打算起手不凡写出鸿篇巨作的人,往往坚持不了完成第一章节。 交流QQ群:【编程之美 365234583】http://jq.qq.com/?w...

泥沙砖瓦浆木匠
2014/12/02
0
3
C语言经典小程序,用C语言来教大家撩妹子啦,速度来!

C语言经典小程序 用vs,vc都可以正常运行 #include #include #include // 获取控制台窗口句柄 HWND GetConsoleHwnd(void) { #define MY_BUFSIZE 1024 // Buffer size for console window ti......

小辰带你看世界
2018/01/04
0
0
【Visual C++】游戏开发笔记之四——游戏画面绘图(一)基本图形绘制

本系列文章由zhmxy555编写,转载请注明出处。 http://blog.csdn.net/zhmxy555/article/details/7333886 作者:毛星云 邮箱: happylifemxy@qq.com 欢迎邮件交流编程心得 从本篇文章开始笔锋一...

长平狐
2012/11/12
135
0

没有更多内容

加载失败,请刷新页面

加载更多

mysql 查询当天、本周,本月,上一个月的数据

今天 select * from 表名 where to_days(时间字段名) = to_days(now()); 昨天 SELECT * FROM 表名 WHERE TO_DAYS( NOW( ) ) - TO_DAYS( 时间字段名) <= 1 近7天 SELECT * FROM 表名 wher......

BraveLN
今天
2
0
Android Multimedia框架总结(六)C++中MediaPlayer的C/S架构

前面几节中,都是通过java层调用到jni中,jni向下到c++层并未介绍 看下Java层一个方法在c++层 MediaPlayer后续过程 frameworks/av/media/libmedia/MediaPlayer.cpp 找一个我们之前熟悉的setDa...

天王盖地虎626
今天
3
0
【Linux】【MySQL】CentOS7安装最新版MySQL8.0.13(最新版MySQL从安装到运行)

1、前言   框框博客在线报时:2018-11-07 19:31:06   当前MySQL最新版本:8.0.13 (听说比5.7快2倍)   官方之前表示:MySQL 8.0 正式版 8.0.11 已发布,MySQL 8 要比 MySQL 5.7 快 2 ...

Code辉
今天
5
0
oracle dg备库重建redolog:ora-00313,ora-00312

trace文件: Errors in file /crbank/dbs/app/product/diag/rdbms/rdbs/dbs/trace/dbs_mrp0_24445130.trc: ORA-00313: open failed for members of log group 8 of thread 1 ORA-00312: onl......

hnairdb
今天
1
0
深入分析Java I/O的工作机制 (一)

1.Java的I/O类库的基本架构 先说一下什么是类库:可以说是类的集合,类库包括接口、抽象类、具体类等。 I/O是机器获取和交互信息的主要渠道。 java在I/O上也一直在做持续的优化,在1.4版开始...

java菜分享
今天
9
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部