Уменьшение межстрочного интервала в RichEdit

← →
VID © (2004-02-05 19:53) [0]

Можно ли такое сделать ? т.е. если например шрифт Courier New, а его размер - 8, то можно ли ко всему этому ещё и уменьшеть межстрочный интервал ?

← →
just me (2004-02-05 20:12) [1]

Примерно так:
var
pf2 : ParaFormat2;
begin
FillChar(pf2, SizeOf(pf2), 0);
pf2.cbSize := SizeOf(PARAFORMAT2);
pf2.dwMask := PFM_LINESPACING;
pf2.bLineSpacingRule := lineSpacing;
SendMessage(Editor.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;

← →
VID © (2004-02-05 23:08) [2]

Этот код вроде бы эффективен но с его помощью получается только УВЕЛИЧИТЬ межстрочный интервал, а вот уменьшить..
если в кач-ве lineSpacing указываю ноль, то не получаю никаких изменений, если 1 - то уже явное увеличение межстрочного интервала.
а мне надо уменьшение...

← →
MBo © (2004-02-06 07:00) [3]

а отрицательные значения не пробовал?

To Mbo: pf2.bLineSpacingRule : Byte, какие там отрицательные значения... :(
по ходу , я понял что это невозможно..
даже в демопримере по использованию RxRichEdit, который поставляется в пакете RX можно изменять межстрочный интервал только в строну увеличения первоначального интервала...

не обратил внимание, что ты не то поле используешь (bLineSpacingRule - стандартные межстрочные интервалы - 1, 1.5 и т.д.)

LONG dyLineSpacing;

Уменьшение межстрочного интервала в RichEdit Найти похожие ветки