Конференция VBStreets

**Sirik** » 13.03.2005 (Вс) 10:46

есть строка.
как узнать длину строки в твипах, если известен шрифт?

**GSerg** » 13.03.2005 (Вс) 10:54

me.textwidth

**Sirik** » 13.03.2005 (Вс) 11:38

thanks

**Ruslan Demidow** » 13.03.2005 (Вс) 16:15

GSerg писал(а):me.textwidth

Т.е. если мы обращаемся к Me.TextWidth - то получаем длину строки учитывая размер шрифта формы? А если использовать TextWidth - то получим длину строки учитывая какой размер шрифта? И какого шрифта?

**tyomitch** » 13.03.2005 (Вс) 16:52

Того же самого.
Полностью одинаковый эффект.

**Ruslan Demidow** » 13.03.2005 (Вс) 17:52

tyomitch писал(а):Того же самого.
Полностью одинаковый эффект.

Т.е. если мне нужно установить RightMargin в RTB равным ширине 80-ти символов, то нужно просто .RightMargin=80 * TextWidt("W")?
Пробовал - результат не тот, что ожидается. Или может где руки кривые у меня?
[edit] Шрифт в RTB используется моноширинный. [/edit]

И ещё. Может быть подскажешь мне - что из себя представляет линейка разметки в Word'е? Хотелось бы сделать такую же у себя в RTB.

**GSerg** » 13.03.2005 (Вс) 18:06

1. Поставь форме такой же шрифт, как у RTB.
2. Просто прямоугольный контрол, в котором рисуй линейку...

**Ruslan Demidow** » 13.03.2005 (Вс) 18:09

GSerg писал(а):1. Поставь форме такой же шрифт, как у RTB.
2. Просто прямоугольный контрол, в котором рисуй линейку...

1. Именно форме? На каких местах формы (заголовок и т.п.) это изменение отразится?
2. А ползунки? Я никогда ещё свои контролы не делал. :oops:

Мне пока всё же легче переделать под себя чужой. :roll:

Пробовал слайдеры прилепить: один ещё куда ни шло (для RightMargin). Но вот второй куда лепить (для отступа первой строки)? Если один на другой - некузяво получается.

**GSerg** » 13.03.2005 (Вс) 18:19

1. Именно. Потому что вызов textwidth идёт именно от неё. Не отразится ни на чём, кроме метода Me.Print.
2. Дык в ворде не ползунок, там их три, причём хитрых и связанных

Можно просто отобразить что-то таскаемое... например, маленький пикчербокс

и обрабатывать движения мыши на нём...

**Cryonyx** » 13.03.2005 (Вс) 18:21

Изменение шрифта формы отразится только на создаваемых после этого контролах да на методе form.print

**Ruslan Demidow** » 13.03.2005 (Вс) 18:25

1. Ага. Понятно.
2. Мда. Задачка, имхо, не из лёгких. Нужно ведь ещё и к количеству символов привязать. и к ширине RTB.

**Ennor** » 13.03.2005 (Вс) 20:48

Ruslan Demidow писал(а):1. Ага. Понятно.
2. Мда. Задачка, имхо, не из лёгких. Нужно ведь ещё и к количеству символов привязать. и к ширине RTB.

И к масштабу - ты в курсе, что он поддерживает масштабирование? Так что, имхо, проще купить существующий Офис, чем писать свой

**Ruslan Demidow** » 14.03.2005 (Пн) 1:34

Ennor писал(а):
Ruslan Demidow писал(а):1. Ага. Понятно.
2. Мда. Задачка, имхо, не из лёгких. Нужно ведь ещё и к количеству символов привязать. и к ширине RTB.

И к масштабу - ты в курсе, что он поддерживает масштабирование? Так что, имхо, проще купить существующий Офис, чем писать свой

Про масштаб - в курсе.

Только я не Офис пишу, а FTN-редактор. Хотелось пользователей порадовать вкусностями. Но видимо эту вкусность (линейка табуляции как в Word'е) придётся отложить.

А вот про построчный выбор текста из RTB (соседний в этом форуме топик) так никто и не смог подсказать.

**marvan** » 14.03.2005 (Пн) 10:29

для определения размеров строки лучше пользоваться API функцией GetTextExtentPoint32.

**Ruslan Demidow** » 14.03.2005 (Пн) 12:17

marvan писал(а):для определения размеров строки лучше пользоваться API функцией GetTextExtentPoint32.

Пример можно?
Да и похоже по названию, что одним из критериев (сейчас на работе, посмотреть не могу) является положение курсора. Я же хочу обрабатывать текст в RTB или ещё до отображения текста письма (например при ответе), или после (например когда пользователь нажал кнопку "Сохранить").

**marvan** » 14.03.2005 (Пн) 14:21

2 Ruslan Demidow
пример использования GetTextExtentPoint32 есть в API-Guide

**Ruslan Demidow** » 14.03.2005 (Пн) 14:39

Ок. Посмотрю.

**tyomitch** » 14.03.2005 (Пн) 14:42

Ruslan, у тебя же не строка, а одна буква. Для одной буквы лучше использовать GetCharABCWidths, как я тебе уже подсказал в http://bbs.vbstreets.ru/viewtopic.php?p=102041#102041

**Ruslan Demidow** » 14.03.2005 (Пн) 14:50

tyomitch писал(а):Ruslan, у тебя же не строка, а одна буква. Для одной буквы лучше использовать GetCharABCWidths, как я тебе уже подсказал в http://bbs.vbstreets.ru/viewtopic.php?p=102041#102041

Да, спасибо, Артём. Я просто решил узнать побольше и про строку.

**kif** » 14.03.2005 (Пн) 16:24

можно еще кинуть на форму label невидимый, запихнуть в него текст, установить размер шрифта, autosize и label.width, если текст конечно небольшой.

**Ruslan Demidow** » 14.03.2005 (Пн) 18:36

Ясно. Спасибо kif

**marvan** » 15.03.2005 (Вт) 12:05

kif писал(а):можно еще кинуть на форму label невидимый, запихнуть в него текст, установить размер шрифта, autosize и label.width, если текст конечно небольшой.

ага. вот за это vb программистов и не любят.
тут один герой байтовый массив в строку переводил, сохраняя его в файл и затем читая с помощью FSO.