文档章节

再学 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
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
深度解读 - Windows 7核心图形架构细致分析(转贴)

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

迈克老狼1
2012/12/23
0
0
python中让打印有不同的颜色

目的:使用python时,改变在终端里的输出颜色和样式。 环境:ubuntu 16.4 python 3.5.2 情景:在写小的脚本时,我们如果不需要输出到文件,也许只是想在终端中显示信息,这时可以尝试改变输出...

RickyHuL
2017/08/02
0
0
Shell脚本入门-7

Shell echo命令 Shell 的 echo 指令与 PHP 的 echo 指令类似,都是用于字符串的输出。命令格式:echo string 您可以使用echo实现更复杂的输出格式控制。 1.显示普通字符串: echo "It is a t...

Avner
2018/03/10
1
0

没有更多内容

加载失败,请刷新页面

加载更多

Hive性能优化

Hive设置参数的三种方法 Hive提供三种可以改变环境变量的方法,分别是:(1)、修改${HIVE_HOME}/conf/hive-site.xml配置文件;(2)、命令行参数;(3)、在已经进入cli时进行参数声明。下面...

hblt-j
4分钟前
0
0
快速使用github发布axure原型

前言 axure生成的原型图可以在自带的Axure share上使用,公司内网也可以直接放在本地访问,也可以打包成html文档给研发同事访问。这里我只是想将我的作品传到github上,并使其他人可以远程访...

铸剑为犁413
6分钟前
0
0
零基础学算法->质数

质数的定义 质数(Prime number),又称素数,指在大于1的自然数中,除了1和该数自身外,无法被其他自然数整除的数(也可定义为只有1与该数本身两个正因数的数) 大于1的自然数若不是素数,则...

tedzheng
16分钟前
0
0
C++程序中可以没有using namespace std;这一句吗

可以啊、、只是命名空间的声明而已。意思就是说下面的函数,如果有和stl库里面一个名字的,就是用的stl的函数 C++ using namespace std 详解  所谓namespace,是指标识符的各种可见范围。C...

天王盖地虎626
18分钟前
0
0
string类回顾

writeademo
21分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部