|
Вопрос # 6 259/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Помогите решить один (а может и не один) вопрос.
Программно создается документ PDF с одной таблицей (2 столбца, 9 строк). Используется компонент VisPDFLib.
При заполнении ячеек таблицы возникает ситуация, когда текст выходит за пределы размеров ячейки таблицы.
Текст в ячейки таблицы передается из Edit и MEMO.
Вопрос.
Как сделать что-то наподобие "резиновой таблицы", т.е. при наличии в Memo более 1 строки, ячейка таблицы, куда заносятся данные из Memo, автоматически расширялась по высоте (как в WORD).
Заранее благодарен
Al_Sha
Приложение: Переключить в обычный режим-
- procedure ShowTable ( X, Y: Integer);
- begin
-
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.Stroke;
-
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 100 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 150 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 200 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 250 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 300 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 350 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 400 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.MoveTo( X + 275, Y ); //( X + 130, Y );
- VPDF.CurrentPage.LineTo( X + 275, Y + 450 ); //( X + 130, Y + 100 );
- VPDF.CurrentPage.Stroke;
- end;
-
-
- VPDF.CurrentPage.SetFont('Arial', [fsBold, fsUnderline], 20, 204);
-
- ShowTable(20, 60);
- VPDF.CurrentPage.SetFont('Arial Narrow', [fsBold], 10, 204);
- VPDF.CurrentPage.TextOut( 40, 80, 0, Edit1.text );
- VPDF.CurrentPage.TextOut( 40, 120, 0, Edit2.text );
- VPDF.CurrentPage.TextOut( 40, 170, 0, Memo1.Lines);
-
-
-
-
 |
Вопрос задал: Al_Sha (статус: Посетитель)
Вопрос отправлен: 12 сентября 2012, 16:08
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
