unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
Ar: array[0..19]of TPoint=((X:48;Y:660), (X:48;Y:55),(X:645;Y:55),(X:645;Y:290),(X:290;Y:290),(X:290;Y:550), (X:545;Y:550),(X:545;Y:435),(X:435; Y:435),(X:435;Y:535),(X:335;Y:535), (X:335;Y:335),(X:645;Y:335),(X:645; Y:650),(X:190;Y:650),(X:190;Y:190), (X:545;Y:190),(X:545;Y:155),(X:148; Y:155),(X:148;Y:660));
Rgn1: HRGN;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var Windin: integer;
begin
Rgn1:=CreatePolygonRgn(Ar,20,Windin);
end;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.