2011年4月1日 星期五

回复 "Globe" 关于 XML 编码转换的问题

万一| 万一的 Delphi 博客 |22:32:00

问题来源：http://www.cnblogs.com/del/archive/2011/03/24/1994029.html#2059114Globe 同学有这样的 XML 文件：其中包含中文、韩文，并且有些是十六进制、有些是十进制，真实的内容应该是：下面是把它打开并另存为标准的 UTF-8 格式 XML 的代码(使用了 DelphiXE 最?..

Direct2D (10) : 绘制文本

万一| 万一的 Delphi 博客 |20:57:00

uses Direct2D, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var f: TTextFormats; begin for f := Low(TTextFormats) to High(TTextFormats) do CheckListBox1.Items.Add(GetEnumName(TypeInfo(TTextFormats), Ord(f))); CheckListBox1.Al...

Direct2D (9) : 显示图像

万一| 万一的 Delphi 博客 |15:48:00

uses Direct2D; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; wic: TWICImage; R: TRect; begin wic := TWICImage.Create; wic.LoadFromFile('C:\Temp\Test.png'); cvs := TDirect2DCanvas.Create(Canvas, ClientRect); ...

Direct2D (8) : 透明色

万一| 万一的 Delphi 博客 |13:10:00

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; R: TRect; begin cvs := TDirect2DCanvas.Create(Canvas, ClientRect); cvs.BeginDraw; cvs.Pen.Color := Color; cvs.Brush.Color := clGreen; R := ...

Direct2D (7) : 空间变换

万一| 万一的 Delphi 博客 |12:32:00

{相关方法} TDirect2DCanvas.RenderTarget.SetTransform(); TDirect2DCanvas.RenderTarget.GetTransform(); {相关结构} TD2DMatrix3x2F (或D2D_MATRIX_3X2_F) //因第三列的值在这里是固定的(0,0,1)，所以这里用的是 3*2 的矩阵；该结构重载了 * 运算符 {TD2DMatri...

QQ2010效果皮肤控件更新，支持好友头像闪动，好友节点交换功能，提供下载

不得闲| 得闲笔记 |00:04:00

QQ2010效果的皮肤控件，增加了一点新功能。之前就有人说，要好友头像闪动功能支持，一直没时间去做这个更新，今天稍微抽了点时间，增加了几个新的特点功能，就是能够在支持好友头像的闪动，除此之外，我们都知道，QQ的好友列表，在来信息的时候，会将当前最新的消息?..

Direct2D (6) : 绘制质量

万一| 万一的 Delphi 博客 |00:02:00

{相关方法} TDirect2DCanvas.RenderTarget.SetAntialiasMode(); TDirect2DCanvas.RenderTarget.GetAntialiasMode; {相关常量} D2D1_ANTIALIAS_MODE_PER_PRIMITIVE = 0; D2D1_ANTIALIAS_MODE_ALIASED = 1;测试代码：uses Direct2D, D2D1; procedure TForm1.Fo...