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

本例效果图:

代码文件:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);procedure FormClick(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPOBJ,GDIPAPI;varpc: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';num: Integer;procedure TForm1.FormPaint(Sender: TObject);
varg: TGPGraphics;b: TGPBrush;font: TGPFont;
beging := 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);
vari,n: Integer;
beginn := Length(pc);num := 0;for i:= 1 to n dobeginnum := i;Repaint;Sleep(100);Application.ProcessMessages;end;num := -1;for i:= 1 to Length(pc) dobeginInc(pc);Repaint;Sleep(100);Application.ProcessMessages;end;Dec(pc,n);
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 42ClientWidth = 501Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnClick = FormClickOnPaint = FormPaintPixelsPerInch = 96TextHeight = 13
end

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

再学 GDI+[56]: 路径 - Warp
为什么80%的码农都做不了架构师?>>> 通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 ...
再学 GDI+[81]: TGPImage(1) - 显示图像
已知 GDI+ 可以支持的图像格式: BMP.JPEG.GIF.TIFF.PNG.ICO.WMF.EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: functio ...
再学 GDI+[57]: 路径 - Widen
为什么80%的码农都做不了架构师?>>> 路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 ...
再学 GDI+[11]: DrawCurve - 绘制曲线
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
再学 GDI+[7]: DrawLines - 绘制一组直线
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
mysql img格式缩放,再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co ...
再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform
几何变换也就是 Matrix 变换, 画笔的 Matrix 会忽略 dx.dy 平移参数; 选择 LineCapRound 线帽效果比较好. 本例效果图: 代码文件: unit Unit1;inter ...
再学 GDI+[25]: TGPPen - 宽度、颜色与线帽
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
再学 GDI+[83]: TGPImage(3) - 平行四边形变换
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...

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

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

最新文章

热门文章