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

Oksana

Lotus team
10.01.2006
329
0
#1
создаю таблицу и заполняю таблицу скрптом. Таблица по умолчанию, создается на всю ширину поля со столбцами одинаковой ширины.
Как бы мне задать общую ширину таблицы, например 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

Lotus team
04.07.2007
2 210
1
#2
У AppendTable последний параметар - аррай NoteRichTextParagraphStyle.
Именно им.
Конкретно пропертей RightMargin.
 

Oksana

Lotus team
10.01.2006
329
0
#3
У AppendTable последний параметар - аррай NoteRichTextParagraphStyle.
Именно им.
Конкретно пропертей RightMargin.
играюсь :D взяла как из хелпа, добавила, но результата не увидела у себя
[codebox]
Set rtpStyle = session.CreateRichTextParagraphStyle
rtpStyle.RightMargin = RULER_ONE_INCH * 0.75
Call MailBody.AppendParagraphStyle(rtpStyle)
[/codebox]

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

Omh

Lotus team
04.07.2007
2 210
1
#4
Array должен содержать столько элементов, сколько у тебя колонок.
Ширина каждой колонки задаётся соответсвующим элеменом array'а.
 

Oksana

Lotus team
10.01.2006
329
0
#5
Array должен содержать столько элементов, сколько у тебя колонок.
Ширина каждой колонки задаётся соответсвующим элеменом array'а.
ну хорошо, а как задать, например, 5 см
когда я попробовала центрирование, оно действительно только к первой ячейке первого столбца применилось, а вот на ширину ни какой реакции вообще.

играюсь дальше... :D
взяла из хелпа, добавила себе
[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]
стал лотус вылетать при выполнении агента
 

lmike

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

Omh

Lotus team
04.07.2007
2 210
1
#9
lmike, тебя прёт палить из плазмагана по воробьям.
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 583
269
#10
ну почему же - однють ;)
ведь писать таблицы в коде - это хардкодить, что затрудняет поддержку и модификацию
этож интерфейсная шняга...
многие фрэймворки стремятся именно отдалить от написания кода на к-л языке и предоставляют xml для рулёжки
 
Y

Yakov

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

Oksana

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

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

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 583
269
#16
+1
для каждой задачи есть свое решение и не обязательно наворачивать фреймворк, чтобы показать "Здравствуй, Мир!" :mellow:
Роман, все одно ты юзаешь фреймворки, дык зачем юзать убоги и глючные? :)
и кода будет не больше
всё о чём идет речь - привыка "биться головой в стену"
простой пример:
люди в офисе не знают Васика для офиса (я тоже "плохо" знаю), они готовы плодить формулы эхеля на кажном листе, вместо модуля (файлов и листов очень много)
на это они потратят горяздо больше времени, чем на поиск примеров, отладку и изучение Васика (но им кажется - что это не так)
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#17
Роман, все одно ты юзаешь фреймворки
:mellow: хм... не помню чтобы я представлялся ))) или мы знакомы помимо форума?.. голова моя голова, забывчивый стал...
мне DXL не нравится, потому что требуется процесс выгрузки и загрузки, вот если бы "на лету" можно было бы менять живой док, а не гонять его туда-сюда...
 

nvyush

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

lmike

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