Рисование в Delphi

Question

Помогите пожалуйста. Мне надо нарисовать правильный шестиугольник и восьмиугольник внутри TImage с помощью Canvas и масштабировать их по нажатию кнопки, но я не знаю, как это грамотно сделать, а времени читать 200 учебников по дельфи нет. Объясните ккак это сделать.

professor_105 · Accepted Answer

Procedure DrawMe(const A:TImage;N,Size:integer); 
var i,x,y:integer; 
begin 
  x:=A.Width; 
  y:=A.Height; 
  A.Canvas.Rectangle(-1,-1,x+1,y+1); 
  for i:=0 to N do with A.Canvas do begin 
     x:=round(Size/2*(1+cos(2*pi*i/N))); 
     y:=round(Size/2*(1+sin(2*pi*i/N))); 
     if i=0 then MoveTo(x,y) else LineTo(x,y); 
  end 
end;

5_tatiana_5 · Answer

200 не надо, один прочитай

fedor_novikov_18 · Answer

заплатить тому, кто не поленился читать учебники