文档章节

再学 GDI+[41]: 文本输出 - 控制输出字符的个数

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 214
阅读 7
收藏 0
本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ,GDIPAPI;

var
  pc: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  num: Integer;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  b: TGPBrush;
  font: TGPFont;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  b := TGPSolidBrush.Create(aclGoldenrod);

  font := TGPFont.Create('Arial Black', 18, FontStyleRegular);
  
  {参数 2 为输出字符的个数, -1 表示全部输出}
  g.DrawString(pc, num, font, MakePoint(5.0, 5), b);

  b.Free;
  font.Free;
  g.Free;
end;

procedure TForm1.FormClick(Sender: TObject);
var
  i,n: Integer;
begin
  n := Length(pc);
  num := 0;
  for i:= 1 to n do
  begin
    num := i;
    Repaint;
    Sleep(100);
    Application.ProcessMessages;
  end;

  num := -1;
  for i:= 1 to Length(pc) do
  begin
    Inc(pc);
    Repaint;
    Sleep(100);
    Application.ProcessMessages;
  end;

  Dec(pc,n);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 42
  ClientWidth = 501
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClick = FormClick
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/06/16/1223236.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
printf("\033[1;33m Hello World. \033[0m \n");有趣的串口之超级终端的玩法

转载自:http://blog.csdn.net/hanghang121/article/details/40825527 颜色特效控制: printf("033[1;33m Hello World. 033[0m n"); 颜色如下: none = "033[0m" black = "033[0;30m" dark_gr......

lv18092081172
2017/10/09
0
0
深度解读 - Windows 7核心图形架构细致分析(转贴)

原帖地址:http://technet.microsoft.com/zh-cn/library/ee921514.aspx 如现在大家所想的那样, Windows7 其实是 Windows Vista 的改进版。 Windows 7 在 Windows Vista 的基础上进行了大量的...

迈克老狼1
2012/12/23
0
0
使用 ICU4J 进行 BiDi 开发

构造函数 表 1. BiDi 构造函数表 函数签名 详细信息 BiDi() 默认构造函数,调用 this(0,0) BiDi(int maxLength, int maxRunCount) 以文本的最大长度和 Run 的最大个数构造 BiDi 对象,预先分...

红薯
2009/05/16
1K
1
Java IO流 序列列一:字符编码

字符编码 先来看一下不同的字符编码 String s = "爪哇ABC"; 1.1 utf-8编码 utf8编码:中文占用3个字节,英文占用1个字节 byte[] bytes = s.getBytes("utf-8"); for(byte b : bytes){ //把字节...

哈鼎
2014/11/09
0
0
CDC绘图总结

GDI总结:http://dingchaoqun12.blog.163.com/blog/static/11606250420112213396361/ 对话框 控件 视图类 应用程序框架都会调用该CWnd的消息响应成员函数(的覆盖)来绘制窗口客户区。 在Win...

长平狐
2012/10/08
2.3K
0

没有更多内容

加载失败,请刷新页面

加载更多

JavaScript实现Apache .htaccess 转化nginx生成器工具-toolfk程序员工具网

本文要推荐的[ToolFk]是一款程序员经常使用的线上免费测试工具箱,ToolFk 特色是专注于程序员日常的开发工具,不用安装任何软件,只要把内容贴上按一个执行按钮,就能获取到想要的内容结果。T...

toolfk
9分钟前
0
0
一个EOS区块链RPC API接口的PHP SDK包

作为我们Block Producer对社区利益的承诺的一部分,我们希望专注于构建有助于提高EOS平台采用率的工具/应用程序。与大多数大型应用程序一样,当你只有少量或过时的文档并且缺乏工具来帮助你进...

笔阁
12分钟前
1
0
比特币和Dapp

在比特币的简史中,它已经从一种不受管制的非法活动货币转变为一种合法便捷的全球商业促进者。当然,加密货币受到无数因素的影响,这些因素共同使其成为世界上最难以预测的货币之一。但是,尽...

geek12345
15分钟前
0
0
php中流行的rpc框架详解

什么是RPC框架? 如果用一句话概括RPC就是:远程调用框架(Remote Procedure Call)那什么是远程调用?通常我们调用一个php中的方法,比如这样一个函数方法: localAdd(10, 20),localAdd方法...

hansonwong
16分钟前
1
0
Linux系统信息面板管理工具psdash

Psdash 是一款查看 Linux 系统信息的 web 面板,和另一款系统监控工具 Glances 一样,psDash 的系统信息的采集也是由 psutil 完成的。和 Glances 不同的是,psdash 没有提供 API,只带了一个...

linuxprobe16
18分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部