[weyner]

Все добрый вечер!) Вот такая вот проблема, я нарисовал фигуру это квадрат в него впасан ром а в ромб вписан круг, но теперь такая проблема я не магу заставить двигаться по окружности всю эту фигуру получаеться все время по диагонали: вот код:

Код:

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 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type     TFigure = class   public   d,b,c,a,p,x,y,x1,y1,r,size,maxsize: Integer; //òåêóùèå êîîðä. òî÷êè               Canvas: TCanvas;   Constructor Create(NewX, NewY,NewSize,NewMaxSize : integer;                       NewCanvas : TCanvas);     Procedure Show;   Procedure Hide;   Procedure Move;     destructor destroy; override;     end;     TForm1 = class(TForm)     Image1: TImage;     Timer1: TTimer;     Label1: TLabel;     procedure Image1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public   Figure:TFigure;     { Public declarations }       end;   var       Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Image1Click(Sender: TObject); begin   end;   { TFigure }   constructor TFigure.Create(NewX, NewY, NewSize, NewMaxSize: integer;   NewCanvas: TCanvas); begin  inherited Create; x:=NewX; y:=NewY; y1:=1; x:=250; y:=250; Size:=NewSize; MaxSize:=NewMaxSize; Canvas:=NewCanvas;   show; end;   destructor TFigure.destroy; begin   hide;  inherited destroy; end;   procedure TFigure.Hide;   begin      canvas.Pen.Color:=ClBlack;  Canvas.Brush.Color:=Clblue;   canvas.Rectangle(x - (a div 2), y - (a div 2),                            x + (a div 2), y + (a div 2));   end;   <font color="Red"><b>procedure TFigure.Move; begin   end;</b></font>   procedure TFigure.Show; var   c: array [1..4] of TPoint;   b: integer; // Äëèíà äèàãîíàëè ðîìáà   d: integer; // Äëèíà äèàãîíàëè êâàäðàòà è äèàìåòð êðóãà const   a = 125; begin      canvas.Pen.Color:=ClBlack;  Canvas.Brush.Color:=Clblue;   canvas.Rectangle(x - (a div 2), y - (a div 2),                            x + (a div 2), y + (a div 2));     d := Round(sqrt(2)*a);   b := Round(sqrt(2)*d);       c[1].x := x;   c[1].y := y + (b div 4);   c[2].x := x - (b div 4);   c[2].y := y;   c[3].x := x;   c[3].y := y - (b div 4);   c[4].x := x + (b div 4);   c[4].y := y;    canvas.Pen.Color:=ClBlack;  Canvas.Brush.Color:=Clwhite;  Canvas.Polygon(c);    canvas.Pen.Color:=Clblack;              //y,x,y+size ,x+size,// Canvas.Brush.Color:=Clred;      //Canvas.ellipse(y,x,y+size ,x+size);    Canvas.ellipse(x-(d div 4), y - (d div 4),x + (d div 4), y+(d div 4) ); end;   procedure TForm1.FormCreate(Sender: TObject); begin        Figure:=TFigure.Create(Image1.ClientWidth div 8,   Image1.ClientWidth div 4,   Image1.ClientWidth div 2 ,   Image1.ClientWidth,   Image1.Canvas); end;   end.

то что выделено красным и жирным туда надо записать это движение по окружности!!!! Это весь код программы!))