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

Информатика. Программирование в Delphi
288
//начальное значение количества строк
StringGrid1.RowCount:=2;
//очистка последней строки
StringGrid1.Rows[1].Clear;
//начальное значение имени текущего файла
currfile:='';
end;
16. В инспекторе объектов для пункта MainMenu1 Шрифт ( N13) создай-
те процедуру N13Click для обработки события OnClick.
//щелчок мышью по пункту меню Шрифт
procedure TForm1.N13Click(Sender: TObject);
begin
//выбор пользователем шрифта
if FontDialog1.Execute then
//изменение шрифта
StringGrid1.Font:=FontDialog1.Font;
end;
17. В инспекторе объектов для пункта MainMenu1 Цвет (N14) создайте
процедуру N14Click для обработки события OnClick.
//щелчок мышью по пункту меню Цвет
procedure TForm1.N14Click(Sender: TObject);
begin
//выбор пользователем цвета
if ColorDialog1.Execute then
//изменение цвета
StringGrid1.Color:=ColorDialog1.Color;
end;
18. В инспекторе объектов для пункта MainMenu1 Сохранить (N5) соз-
дайте процедуру N5Click для обработки события OnClick.
//щелчок мышью по пункту меню Сохранить
procedure TForm1.N5Click(Sender: TObject);
begin
//выбор имени сохраняемого файла
if SaveDialog1.Execute then
//сохранение таблицы в файл
savetofile(SaveDialog1.FileName);
end;