Вниз
Скачать: 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.007 c
15-1257096747
Piter
2009-11-01 20:32
2010.01.03
А чем так не повезло моей ветке? (((


2-1258002658
Sw
2009-11-12 08:10
2010.01.03
String


15-1256888189
Сергей М.
2009-10-30 10:36
2010.01.03
О птице в облаках


1-1232695597
yurik85
2009-01-23 10:26
2010.01.03
Изменение данных в текстовом файле


3-1232619397
Novice
2009-01-22 13:16
2010.01.03
Разделить параметры запроса.... или как-то так...




   Наверх