Разработаем простую процедуру для формирования товарного ярлыка —
объекта TextBox (надпись), содержащего таблицу 2 x 8 , ячейки которой за-
полнены текстом (описанием товара). Внешний вид такого ярлыка пред-
ставлен на рис. 8.22.
Рис. 8.22. Ярлык на товар, выполненный в виде документа Word
Рассмотрим фрагмент исходного текста программы, который сформирует
данный документ.
Создание товарного ярлыка
procedure TForml.Buttonl5Click(Sender: TObject);
var TextBox:variant;
Table:variant;
begin
// Создаем новый документ
W.Documents.add;
// Создаем объект TextBox
TextBox:=W.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,
10,10,250,120,W.ActiveDocument.Range);
// В области объекта TextBox создаем таблицу
Table:=W.ActiveDocument.Tables.Add(TextBox.TextFrame.TextRange ,8,2);
// Линии таблицы делаем невидимыми
Table.Borders.Enable:=False;
// Заполняем таблицу
Table.Cell(1,1).Range:='Наименование товара:';
Table.Cell(1,2).Range:='Сорочка';
Table.Cell(2,1).Range:='Страна изготовитель:';
Table.Cell(2,2).Range:='Англия';
Table.Cell(3,1).Range:='Фирма-изготовитель:';
Table.Cell(3,2).Range: ='"Marks sSpencer"';
Table.Cell(5,1).Range: = 'Состав сырья: ' ;
Table.Cell(5,2).Range:='100% хлопок';
Table.Cell(7,1).Range:='Размер:';
Table.Cell(7,2).Range: = '48-50' ;
Table.Cell(8,1).Range:='Артикул:';
// Выделяем первый столбец таблицы и изменяем в нем шрифт
Table.Columns.Item(1).Select;
W.Selection.Font.Bold:=True;
TextBox.Select;
end;
Результат выполнения данной процедуры показан на рис. 8.22.
Если потребуется создать ярлыки для нескольких товаров, например, ука-
занных в таблице базы данных, то придется изменить эту программу таким
образом, чтобы следующий ярлык располагался за текущим, — для этого
придется учитывать размеры страницы, а также размеры и координаты рас-
положения ярлыков. |
Главная
Каталог файлов
