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

Oksana

Well-Known Member
Lotus team
10.01.2006
329
0
107
#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

Well-Known Member
Lotus team
04.07.2007
2 210
1
37
Латвиджа, Рига
#2
У AppendTable последний параметар - аррай NoteRichTextParagraphStyle.
Именно им.
Конкретно пропертей RightMargin.
 

Oksana

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

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

Omh

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

Oksana

Well-Known Member
Lotus team
10.01.2006
329
0
107
#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 433
351
homepage.mac.com
#8
теоретизируя...
а мобуть не "мучиться" с LS объектами и DXL сделать?
типа шаблон таблицы, в неё ключевые слова
сгенерить массивчик данных, потом либо DOM пройтись по нодам
либо шаблончик наложить XSLT подстановки (генерённый опять же) ...
 

lmike

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

Yakov

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

Oksana

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

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

lmike

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

Akupaka

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

nvyush

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

lmike

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