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

摘要： Windows.CopyRect 是系统 API 函数, 功能是复制矩形的参数; TCanvas.CopyRect 是 TCanvas 类的方法, 功能是复制矩形范围内的图像, 有点像 BitBlt 函数. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G... 阅读全文

摘要： BitBlt( DestDC: HDC; {目标 DC} X, Y, Width, Height: Integer; {目标位置与大小} SrcDC: HDC; {源 DC} XSrc, YSrc: Integer; {源起始位置} Rop: DWORD ... 阅读全文

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

摘要： absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit... 阅读全文

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

摘要： 通过路径的辅助类 TGPGraphicsPathIterator , 可以获得更多路径数据和控制能力. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type... 阅读全文

摘要： 本例演示了把路径中的数据保存到一个文本文件, 然后再读出的过程. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(T... 阅读全文

摘要： 本例用一行代码禁用了最大化按钮. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TO... 阅读全文

摘要： 路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 FillPath 而不是 DrawPath 了. 本例没有测试它的两个默认参数, 因为前面已多次提到了. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Var... 阅读全文