文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 152
阅读 3
收藏 0
点赞 0
评论 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
博文 2004
码字总数 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 l......

小利子 ⋅ 2011/11/25 ⋅ 10

Android自定义View实现HTML图文环绕效果

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

带梦想一7飞 ⋅ 2012/11/28 ⋅ 0

Android UI(四)云通讯录项目之云端更新进度条实现

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

泥沙砖瓦浆木匠 ⋅ 2014/12/02 ⋅ 3

C语言经典小程序,用C语言来教大家撩妹子啦,速度来!

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

小辰带你看世界 ⋅ 01/04 ⋅ 0

C语言编程新手基础入门学习,用C语言来教大家撩妹子啦,速度来!

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

小辰GG ⋅ 2017/12/20 ⋅ 0

WinAPI: GetCurrentThread、GetCurrentThreadId、Get...

{返回当前线程的虚拟句柄} GetCurrentThread: THandle; {返回当前线程 ID} GetCurrentThreadId: DWORD; {返回当前进程的虚拟句柄} GetCurrentProcess: THandle; {返回当前进程 ID} GetCurre...

barsoom ⋅ 2012/12/17 ⋅ 0

【Visual C++】游戏开发笔记之四——游戏画面绘图(一)基本图形绘制

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

长平狐 ⋅ 2012/11/12 ⋅ 0

VB中处理长列表框项的两种方法

在使用列表框(LISTBOX)中经常碰到的问题是, 用户使用时在其中添加的条目(Item)长短不一,由于界面所限,只能将列表框调整到能满足显示大部分条目的宽度。如果其中有比较长的条目则不能完...

方法 ⋅ 2006/09/21 ⋅ 0

OnPaint和OnDraw的区别

问题:我在视图画的图象或者文字,当窗口改变后为什么不见了?OnDraw()和OnPaint()两个都是解决上面的问题,有什么不同? 答:OnDraw()和OnPaint()好象兄弟俩,因为它们的工作类似。 至于不见...

小青_1989 ⋅ 2014/05/30 ⋅ 0

Android 自定义View (一)

很多的Android入门程序猿来说对于Android自定义View,可能都是比较恐惧的,但是这又是高手进阶的必经之路,所有准备在自定义View上面花一些功夫,多写一些文章。先总结下自定义View的步骤: ...

sxl01890 ⋅ 2016/05/29 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Jenkins实践3 之脚本

#!/bin/sh# export PROJ_PATH=项目路径# export TOMCAT_PATH=tomcat路径killTomcat(){pid=`ps -ef | grep tomcat | grep java|awk '{print $2}'`echo "tom...

晨猫 ⋅ 今天 ⋅ 0

Spring Bean的生命周期

前言 Spring Bean 的生命周期在整个 Spring 中占有很重要的位置,掌握这些可以加深对 Spring 的理解。 首先看下生命周期图: 再谈生命周期之前有一点需要先明确: Spring 只帮我们管理单例模...

素雷 ⋅ 今天 ⋅ 0

zblog2.3版本的asp系统是否可以超越卢松松博客的流量[图]

最近访问zblog官网,发现zlbog-asp2.3版本已经进入测试阶段了,虽然正式版还没有发布,想必也不久了。那么作为aps纵横江湖十多年的今天,blog2.2版本应该已经成熟了,为什么还要发布这个2.3...

原创小博客 ⋅ 今天 ⋅ 0

聊聊spring cloud的HystrixCircuitBreakerConfiguration

序 本文主要研究一下spring cloud的HystrixCircuitBreakerConfiguration HystrixCircuitBreakerConfiguration spring-cloud-netflix-core-2.0.0.RELEASE-sources.jar!/org/springframework/......

go4it ⋅ 今天 ⋅ 0

二分查找

二分查找,也称折半查找、二分搜索,是一种在有序数组中查找某一特定元素的搜索算法。搜素过程从数组的中间元素开始,如果中间元素正好是要查找的元素,则搜素过程结束;如果某一特定元素大于...

人觉非常君 ⋅ 今天 ⋅ 0

VS中使用X64汇编

需要注意的是,在X86项目中,可以使用__asm{}来嵌入汇编代码,但是在X64项目中,再也不能使用__asm{}来编写嵌入式汇编程序了,必须使用专门的.asm汇编文件来编写相应的汇编代码,然后在其它地...

simpower ⋅ 今天 ⋅ 0

ThreadPoolExecutor

ThreadPoolExecutor public ThreadPoolExecutor(int corePoolSize, int maximumPoolSize, long keepAliveTime, ......

4rnold ⋅ 昨天 ⋅ 0

Java正无穷大、负无穷大以及NaN

问题来源:用Java代码写了一个计算公式,包含除法和对数和取反,在页面上出现了-infinity,不知道这是什么问题,网上找答案才明白意思是负的无穷大。 思考:为什么会出现这种情况呢?这是哪里...

young_chen ⋅ 昨天 ⋅ 0

前台对中文编码,后台解码

前台:encodeURI(sbzt) 后台:String param = URLDecoder.decode(sbzt,"UTF-8");

west_coast ⋅ 昨天 ⋅ 0

实验楼—MySQL基础课程-挑战3实验报告

按照文档要求创建数据库 sudo sercice mysql startwget http://labfile.oss.aliyuncs.com/courses/9/createdb2.sqlvim /home/shiyanlou/createdb2.sql#查看下数据库代码 代码创建了grade......

zhangjin7 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部