[AlexKpyTuT]

Благодарю, работает отлично, тему можно закрывать.

Вот, что получилось:

Delphi BlackHole.rar

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, math;   type   TForm1 = class(TForm)     PB1: TPaintBox;     B1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Timer1: TTimer;     procedure B1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     BM1: TBitMap;   end;   var   Form1: TForm1;   x, y, x1, y1, x2, y2, x3, y3, x4, y4, r, r1, i: Integer;   Alpha,Alpha1: Real;   implementation   {$R *.dfm}   procedure TForm1.B1Click(Sender: TObject); begin     BM1:=TBitMap.Create;   BM1.Height:=601;   BM1.Width:=601;   x:=Round(PB1.Width/2);   y:=Round(PB1.Height/2);   r:=200; //150   r1:=100;   Alpha:=0;   Timer1.Enabled:=true;   end;   procedure TForm1.Timer1Timer(Sender: TObject); begin     BM1.Canvas.Pen.Width:=3;   BM1.Canvas.Brush.Color:=clBlack;   BM1.Canvas.FillRect(Rect(0,0 , BM1.Width,BM1.Height));     If (Alpha>=2*pi) then Alpha:=0;   Alpha:=Alpha+pi/180;   Alpha1:=Alpha;     For i:=1 to 12 do     begin       x1:=x+Round(Cos(Alpha1)*r1);       y1:=y+Round(Sin(Alpha1)*r1);         x2:=x+Round(Cos(Alpha1+190*(pi/180))*3*r1);       y2:=y+Round(Sin(Alpha1+190*(pi/180))*3*r1);         x3:=x+Round(Cos(Alpha1-21*(pi/180))*20*r1);  //20       y3:=y+Round(Sin(Alpha1-21*(pi/180))*20*r1);         x4:=x+Round(Cos(Alpha1+21*(pi/180))*20*r1);   //25       y4:=y+Round(Sin(Alpha1+21*(pi/180))*20*r1);         If (i Mod 2=0) then         begin           BM1.Canvas.Pen.Color:=clSkyBlue;           BM1.Canvas.Brush.Color:=clSkyBlue;           BM1.Canvas.Arc(x1-r,y1-r,x1+r,y1+r , x2,y2,x3,y3);    //Внешняя         end       else         begin           BM1.Canvas.Pen.Color:=clSkyBlue;           BM1.Canvas.Brush.Color:=clSkyBlue;           BM1.Canvas.Arc(x1-r,y1-r,x1+r,y1+r , x2,y2,x4,y4);         end;       Alpha1:=Alpha1+(360/12)*(pi/180);     end;     BM1.Canvas.Brush.Color:=clWhite;   BM1.Canvas.FloodFill(x, y, BM1.Canvas.Pixels[x, y], fsSurface);   BM1.Canvas.FloodFill(1, 1, BM1.Canvas.Pixels[1, 1], fsSurface);   BM1.Canvas.FloodFill(BM1.Height-1, 1, BM1.Canvas.Pixels[BM1.Height-1, 1], fsSurface);   BM1.Canvas.FloodFill(BM1.Height-1, BM1.Width-1, BM1.Canvas.Pixels[BM1.Height-1, BM1.Width-1], fsSurface);   BM1.Canvas.FloodFill(1, BM1.Width-1, BM1.Canvas.Pixels[1, BM1.Width-1], fsSurface);     PB1.Canvas.CopyRect(Rect(Point(0,0),Point(90,70)), BM1.Canvas, BM1.Canvas.ClipRect);   end;   end.