ИЗМЕНИТЬ КОД

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormMouseDown(Sender:TObject;
Button:TMouseButton;Shift:TShiftState;x,y:integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure StarLine(x0,y0,r:integer;Canvas:TCanvas);
var
p:array[1..11]of TPoint;
a: integer;
i: integer;
begin
a:=18;
for i:=1 to 10 do begin
if(i mod 2 = 0)
then
begin
p[i].X:=x0+Round(r/2*cos(a*2*pi/360));
p[i].y:=y0-Round(r/2*sin(a*2*pi/360));
end
else
begin
p[i].X:=x0+Round(r*cos(a*2*pi/360));
p[i].y:=y0-Round(r*sin(a*2*pi/360));
end;
a:=a+36;
end;
p[11].X:=p[1].X;
p[11].Y:=p[1].Y;
Canvas.Polyline(p);
end;
procedure TForm1.FormMouseDown(Sender:TObject;
Button:TMouseButton;Shift:TShiftState;x,y:integer);
begin
with Form1 do begin
if Button=mbLeft
then
begin
Canvas.Pen.Color:=clBlack;
StarLine(x,y,30,Canvas);
Canvas.Brush.Style:=bsDiagCross;
Canvas.Brush.Color:=clRed;
Canvas.FloodFill(x,y,Canvas.Pen.Color,fsBorder);
end
else
begin
Canvas.Pen.Color:=clRed;
StarLine(x,y,30,Canvas);
Canvas.Brush.Style:=bsCross;
Canvas.Brush.Color:=clBlue;
Canvas.FloodFill(x,y,Canvas.Pen.Color,fsBorder);
end;
end;
end;
end.

КАК ПЕРЕДЕЛАТЬ ЭТОТ КОД, ЧТОБЫ ПРИ НАЖАТИИ КНОПКИ МЫШИ НА ФОРМЕ ПОЯВЛЯЛАСЬ НЕ ЗВЕЗДА, А ТРЕУГОЛЬНИК.

Добавлено через 26 минут
просто сижу уже 4 часа а сделать ничего не получается, если кто может, помогите.

0

А вообще программу можно посмотреть?
Я как понял из кода звезда строится из 11 точек. Закон изменения 10 этих точек представлен тут

и последняя координата тут:
Так вот, какие Вы треугольники собираетесь рисовать (равнобедренный, равносторонний, прямоугольный) из этого следует и изменить вышеописанные законы в соответствии с вашим выбором. и следовательно закон надо будет описать для 3 точек.

0

равносторонний треугольник нужен.

Добавлено через 2 минуты
этот код и есть вся программа, после выполнения при клике мышкой на форме должен появляться треугольник.

0

у меня что то вообще ничего не появляется( я код скопировал в делфи. Правда у меня 2010 делфи

Добавлено через 1 минуту
а всё заработало)

0