摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:...    
阅读全文
posted @ 2008-05-27 13:01
万一
阅读(3554)
推荐(0)
            
        
        
摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); ...    
阅读全文
posted @ 2008-05-27 11:35
万一
阅读(3551)
推荐(0)
            
        
        
摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormClick(Sender: TObject); ...    
阅读全文
posted @ 2008-05-27 10:30
万一
阅读(2663)
推荐(0)
 
		
    
        
        
摘要:        
CombineRgn( p1: HRGN; {合成后的区域} p2, p3: HRGN; {两个原始区域} p4: Integer {合并选项; 见下表} ): Integer; {有四种可能的返回值} //合并选项: RGN_AND = 1; RGN_OR = 2; RGN_XOR = 3; RGN_DIFF = 4; RGN_COPY = 5; {复...    
阅读全文
posted @ 2008-05-26 23:17
万一
阅读(13332)
推荐(1)
            
        
        
摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormClick(Sender: TObject); ...    
阅读全文
posted @ 2008-05-26 17:01
万一
阅读(8230)
推荐(0)
            
        
        
摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormPaint(Sender: TO...    
阅读全文
posted @ 2008-05-26 16:22
万一
阅读(9103)
推荐(1)
            
        
        
摘要:        
本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ...    
阅读全文
posted @ 2008-05-26 15:25
万一
阅读(8349)
推荐(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-26 15:20
万一
阅读(4790)
推荐(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-26 15:14
万一
阅读(5520)
推荐(0)
            
        
        
摘要:        
不管什么曲线命令, 到来路径中都会变成 Bezier 线; 也就是说路径中只有直线和 Bezier 线. FlattenPath 和 WidenPath 都能够把路径中的 Bezier 线转换为近似的直线; 不同的是: 用 WidenPath 转换后貌似加宽了线, 其实它是转换成了一个包围路径的新路径(类似区域). 本例效果图: 代码文件: unit Unit1; interface u...    
阅读全文
posted @ 2008-05-26 13:46
万一
阅读(3118)
推荐(0)