powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / высота линии
11 сообщений из 11, страница 1 из 1
высота линии
    #32783988
BJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
отчет представляет собой несколько колонок . в первой идут расширяющиеся поля, а веркикальные полоски у соседних столбцов при этом не дотягиваются до конца
как в отчете программно увеличить высоту линии?
...
Рейтинг: 0 / 0
высота линии
    #32784003
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а не проще в данном случае воспользоваться границами элемента в который выводятся данные, чем рисовать линии
...
Рейтинг: 0 / 0
высота линии
    #32784080
BJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может и проще, только я не совсем понимаю как
сейчас у меня все это хозяйство находится в рамке
но даже низ ее не отодвигается как надо
...
Рейтинг: 0 / 0
высота линии
    #32784088
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
BJотчет представляет собой несколько колонок . в первой идут расширяющиеся поля, а веркикальные полоски у соседних столбцов при этом не дотягиваются до конца
как в отчете программно увеличить высоту линии?

воспользоваться событием области данных "печать" и рисовать линии методом Line
...
Рейтинг: 0 / 0
высота линии
    #32784155
BJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
мдя.. для Line тоже область данных отодвигать надо..
не понимает расширение..
видимо придется растягивать границы элементов..
все равно - спасибо!
...
Рейтинг: 0 / 0
высота линии
    #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
высота линии
    #32784454
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
http://am.rusimport.ru/MsAccess/topic.aspx?ID=133
...
Рейтинг: 0 / 0
высота линии
    #32784632
BJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемый ищ, писать код я вас не просила, а если отвечаете, то отвечайте нормально, по человечески!

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



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

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

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


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