2008 年 6月 16 日随笔档案 - 万一

2008年6月16日

摘要：这比用 Screen.Fonts; 获取麻烦一些. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ... 阅读全文

posted @ 2008-06-16 23:43 万一阅读(1794) 评论(0) 推荐(0) 编辑

获取已打开的所有记事本的标题

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ... 阅读全文

posted @ 2008-06-16 21:42 万一阅读(3527) 评论(5) 推荐(0) 编辑

再学 GDI+[42]: 文本输出 - 字号单位

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Rad... 阅读全文

posted @ 2008-06-16 18:56 万一阅读(2070) 评论(0) 推荐(0) 编辑

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

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-16 17:41 万一阅读(1955) 评论(1) 推荐(0) 编辑

再学 GDI+[40]: 文本输出 - 选择画刷

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst; type TForm1 = class(TForm) Rad... 阅读全文

posted @ 2008-06-16 14:45 万一阅读(2062) 评论(5) 推荐(0) 编辑

再学 GDI+[39]: 文本输出 - 文本样式

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) CheckListBox1... 阅读全文

posted @ 2008-06-16 14:14 万一阅读(2388) 评论(0) 推荐(0) 编辑

再学 GDI+[38]: 文本输出 - DrawString、TGPFont

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B... 阅读全文

posted @ 2008-06-16 11:05 万一阅读(4664) 评论(5) 推荐(0) 编辑