![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подогнать размер RichEdit в зависимости от шрифта и кол-ва строк [D7, XP]
webpauk © (2009-11-12 14:11:00)
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 - не соответствует реальному значению, занимаемому шрифтом
Leonid Troyanovsky (2009-11-12 22:09:00) [1]
> webpauk © (12.11.09 14:11)
> RichEdit1.Font.Height - не соответствует реальному значению,
> занимаемому шрифтом
Дык, и, хрен с ним, чего в ём прокрутки нет, иль,
может, монитор может вырасти вверх/вниз?
Обратная же задача, IMHO, более содержательна:
http://groups.google.com/group/fido7.ru.delphi.chainik/msg/84b5593814a06b9d
--
Regards, LVT.
Zahar (2009-11-12 21:00:00) [2]через GDI
типа GetTextExtentPoint32
MBo (2009-11-12 19:46:00) [3]Неужели всё так безнадежно?
webpauk (2009-11-12 17:24:00) [4]
> Германн © (12.11.09 17:05) [6]
>
сначала сам попробуй
Германн (2009-11-12 17:05:00) [5]
> а каким образом события влияют на свойства?
В справке даже пример есть по данному вопросу.
webpauk (2009-11-12 16:52:00) [6]
> MBo © (12.11.09 16:41) [4]
>
угум. всмотрелся! особенно поразило событие OnMouseUp! впрочем и OnKeyDown - тоже ничего!
MBo (2009-11-12 16:41:00) [7]всмотрелся в список событий?
webpauk (2009-11-12 16:27:00) [8]
> MBo © (12.11.09 15:23) [2]
>
интересная постановка ответа. а каким образом события влияют на свойства?
> sniknik © (12.11.09 14:52) [1]
>
не катит...
MBo (2009-11-12 15:23:00) [9]нужно всмотреться в события TRichjEdit, там есть нужное.
sniknik (2009-11-12 14:52:00) [10]так попробуй, должно работать...
RichEdit1.Height:= RichEdit1.Lines.Count * (RichEdit1.SelAttributes.Height + 2);
если конечно не разные шрифты/стили у разных строк.