Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Июн

Баловство с Random

Posted by Chas under Delphi, Общалка

На Delphi

procedure TForm1.Button1Click(Sender: TObject); // старт

var i,h,w:Integer;

begin

 h:=Image1.Height;

 w:=Image1.Width;

 for i:=1 to 300 do

  with Image1.Canvas do

   begin

    MoveTo(Round(w*Random),Round(h*Random));

    LineTo(Round(w*Random),Round(h*Random));

   end;

end;
procedure TForm1.Button2Click(Sender: TObject);  // очистка

begin

 Image1.Canvas.Brush.Color := clWhite;

 Image1.Canvas.FillRect(Canvas.ClipRect);

end;
initialization

 Randomize;

end.