Как задать ширину таблицы

[Oksana]

создаю таблицу и заполняю таблицу скрптом. Таблица по умолчанию, создается на всю ширину поля со столбцами одинаковой ширины.
Как бы мне задать общую ширину таблицы, например 15 см? Что-то не смогла найти где это задается
создаю и заполняю так (если это важно):
[codebox]
Set MailBody = New NotesRichTextItem( MailDoc, "Body" )
......
'создадим таблицу (i+2)*4
Call MailBody.AppendTable(i+2,4)
Set rtnav = MailBody.CreateNavigator
'заполним шапку таблицы
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
Call MailBody.BeginInsert(rtnav)
Call Mailbody.AppendText("ФИО исполнителя")
Call Mailbody.EndInsert
.......[/codebox]

 

[Omh]

У AppendTable последний параметар - аррай NoteRichTextParagraphStyle.
Именно им.
Конкретно пропертей RightMargin.

 

[Oksana]

У AppendTable последний параметар - аррай NoteRichTextParagraphStyle.
Именно им.
Конкретно пропертей RightMargin.

играюсь взяла как из хелпа, добавила, но результата не увидела у себя
[codebox]
Set rtpStyle = session.CreateRichTextParagraphStyle
rtpStyle.RightMargin = RULER_ONE_INCH * 0.75
Call MailBody.AppendParagraphStyle(rtpStyle)
[/codebox]

в принципе посмотрела, что при выводе на печать все равно масштабирует как надо (не влазит за ширину листа), но все же интересно как задать принудительно, что не так делаю

 

[Omh]

Array должен содержать столько элементов, сколько у тебя колонок.
Ширина каждой колонки задаётся соответсвующим элеменом array'а.

 

[Oksana]

Array должен содержать столько элементов, сколько у тебя колонок.
Ширина каждой колонки задаётся соответсвующим элеменом array'а.

ну хорошо, а как задать, например, 5 см
когда я попробовала центрирование, оно действительно только к первой ячейке первого столбца применилось, а вот на ширину ни какой реакции вообще.

играюсь дальше...
взяла из хелпа, добавила себе
[codebox]
Dim styles(1 To 3) As NotesRichTextParagraphStyle
For k = 1 To 3 Step 1
Set styles(k) = session.CreateRichTextParagraphStyle
styles(k).LeftMargin = 0
styles(k).FirstLineLeftMargin = 0
styles(k).RightMargin = RULER_ONE_INCH * 1.5
Next

Call MailBody.AppendTable(i+2,4,, RULER_ONE_INCH * 1.5, styles)
[/codebox]
стал лотус вылетать при выполнении агента

 

[Omh]

Call MailBody.AppendTable(i+2,4,, RULER_ONE_INCH * 1.5, styles)

Что у тебя i тут?
Должно быть единице, что бы было 3 колонки и 3 (было 2 - затупил) элемента в styles

 

[Oksana]

Что у тебя i тут?
Должно быть единице, что бы было 3 колонки и 2 элемента в styles

i - это кол-во строк, тут все верно
я со столбцами ошиблась, при создании стиля
у меня все получилось, спасибо

 

[lmike]

теоретизируя...
а мобуть не "мучиться" с LS объектами и DXL сделать?
типа шаблон таблицы, в неё ключевые слова
сгенерить массивчик данных, потом либо DOM пройтись по нодам
либо шаблончик наложить XSLT подстановки (генерённый опять же) ...

 

[Omh]

lmike, тебя прёт палить из плазмагана по воробьям.

 

[lmike]

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

 

[Yakov]

lmike
+1
Сегодня используешь таблицы в RTI, а завтра все равно придешь к XML + XSLT. Так зачем тратить время зря?

 

[Oksana]

теоретизируя...
а мобуть не "мучиться" с LS объектами и DXL сделать?
типа шаблон таблицы, в неё ключевые слова
сгенерить массивчик данных, потом либо DOM пройтись по нодам
либо шаблончик наложить XSLT подстановки (генерённый опять же) ...

скажу честно, DXL не знаю, и начинать изучать его за 2 дня до отпуска не буду
исходя из своей задачи, мне было достаточтно тех средств, что я задействовала

вот если у меня дойдет дело до DXL, непременно, обращусь к вам ))

 

[AvasKvas]

а есть другой способ задать размер столбца?

 

[Akupaka]

lmike, тебя прёт палить из плазмагана по воробьям

+1
для каждой задачи есть свое решение и не обязательно наворачивать фреймворк, чтобы показать "Здравствуй, Мир!"

 

[Omh]

а есть другой способ задать размер столбца?

DXL, DXL, кто успел, тот присел!

 

[lmike]

+1
для каждой задачи есть свое решение и не обязательно наворачивать фреймворк, чтобы показать "Здравствуй, Мир!" :mellow:

Роман, все одно ты юзаешь фреймворки, дык зачем юзать убоги и глючные?
и кода будет не больше
всё о чём идет речь - привыка "биться головой в стену"
простой пример:
люди в офисе не знают Васика для офиса (я тоже "плохо" знаю), они готовы плодить формулы эхеля на кажном листе, вместо модуля (файлов и листов очень много)
на это они потратят горяздо больше времени, чем на поиск примеров, отладку и изучение Васика (но им кажется - что это не так)

 

[Akupaka]

Роман, все одно ты юзаешь фреймворки

:mellow: хм... не помню чтобы я представлялся ))) или мы знакомы помимо форума?.. голова моя голова, забывчивый стал...
мне DXL не нравится, потому что требуется процесс выгрузки и загрузки, вот если бы "на лету" можно было бы менять живой док, а не гонять его туда-сюда...

 

[nvyush]

Роман, все одно ты юзаешь фреймворки, дык зачем юзать убоги и глючные? :mellow:
и кода будет не больше
всё о чём идет речь - привыка "биться головой в стену"
простой пример:
люди в офисе не знают Васика для офиса (я тоже "плохо" знаю), они готовы плодить формулы эхеля на кажном листе, вместо модуля (файлов и листов очень много)
на это они потратят горяздо больше времени, чем на поиск примеров, отладку и изучение Васика (но им кажется - что это не так)

Сорри за оффтопик, а можно ли использовать в лотусовом клиенте более удобный интерфейс, а не его убогий UI?

 

[Omh]

А в чём убогость?

 

[lmike]

nvy
ЮИ (как концепт) нотусей не убогий - он выполняет свою задачу
вот реализация отдельных сущностей - да, убогая
юзать можно Swing, но рисовать придётся самому, притом всяки кнопки и формулы и эвенты реализовывать