上一页 1 ··· 126 127 128 129 130 131 132 133 134 ··· 215 下一页
摘要: 相关函数: GetWindowOrgEx、SetViewportOrgEx(设置视口坐标原点)、SetViewportOrgEx 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S... 阅读全文
posted @ 2008-05-31 23:40 万一 阅读(4090) 评论(0) 推荐(0)
摘要: OffsetClipRgn: 移动剪切区域; PtVisible: 判断点是否在剪切区域中. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = cla... 阅读全文
posted @ 2008-05-30 01:23 万一 阅读(2483) 评论(5) 推荐(0)
摘要: 剪切区域也是区域的一种, 窗口在重绘时只会重绘剪切区域中的内容. SelectClipRgn 和 ExtSelectClipRgn 是通过指定区域来定义剪切区域; SelectClipPath 是通过指定路径来定义剪切区域; ExtSelectClipRgn 和 SelectClipPath 比 SelectClipRgn 多出一个与原剪切区域混合方式的参数: RGN_AND = 1; RGN... 阅读全文
posted @ 2008-05-29 17:56 万一 阅读(7400) 评论(0) 推荐(0)
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/05/29/1005631.html#1212654 首先, 这个问题到 Delphi 2008 时, 可能就不存在了, 因为那时的 TStrings 肯定支持 UniCode; 当前版本是 2007. unit Unit1; interface uses Windows, Messages, ... 阅读全文
posted @ 2008-05-29 13:18 万一 阅读(4857) 评论(12) 推荐(0)
摘要: 其中 GetClientRect、ClientRect 获取的是窗口的客户区矩形; GetWindowRect、BoundsRect 是获取窗口矩形; 另外, 还有一个 Windows.GetClientRect(使用方法同 GetWindowRect, 它们都是 API 函数), 这里使用的 GetClientRect 是 Forms.GetClientRect. 本例效果图: unit... 阅读全文
posted @ 2008-05-29 12:31 万一 阅读(18897) 评论(0) 推荐(0)
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/05/28/1208964.html#1211428 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S... 阅读全文
posted @ 2008-05-28 11:48 万一 阅读(4780) 评论(20) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) CheckBox1: TC... 阅读全文
posted @ 2008-05-28 10:37 万一 阅读(3534) 评论(4) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-28 09:49 万一 阅读(3797) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-27 23:10 万一 阅读(7892) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文
posted @ 2008-05-27 22:21 万一 阅读(7229) 评论(10) 推荐(0)
上一页 1 ··· 126 127 128 129 130 131 132 133 134 ··· 215 下一页