Подогнать размер RichEdit в зависимости от шрифта и кол-ва строк

← →
webpauk © (2009-11-12 14:11) [0]

procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Font.Size:=RichEdit1.Font.Size+1; RichEdit1.Height:=(RichEdit1.Lines.Count)*(ABS(RichEdit1.Font.Height)); end;

RichEdit1.Font.Height - не соответствует реальному значению, занимаемому шрифтом

← →
sniknik © (2009-11-12 14:52) [1]

так попробуй, должно работать...
RichEdit1.Height:= RichEdit1.Lines.Count * (RichEdit1.SelAttributes.Height + 2);
если конечно не разные шрифты/стили у разных строк.

← →
MBo © (2009-11-12 15:23) [2]

нужно всмотреться в события TRichjEdit, там есть нужное.

← →
webpauk © (2009-11-12 16:27) [3]

> MBo © (12.11.09 15:23) [2]
>

интересная постановка ответа. а каким образом события влияют на свойства?

> sniknik © (12.11.09 14:52) [1]
>

не катит...

← →
MBo © (2009-11-12 16:41) [4]

всмотрелся в список событий?

← →
webpauk © (2009-11-12 16:52) [5]

> MBo © (12.11.09 16:41) [4]
>

угум. всмотрелся! особенно поразило событие OnMouseUp! впрочем и OnKeyDown - тоже ничего!

← →
Германн © (2009-11-12 17:05) [6]

> а каким образом события влияют на свойства?

В справке даже пример есть по данному вопросу.

← →
webpauk © (2009-11-12 17:24) [7]

> Германн © (12.11.09 17:05) [6]
>

сначала сам попробуй

Неужели всё так безнадежно?

← →
Zahar (2009-11-12 21:00) [9]

через GDI
типа GetTextExtentPoint32

> webpauk © (12.11.09 14:11)

> RichEdit1.Font.Height - не соответствует реальному значению,
> занимаемому шрифтом

Дык, и, хрен с ним, чего в ём прокрутки нет, иль,
может, монитор может вырасти вверх/вниз?

Обратная же задача, IMHO, более содержательна:
http://groups.google.com/group/fido7.ru.delphi.chainik/msg/84b5593814a06b9d

--
Regards, LVT.

Подогнать размер RichEdit в зависимости от шрифта и кол-ва строк Найти похожие ветки