Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подогнать размер 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);
если конечно не разные шрифты/стили у разных строк.


Наверх

Титульная страница Поиск, карта сайта Написать письмо