Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Вниз

Расстояние между строками в Memo   Найти похожие ветки 

 
Simonaln   (2001-12-26 11:32) [0]

Как узнать величину расстояния между строками в Tmemo в пикселях?


 
MBo   (2001-12-26 12:37) [1]

это зависит от размера шрифта.
если Font.height положительное число, то оно как раз дает высоту шрифта плюс доп. пропуск (internal leading) - т.е. высоту строки. Если отрицательное (по умолчанию)- без internal leading. Таким образом, можно контролировать расстояние
Memo1.Font.Height:=16; // не все значения доступны для не-TTF шрифтов
Видимо, есть и низкоуровневые методы.


 
Simonaln   (2001-12-26 12:43) [2]

В моем случае Font.height=-11, т.е. без пропуска. Это значит что высота строки 11 пикселей и пропуска нет вообще?


 
MBo   (2001-12-26 12:59) [3]

нет, высота строки больше(пропуск просто не учитывается). Какой пропуск - думаю, 3. Опытным путем - -11=14, -20=23, -6=9
хотя, казалось бы, должен зависеть от высоты шрифта


 
Simonaln   (2001-12-26 13:46) [4]

А как узнать длину строки текста в пикселях?


 
MBo   (2001-12-26 14:08) [5]

Сanvas мемо недоступен, так что можно воспользоваться, например,
приемом из FAQ. Вот пример для BitBtn
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1009301147&n=0
Есть и другие способы


 
Simonaln   (2001-12-26 14:29) [6]

А какие другие?


 
MBo   (2001-12-26 14:44) [7]

Увы, не знаю ;(
но этот метод отлично работает


 
MBo   (2001-12-26 14:59) [8]

можно еще попытаться через DrawTextEx с DT_CALCRECT, но принцип тот же.
В EM_ сообщениях я подходящего пока не увидел



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
14-42560
VEG
2001-11-18 22:34
2002.01.14
Крупный шрифт


14-42551
Jey
2001-10-30 22:03
2002.01.14
ЗА СТЕКЛОМ


14-42548
apav
2001-11-13 18:31
2002.01.14
ABC


3-42341
kay
2001-12-11 01:15
2002.01.14
Timer


1-42508
nikols
2001-12-26 10:47
2002.01.14
Как русифицировать QuickReport?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский