Ломаные линии из трех отрезков произвольных цветов

@СветаРайт · Регистрация: 13.06.2019

Студворк — интернет-сервис помощи студентам

Создать приложение, в котором на форме должны рисоваться ломаные произвольные линии, состоящие из трех отрезков произвольных цветов.

@Puporev · 24.06.2019, 14:43

Не написано как линии должны появляться, сделал по нажатию кнопки появляется 1 ломаная.

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var p:array of TPoint;
    i:integer;
begin
randomize;
setlength(p,4);
for i:=0 to 3 do
 begin
   p[i].x:=10+random(clientwidth-20);
   p[i].y:=10+random(clientheight-20);
   if i=0 then Canvas.MoveTo(p[i].x,p[i].y)
   else
    begin
     Canvas.Pen.Color:=RGBToColor(random(256),random(256),random(256));
     Canvas.LineTo(p[i].x,p[i].y);
    end;
  end;
end;

@СветаРайт 1 / 1 / 0 Регистрация: 13.06.2019 Сообщений: 41
		1
	Ломаные линии из трех отрезков произвольных цветов 21.06.2019, 14:59. Показов 2119. Ответов 1 Метки lazarus (Все метки) Создать приложение, в котором на форме должны рисоваться ломаные произвольные линии, состоящие из трех отрезков произвольных цветов. 0

Опции темы

Ломаные линии из трех отрезков произвольных цветов

Решение