Вниз
Скачать: CL | DM;

Подогнать размер 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]
>

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


← →
MBo ©   (2009-11-12 19:46) [8]

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


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

через GDI
типа GetTextExtentPoint32


← →
Leonid Troyanovsky ©   (2009-11-12 22:09) [10]


> webpauk ©   (12.11.09 14:11)  

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

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

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

--
Regards, LVT.



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c
1-1231762680
WanderBuild
2009-01-12 15:18
2010.01.03
Нужна помощь по работе с ресурсами (конкретно RT_VERSION)


2-1258113824
Acrisim
2009-11-13 15:03
2010.01.03
Многострочный едит


15-1257115787
Германн
2009-11-02 01:49
2010.01.03
Я правильно понял, что Visual Basic от MS бесплатен?


15-1257096747
Piter
2009-11-01 20:32
2010.01.03
А чем так не повезло моей ветке? (((


15-1256640147
ZeroDivide
2009-10-27 13:42
2010.01.03
IsDelphiDead.com




   Наверх