Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Линии после текста

2.0K
18 ноября 2004 года
Ranger
15 / / 07.03.2003
Бьюсь над задачкой как мне показалось невозможно реализовать.
В Access вводится текст, который затем отображается в отчете и после него должно идти 2 линии.
У меня либо текст, либо 2 линии, но все это вместе да еще с учетом друг друга - никак.
Помогите плиз.
2.0K
30 ноября 2004 года
Ranger
15 / / 07.03.2003
Цитата:
Originally posted by Ranger
Бьюсь над задачкой как мне показалось невозможно реализовать.
В Access вводится текст, который затем отображается в отчете и после него должно идти 2 линии.
У меня либо текст, либо 2 линии, но все это вместе да еще с учетом друг друга - никак.
Помогите плиз.




Вообщем, игра с API - функциями дала результат.
GetTextExtentPoint32 nDC, ss, Len(ss), TextSize
l = GetTextExtentPoint32(nDC, ss), Len(ss), TextSize)
For CX = 185 To 190 Step TextSize.X
For CY = 360 To 370 Step TextSize.Y
ExtTextOut nDC, CX, CY, 0, ByVal 0&, _
ss, Len(ss), ByVal 0&
Next
Next

GetTextExtentPoint32 nDC, ss, Len(ss), TextSize
MoveToEx nDC, TextSize.X, textsize.y, TextSize
LineTo nDC, 728, 370


НО, проблема оказалась далее в том, что текст я вывожу вместе с линиями на форме а когда хочу это дело распечатать, то на печать API не идет, вместо них - пустота.
Не знаю как победить это.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог