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

Информатика. Программирование в Delphi
283
begin
//получение текущей директории
currdir:=GetCurrentDir;
//начальное значение имени текущего файла
currfile:='';
//заголовок формы
Form1.Caption:='Телефонный справочник';
//стиль формы
Form1.BorderStyle:=bsSingle;
//иконки формы
Form1.BorderIcons:=[biSystemMenu,biMinimize];
//ширина формы
Form1.Width:=Monitor.Width;
//высота формы
Form1.Height:=Monitor.Height;
//координаты левого верхнего угла формы
Form1.Left:=0;
Form1.Top:=0;
//фильтр компонентов OpenDialog1 и SaveDialog1 (файлы с расшире −
// нием .trb
OpenDialog1.Filter:='Телефонный справочник (*.trb)|*.trb';
SaveDialog1.Filter:='Телефонный справочник (*.trb)|*.trb';
//расширение файла по умолчанию
OpenDialog1.DefaultExt:='trb';
SaveDialog1.DefaultExt:='trb';
//открываемый каталог по умолчанию
OpenDialog1.InitialDir:=CurrDir;
SaveDialog1.InitialDir:=CurrDir;
//опции компонента SaveDialog1
SaveDialog1.Options:=[ofOverwritePrompt,ofHideReadOnly,
ofEnableSizing];
//проставляется галочка у пункта меню Автозагрузка
N7.Checked:=true;
//автоматическое включение и выключение галочки
// у пункта меню Автозагрузка
N7.AutoCheck:=true;
// проставляется галочка у пункта меню Сортировка N8.Checked:=true;
//автоматическое включение
//и выключение галочки у пункта меню Сортировка
N8.AutoCheck:=true;
//автоматическое включение
//и выключение галочки у пункта меню Только чтение
N12.AutoCheck:=true;
//количество фиксированных столбцов