Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / высота линии / 11 сообщений из 11, страница 1 из 1
16.11.2004, 12:32:56
    #32783988
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
отчет представляет собой несколько колонок . в первой идут расширяющиеся поля, а веркикальные полоски у соседних столбцов при этом не дотягиваются до конца
как в отчете программно увеличить высоту линии?
...
Рейтинг: 0 / 0
16.11.2004, 12:37:41
    #32784003
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
а не проще в данном случае воспользоваться границами элемента в который выводятся данные, чем рисовать линии
...
Рейтинг: 0 / 0
16.11.2004, 12:54:02
    #32784080
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
может и проще, только я не совсем понимаю как
сейчас у меня все это хозяйство находится в рамке
но даже низ ее не отодвигается как надо
...
Рейтинг: 0 / 0
16.11.2004, 12:55:36
    #32784088
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
BJотчет представляет собой несколько колонок . в первой идут расширяющиеся поля, а веркикальные полоски у соседних столбцов при этом не дотягиваются до конца
как в отчете программно увеличить высоту линии?

воспользоваться событием области данных "печать" и рисовать линии методом Line
...
Рейтинг: 0 / 0
16.11.2004, 13:07:19
    #32784155
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
мдя.. для Line тоже область данных отодвигать надо..
не понимает расширение..
видимо придется растягивать границы элементов..
все равно - спасибо!
...
Рейтинг: 0 / 0
16.11.2004, 13:20:01
    #32784208
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
охренел что ли?
блин, вечно за вас код
выкладывать надо
вот тебе рисование вокруг
контролов по самому высокому
Sub DrawDetail(CR As Report) 'рисование отрезков в отчетах вокруг полей, где требуется одинаковая высота строки
Dim i As Long
Dim maxh As Long
maxh = 0
CR.DrawMode = 1
CR.DrawWidth = 2
CR.ScaleMode = 1
For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail Then
If CR(i).Height > maxh Then maxh = CR(i).Height
End If
Next i
For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail Then CR.Line (CR(i).Left, CR(i).Top)-Step(CR(i).Width, maxh), , B
Next i
End Sub
...
Рейтинг: 0 / 0
16.11.2004, 14:33:16
    #32784454
Bor-L
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
http://am.rusimport.ru/MsAccess/topic.aspx?ID=133
...
Рейтинг: 0 / 0
16.11.2004, 15:16:03
    #32784632
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
Уважаемый ищ, писать код я вас не просила, а если отвечаете, то отвечайте нормально, по человечески!

2 Bor-L
Спасибо, полезный пример
...
Рейтинг: 0 / 0
16.11.2004, 15:26:26
    #32784669
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
BJУважаемый ищ, писать код я вас не просила, а если отвечаете, то отвечайте нормально, по человечески!



извиняйте што ни так пишу
а вот спасибо надо было мне
ставить. я же дал точно такой
же код
...
Рейтинг: 0 / 0
16.11.2004, 15:27:30
    #32784672
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
BJ2 Bor-L
Спасибо, полезный пример
Дык - это не пример - это реально работающая веЩь!!!
...
Рейтинг: 0 / 0
16.11.2004, 16:20:56
    #32784851
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
высота линии
[quot ищ
извиняйте што ни так пишу
а вот спасибо надо было мне
ставить. я же дал точно такой
же код[/quot]

Конечно же спасибо, но не в таком же тоне

ps: извенения принеты
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / высота линии / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]