Вращение 5-угольника на рабочем столе

[Ratte]

Здравствуйте, помогите пожалуста. Нужно создать вращающийся 5-уголник на рабочем столе, выдает ошибку, что используеться не тот тип данных. Вот код, проверьте пожалуста.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
tpoint=record
grad, radius, x, y: integer;
radian: real;
end;
const
dtr=0.0174;
x0=220;
y0=220;
var
Form1: TForm1;

implementation

{$R *.dfm}
function GetRGB():Integer;
begin
Randomize;
GetRGB:=RGB(Random(255),Random(255) ,Random(255));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
pol: array[1..5] of tpoint;
ScreenDC: HDC;
Canvas: TCanvas;
i: Integer;
buffer: tbitmap;
begin
Timer1.Interval:= 175;
Timer1.Enabled:=True;
Canvas:=TCanvas.Create;
ScreenDC:=GetDC(0);
Canvas.Handle:=ScreenDC;
Canvas.Brush.Color:=GetRGB;
for i:=1 to 5 do
begin
pol[i].radian:=pol[i].grad*dtr;
pol[i].x:=x0+round(cos(pol[i].radian)*pol[i].radius);
pol[i].y:=y0+round(sin(pol[i].radian)*pol[i].radius);
end;
with buffer.Canvas do
begin
Handle:=GetDC(0);
Canvas.MoveTo(pol[1].x, pol[1].y);
Canvas.LineTo(pol[1].x, pol[1].y);
Canvas.MoveTo(pol[2].x, pol[2].y);
Canvas.LineTo(pol[2].x, pol[2].y);
Canvas.MoveTo(pol[3].x, pol[3].y);
Canvas.LineTo(pol[3].x, pol[3].y);
Canvas.MoveTo(pol[4].x, pol[4].y);
Canvas.LineTo(pol[4].x, pol[4].y);
Canvas.MoveTo(pol[5].x, pol[5].y);
Canvas.LineTo(pol[5].x, pol[5].y);
end;
Canvas.Draw(0, 0, buffer);
for i:=1 to 5 do
begin
inc(pol[i].grad);
if pol[i].grad>360 then pol[i].grad:=0;
end;

SetLength(pol, 20);
pol[1].grad := 400;
pol[1].radius := 500;
pol[2].grad := 200;
pol[2].radius := 300;
pol[3].grad := 300;
pol[3].radius := 100;
pol[4].grad := 500;
pol[4].radius := 100;
pol[5].grad := 600;
pol[5].radius := 300;
Canvas.Polygon(pol);
ReleaseDC(0,ScreenDC );
Canvas.Free;
end;
end.

[Stilet]

В какой строке.

[K@$K@]

Ты используешь свой тип TPoint, а функции нужен стандартный
TPoint=record
x : integer;
y : integer;
end;

SetLength(pol, 20);- нельзя изменять размер не динамического массива, аообще не понимаю заче это здесь.

вот так вот можно решить, только что то утебя считает не правельно.

  tpoints=record
grad, radius, x, y: integer;
radian: real;
end;

const
dtr=0.0174;
x0=220;
y0=220;



var
  Form1: TForm1;

implementation

function GetRGB():Integer;
begin
Randomize;
GetRGB:=RGB(Random(255),Random(255),Random(255));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
pol: array[1..5] of tpoints;
pol2: array[1..5] of tpoint;
ScreenDC: HDC;
Canvas: TCanvas;
i: Integer;
buffer: tbitmap;
begin
Timer1.Interval:= 175;
Timer1.Enabled:=True;
Buffer:=TBitmap.Create;
Canvas:=TCanvas.Create;
ScreenDC:=GetDC(0);
Canvas.Handle:=ScreenDC;
Canvas.Brush.Color:=GetRGB;
for i:=1 to 5 do
begin
pol[i].x:=x0+round(cos(pol[i].radian)*pol[i].radius);
pol[i].y:=y0+round(sin(pol[i].radian)*pol[i].radius);

pol2[i].x:=x0+round(cos(pol[i].radian)*pol[i].radius);
pol2[i].y:=y0+round(sin(pol[i].radian)*pol[i].radius);
end;
with buffer.Canvas do
begin
Handle:=GetDC(0);
Canvas.MoveTo(pol[1].x, pol[1].y);
Canvas.LineTo(pol[1].x, pol[1].y);
Canvas.MoveTo(pol[2].x, pol[2].y);
Canvas.LineTo(pol[2].x, pol[2].y);
Canvas.MoveTo(pol[3].x, pol[3].y);
Canvas.LineTo(pol[3].x, pol[3].y);
Canvas.MoveTo(pol[4].x, pol[4].y);
Canvas.LineTo(pol[4].x, pol[4].y);
Canvas.MoveTo(pol[5].x, pol[5].y);
Canvas.LineTo(pol[5].x, pol[5].y);
end;
for i:=1 to 5 do
begin
inc(pol[i].grad);
if pol[i].grad>360 then pol[i].grad:=0;
end;

pol[1].grad := 400;
pol[1].radius := 500;
pol[2].grad := 200;
pol[2].radius := 300;
pol[3].grad := 300;
pol[3].radius := 100;
pol[4].grad := 500;
pol[4].radius := 100;
pol[5].grad := 600;
pol[5].radius := 300;
Canvas.Draw(0, 0, buffer);
Canvas.Polygon(pol2);
ReleaseDC(0,ScreenDC );
Canvas.Free;
end;

[Ratte]

SetLength(pol);(79 строка)

и

Canvas.Polygon(pol);(90 строка)

[Карась]

Както всё сложно и запутанно...

Const Pi = 3.1415926;

var
  Form1: TForm1;
  H : HDC;
  x, y, i, n, R :integer;
  GV : array [1..10, 1..10] of Real;
  a : Real;
  Procedure PrintM;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
For i := 1 To (n + 1) Do
LineTo(H, Round(GV[i,1]) + 450, Round(GV[i,2]) + 450);
a := a + 10;
PrintM;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
PrintM;
H := GetDC(0);
end;

Procedure PrintM;
var z : Integer;
Begin
n := 6; R := 100;
For z := 1 To n Do
  Begin
    GV[z,1] := R * cos(a * Pi/180);
    GV[z,2] := R * sin(a * Pi/180);
    a := a + 360/n;
  End;
GV[n + 1,1] := GV[1,1];
GV[n + 1,2] := GV[1,2];
End;

end.

Можно взять за основу.

[Ratte]

Вообщето ты просто вывел на изображение, последнее значение в цикле
pol2[i].x:=x0+round(cos(pol[i].radian)*pol[i].radius);
pol2[i].y:=y0+round(sin(pol[i].radian)*pol[i].radius);
т.к. дальше они ни где не фигурируют, а все операции, проходят с "pol[i]",
вот его то мне и надо вывести на экран.

[Ratte]

Есть еще у кого какие идеи???

[Карась]

Сообщение от Ratte

Есть еще у кого какие идеи???

А чем не нравится идея в 5-ом посте?