导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« 用 TBytesStream 类实现的读文件为十六进制字符的函数显示 jpg、png、gif 图片及 gif 动画 »

分别使用静态数组与动态数组建立一个区域

转自: 万一博客

问题来源: http://www.cnblogs.com/del/archive/2008/05/26/1207811.html#1475006

本例效果图:   

   

 

代码文件:
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{使用静态数组建立区域}
procedure TForm1.Button1Click(Sender: TObject);
var
arr: array[0..3] of TPoint;
rgn: HRGN;
w,h: Integer;
begin
w := ClientWidth;
h := ClientHeight;
arr[0] := Point(w div 2, 0);
arr[1] := Point(w, h div 2);
arr[2] := Point(w div 2, h);
arr[3] := Point(0, h div 2);
rgn := CreatePolygonRgn(arr, Length(arr), WINDING);

{下面是描边和填充这个区域}
Canvas.Brush.Color := clSilver;
FrameRgn(Canvas.Handle, rgn, Canvas.Brush.Handle, 1, 1);

Canvas.Brush.Style := bsCross;
FillRgn(Canvas.Handle, rgn, Canvas.Brush.Handle);
end;

{使用动态数组建立区域}
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of TPoint;
rgn: HRGN;
w,h: Integer;
begin
SetLength(arr, 4);
w := ClientWidth;
h := ClientHeight;
arr[0] := Point(w div 2, 0);
arr[1] := Point(w, h div 2);
arr[2] := Point(w div 2, h);
arr[3] := Point(0, h div 2);
rgn := CreatePolygonRgn(arr[0], Length(arr), WINDING); {第一个参数是数组的起点}

{下面是描边和填充这个区域}
Canvas.Brush.Color := clRed;
FrameRgn(Canvas.Handle, rgn, Canvas.Brush.Handle, 1, 1);
Canvas.Brush.Style := bsCross;
FillRgn(Canvas.Handle, rgn, Canvas.Brush.Handle);
end;

end.
--------------------------------------------------------------------------------

窗体文件:
--------------------------------------------------------------------------------

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 175
ClientWidth = 289
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 208
Top = 113
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 208
Top = 144
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 1
OnClick = Button2Click
end
end

原创文章如转载,请注明:转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]

本文链接地址:http://www.abcxd.com/delphi/abcxddelphi/delphiKJZJ/369/

  • 相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

搜索内容

所属分类下的文章

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved