| seg_r |
| Отправлено: 27.07.2005, 08:15 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 74
|
Надо нарисовать линию...
использую WordApplication,WordFont,WordParagraphFormat...
т.е.
| CODE |
...
WordApp->Selection->InsertAfter(StringToOleStr("Действителен до"+DateToStr(Form2->DateTimePicker1->Date)+" г.\n\n"));
WordFont->ConnectTo(WordApp->Selection->Font);
WordFont->set_Bold(1);
WordFont->set_Size(12);
WordParagraphFormat->ConnectTo(WordApp->Selection->ParagraphFormat);
WordParagraphFormat->set_Alignment(wdAlignParagraphRight);
WordApp->Selection->Collapse(&Direction);
...
|
под Действителен до хх.хх.хххх г. надо линию нарисовать..., подчеркнутый текст не удовлетворяет нуждам.
Спасибо.
|
|
| seg_r |
| Отправлено: 27.07.2005, 11:33 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 74
|
ну все было просто...
WordApp->ActiveDocument->Shapes->AddLine(10,10,100,10); |
|
|
