程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> WinAPI: CreateEllipticRgn、CreateEllipticRgnIndirect - 建立橢圓區域

WinAPI: CreateEllipticRgn、CreateEllipticRgnIndirect - 建立橢圓區域

編輯:Delphi

本例效果圖:

WinAPI: CreateEllipticRgn、CreateEllipticRgnIndirect - 建立橢圓區域

unit Unit1; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs; 
 
type 
 TForm1 = class(TForm) 
  procedure FormPaint(Sender: TObject); 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormPaint(Sender: TObject); 
const 
 n = 50; 
var 
 Rgn: HRGN; 
 x1,y1,x2,y2: Integer; 
begin 
 x1 := n; 
 y1 := n div 2; 
 x2 := ClIEntWidth - n; 
 y2 := ClIEntHeight - n; 
 
 {建立橢圓區域} 
// Rgn := CreateEllipticRgn(x1, y1, x2, y2); 
 Rgn := CreateEllipticRgnIndirect(Rect(x1,y1,x2,y2)); {目的同上一行, 函數不同} 
 
 {填充區域} 
 Canvas.Brush.Color := clSilver; 
 Canvas.Brush.Style := bsCross; 
 FillRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle); 
 
 {繪制區域邊界} 
 Canvas.Brush.Color := clRed; 
 Canvas.Brush.Style := bsSolid; 
 FrameRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle, 2, 2); 
 
 DeleteObject(Rgn); 
end; 
 
end. 


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved