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

Информатика. Программирование в Delphi
284
StringGrid1.FixedCols:=0;
//количество столбцов в таблице
StringGrid1.ColCount:=3;
//количество строк в таблице
StringGrid1.RowCount:=2;
//ширина таблицы
StringGrid1.Width:=ClientWidth;
//высота таблицы
StringGrid1.Height:=ClientHeight;
//координаты левого верхнего угла таблицы
StringGrid1.Left:=0;
StringGrid1.Top:=0;
//значения фиксированных ячеек
StringGrid1.Cells[0,0]:='Фамилия, имя, отчество';
StringGrid1.Cells[1,0]:='Телефон';
StringGrid1.Cells[2,0]:='Домашний адрес';
//назначение контекстного меню
StringGrid1.PopupMenu:=PopupMenu1;
//изменение ширины столбцов
StringGrid1.ColWidths[0]:=StringGrid1.Width div 3;
StringGrid1.ColWidths[1]:=StringGrid1.Width div 6;
StringGrid1.ColWidths[2]:=StringGrid1.Width div 2 -5;
//установка опций компонента StringGrid1
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect,goEditing];
//если существует файл настроек Settings.stt программы
if FileExists(CurrDir+'\Settings.stt') then
begin
//связь файловой переменной с файлом
AssignFile(f,CurrDir+'\Settings.stt');
//открытие файла
Reset(f);
//чтение из файла Settings.stt имени последнего открываемого
// приложения
readln(f,s);
currfile:=s;
readln(f,s);
if s='true' then
N7.Checked:=true
else
N7.Checked:=false;
//чтение признака присутствия галочки у пункта
// меню Сортировка
readln(f,s);