Рисование в MS Word на Delphi - Delphi - Программирование - Статьи

Регистрация | Вход

Меню сайта

Форма входа

Последние новости

[06.08.2013] CreepyDOL, или Как собрать конфиденциальную информ...

[02.03.2013] Новый шпионский вирус угрожает госучреждениям

[02.03.2013] Apple одержала победу над Samsung в Японии

[12.12.2012] Quest Software для Active Directory – ключ к безоп...

[01.10.2012] УЗИнфо - программа врача УЗИ

[23.08.2012] Gartner признает Quest Software одним из лидеров в...

[21.08.2012] Barracuda Web Filter 6.0. Социальные сети: казнить...

[21.08.2012] Quest Software выпускает Foglight для приложений W...

[14.08.2012] Банк «Софийский» выбрал решения Kerio Technologies...

[12.06.2012] Решения Firemon для управления гетерогенными систе...

Наши друзья

Наш опрос

Наши друзья

Главная » Статьи » Программирование » Delphi |

Java - введение

Delphi

Рисование в MS Word на Delphi

В этой третьей по счету статье о Delphi мы рассмотрим основные способы рисования из Delphi на листе MS Word.

0. Запуск MS Word

Подключаем необходимый для работы модуль и объявляем переменную:

uses ComObj;
...
var MsWord: variant;

Запускаем MS Word и показываем на экране:

MsWord:= CreateOleObject('Word.Application');
MsWord.Visible := True;

Создание нового документа:

MsWord.Documents.Add;

1. Линия

Рисуем линию в документе MS Word на текущем листе:

MsWord.ActiveDocument.Shapes.AddLine(x1, y1, x2, y2);

где x1, y1 - координаты начала, а x2, y2 - координаты конца линии.

Линия, выделенная для редактирования (форматирования):

MsWord.ActiveDocument.Shapes.AddLine(x1, y1, x2, y2).;

2. Прямоугольник

MsWord.ActiveDocument.Shapes.AddShape(1, x1, y1, x2, y2);

где x1, y1, x2, y2 - координаты прямоугольника.

3. Произвольная фигура (или автофигура в терминологии MS Word)

В общем случае, произвольная фигура рисуется так:

MsWord.ActiveDocument.Shapes.AddShape(i, x1, y1, x2, y2);

где i - номер фигуры (соответствует порядку следования фигур в MS Word на панели рисования), x1, y1, x2, y2 координаты прямоугольника в который будет вписан объект.

4. Вставка картинки (произвольного изображения) в текущее положение курсора

MsWord.ion.InlineShapes.AddPicture(FileName:='C:WINDOWSПузыри.bmp', LinkToFile:=False, SaveWithDocument:=True);

При выполнении данной команды нужно определить следующие праметры:

FileName - путь к графическому файлу; LinkToFile - булевский флаг, указывающий на необходимость связи с источником; SaveWithDocument - булевский флаг, указывающий на свойства рисунка при сохранении документа.

5. Манипулцяции (форматирование) с фигурами

Выбор фигуры можно осуществить следующим образом:

MsWord.ActiveDocument.Shapes.item(n).;

где n - порядковй номер фигуры.

Заливка фона текущей фигуры

MsWord.ion.ShapeRange.Fill.ForeColor.RGB:=RGB(r, g, b);

где r, g, b - соответственно красная, зеленая и синяя составляющая цвета.

Толщина линий текущей фигуры

MsWord.ion.ShapeRange.Line.Weight:=5;

Цвет линии текущей фигуры

MsWord.ion.ShapeRange.Line.ForeColor.RGB:=RGB(r, g, b);

Группировка фигур

MsWord.ActiveDocument.Shapes.Range(VarArrayOf(['3', '5', '8'])).group;

где 3, 5, 8 - порядковый номер фигуры.

6. Блокировка механизма вывода на экран отрисовки

В случае, если вы не хотите наблюдать как на листе отрисовываются ваши манипуляции с графическими объектами, то можно воспользоваться ниже приведенными командами.

// Выключение обновления экрана
MsWord.ScreenUpdating := False;

// Обновление экрана
MsWord.Application.ScreenRefresh;

// Включение обновления экрана
MsWord.ScreenUpdating := True;

Примечания: