page4
Надпись к иллюстрациям
Шрифт
Шрифт
Шрифт
Times New Roman
Начертание
Полужирный
Размер
12 пт
Цвет текста
Авто (черный)
Подчеркивание
нет
Видоизменение
нет
Интервал
Масштаб
100%
Интервал
Обычный
Смещение
Нет
Анимация
Вид
Нет
Абзац
Отступы и
интервалы
Выравнивание
По центру
Отступ слева
0 см
Отступ справа
0 см
Первая строка
нет
Интервал перед
0 мм
Интервал после
6 мм
Междустрочный
Одинарный
Положение на
странице
Разбивка на страницы
Запрет висящих
строк
Листинг
Надпись листинга
Шрифт
Шрифт
Шрифт
Times New Roman
Начертание
Курсив
Размер
12 пт
Цвет текста
Авто (черный)
Подчеркивание
нет
Видоизменение
нет
Интервал
Масштаб
100%
Интервал
Обычный
Смещение
Нет
Анимация
Вид
Нет
Абзац
Отступы и интервалы
Выравнивание
По левому краю
Отступ слева
0 см
Отступ справа
0 см
Первая строка
нет
Интервал перед
6 мм
Интервал после
0 мм
Междустрочный
Одинарный
Положение на странице
Разбивка на страницы
Не отрывать от следующего
С новой страницы
Содержание листинга
Шрифт
Шрифт
Шрифт
Courier New
Начертание
Обычный
Размер
10 пт
Цвет текста
Авто (черный)
Подчеркивание
нет
Видоизменение
нет
Интервал
Масштаб
100%
Интервал
Обычный
Смещение
Нет
Анимация
Вид
Нет
Абзац
Отступы и интервалы
Выравнивание
По левому краю
Отступ слева
0 см
Отступ справа
0 см
Первая строка
0 см
Интервал перед
0 мм
Интервал после
0 мм
Междустрочный
Одинарный
Приложение 3.А
Примеры оформления листинга
Листинг А.1 — Процедура сохранения кэшированных данных таблиц при закрытии приложения
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.TaUCH_ST.FlushBuffers;
DM.TaUCH_ZV.FlushBuffers;
DM.TaDOL.FlushBuffers;
DM.TaRAZRYAD.FlushBuffers;
DM.TaUKP.FlushBuffers;
DM.TaFOB.FlushBuffers;
DM.TaSPES.FlushBuffers;
DM.TaDIS.FlushBuffers;
DM.TaKOMU.FlushBuffers;
DM.TaOTKOGO.FlushBuffers;
DM.TaPodpis.FlushBuffers;
DM.TaSLZAP.FlushBuffers;
DM.TaSHTAT.FlushBuffers;
DM.TaSotr.FlushBuffers;
DM.TaKontrakt.FlushBuffers;
DM.TaDIS_Kontrakt.FlushBuffers;
end;
Листинг А.2 — Процедура открытия справочника
10 procedure TMainForm.OpenSpr(FormOpen: TFSPRView;
Source: TDataSource;
Const Capt: String);
20 begin
30 try
40 FormOpen.Show
50 Except
60 try
70 Application.CreateForm(TFSPRView, FormOpen);
80 FormOpen.Caption:=Capt;
90 FormOpen.DBGrid1.DataSource:=Source;
100 FormOpen.DBNavigator1.DataSource:=Source;
110 Finally
120 FormOpen:=nil
130 End
140 end
150 end;