Стр. 243 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
243
procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clBlack;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clGreen;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clRed;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clBlue;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clYellow;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=random(65536);
end;
end.