делфи7. Напишите обработчик события onClick компоненты Button1, который закрашивает компоненту Image1 целиком белым цветом и рисует 100 черных точек в случайных координатах

[Наталочка12]

Друзья, помогите пожалуйста решить задачку. В делфи вообще ничего не понимаю! (последний зачет)
Напишите обработчик события onClick компоненты Button1, который закрашивает компоненту Image1 целиком белым цветом и рисует 100 черных точек в случайных координатах.

[Artsiom]

procedure TForm4.Button1Click(Sender: TObject);
var
  I: Integer;
begin
Form4.Image1.Canvas.Brush.Color := clWhite;
Form4.Image1.Canvas.Pen.Color := clWhite;
Form4.Image1.Canvas.Rectangle(0, 0, Form4.Image1.Width, Form4.Image1.Height);

for I := 0 to 99 do
  Form4.Image1.Canvas.Pixels
    [Random(Form4.Image1.Width+1), Random(Form4.Image1.Height+1)] := clBlack;

end;

Сойдёт?

[Serge_Bliznykov]

в Random +1 делать не нужно!

ещё такой вариант:

var i: integer;
begin
  Randomize;
  Image1.Canvas.Brush.Color:=clWhite;
  Image1.canvas.fillrect(canvas.cliprect);
  for i := 1 to 100 do
    Image1.canvas.Pixels[ Random(Image1.Width), Random(Image1.Height) ] := clBlack;
end;

[Artsiom]

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

в Random +1 делать не нужно!

Почему? Он же тогда не будет использовать координату (Image1.Width, Image1.Height)
Ну, 0<= результат< координата

[Аватар]

Она и не используется: 0<=x<Image1.Width. Аналогично и высота

[Наталочка12]

там Form4 или же Form1?

[Наталочка12]

Ребята, спасибо вам большое!!! Очень помогли

[Artsiom]

У меня Form4, у вас, вероятно, Form1.