在 Delphi 中使用微软全文翻译的小例子
摘要：刚刚从博客园看到有朋友用 C# 做了这么个东西, 我用 Delphi 尝试了一下.需要先去申请一个 AppID: http://www.bing.com/toolbox/bingdeveloper/使用帮助在: http://msdn.microsoft.com/en-us/library/dd576287.aspxuses MsXML;{函数}function Translate(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): stri
阅读全文
posted @
2011-11-14 17:59
万一
阅读(5702)
推荐(1) 编辑
FireMonkey 绘图(1)
摘要：FMX 的 Canvas 在不同的系统上会分别使用:WinVista、Win7: D2D (FMX.Canvas.D2D.pas)WinXP: GDI+ (FMX.Canvas.GDIP.pas)Mac 系列: Core Graphics (FMX.Canvas.Mac.pas)和 HTML5 中的 Canvas 非常类似, 现在的 Canvas 模糊了 Pen 的概念:之前的 Canvas.Pen 对应: Canvas.Stroke;之前的 Canvas.Brush 对应: Canvas.Fill.在 FMX 中, Canvas 无处不在, 其 Canvas.Stroke、Canvas.Fi
阅读全文
posted @
2011-11-14 10:44
万一
阅读(13902)
推荐(0) 编辑
博客四周年
摘要：或许就在四年前的这个时候, 我正在申请入住博客园.现在看来, 当时作对了两件事情: 1、语言(Delphi)的选择; 2、博客(博客园)的选择.1、关于语言的选择:其实早在 Win95、Win98 时就开始使用电脑了, 因兴趣和工作的需要接触了一些软件, 使用最多也最熟练的软件当属 Sibelius, 特别是在其脚本设计方面.软件用多了就想自己做软件, 开始尝试各种工具或语言: VC、VB、Java、Python、C#...但最后还是选定了 Delphi, 那时已是 Delphi 2007, 也就是 Delphi 走下坡路的时候.选择 Delphi 最重要的原因是: "方便查看源代码
阅读全文
posted @
2011-11-11 15:45
万一
阅读(3102)
推荐(3) 编辑
获取程序自身大小的函数
摘要：function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := SearchRec.Size;end;
阅读全文
posted @
2011-11-10 14:44
万一
阅读(3124)
推荐(0) 编辑
看看 Delphi XE2 为 VCL 提供的 14 种样式
摘要：其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.在空白窗体上添加 ListBox1 等控件, 测试代码:uses IOUtils, Vcl.Styles, vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var dir, fileName, styleName: string;begin //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\ dir := GetEnvi...
阅读全文
posted @
2011-11-09 19:59
万一
阅读(14460)
推荐(1) 编辑
终于, Delphi XE2 携带 GDI+ 库了
摘要：使用了较早的 http://www.progdigy.comuses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL};procedure TForm1.FormPaint(Sender: TObject);var graphics: TGPGraphics; pen: TGPPen;begin graphics := TGPGraphics.Create(Canvas.Handle); pen := TGPPen.Create(MakeColor(255,0,0)); graphics.DrawRectangle(pen, Make...
阅读全文
posted @
2011-11-08 22:14
万一
阅读(17258)
推荐(0) 编辑
管理
