Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Получение ширины текста в Memo   Найти похожие ветки 

 
Jano   (2002-01-10 02:12) [0]

Как получить размер (в пикселях) текста введенного
в компонент Memo с учетом межстрочных интервалов?


 
Jano   (2002-01-10 02:16) [1]

Получение не ширины текста, а его высоты.
Сори...


 
MBo   (2002-01-10 08:04) [2]

procedure TForm1.Button3Click(Sender: TObject);
var
TTM:TTextMetric;
begin
GetTextMetrics(GetDC(Memo1.Handle),TTM);
label1.caption:=inttostr(Memo1.Lines.Count*(TTM.tmHeight+TTM.tmExternalLeading));
end;



 
Jano   (2002-01-10 18:49) [3]

TTM.tmHeight (да и все осталное) остается постоянным
и не меняется при изменении шрифта в Memo. Как исправить?


 
MBo   (2002-01-11 15:28) [4]

и правда. пока не разбирался.
вот еще вариант
procedure TForm1.Button2Click(Sender: TObject);
var
r,l,h: LongInt;
begin
l:=length(memo1.Lines.text);
while (l>0) and (memo1.lines.text[l]=#13) or
(memo1.lines.text[l]=#10) do dec(l);
r := memo1.Perform(messages.EM_POSFROMCHAR,l,0);
if r >= 0 then begin
h:=hiWord(r)+abs(memo1.Font.Height);
label1.caption := IntToStr(h);
end;
end;


 
Jano   (2002-01-11 22:04) [5]

Немного подправив все заработало.

procedure TForm1.Button2Click(Sender: TObject);
var
R, L, H: LongInt;
begin
L := Length(Memo1.Lines.Text);
while (L > 0) and (Memo1.Lines.Text[L] = #13)
or (Memo1.Lines.Text[L] = #10) do Dec(L);
R := Memo1.Perform(Messages.EM_POSFROMCHAR, L, 0);
if R >= 0 then begin
H := (HiWord(R) div (Memo1.Lines.Count - 1)) * Memo1.Lines.Count;
Label1.Caption := IntToStr(H);
end;
end;

А нет ли менее навороченного метода?


 
MBo   (2002-01-14 14:11) [6]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1010833133&n=3



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

Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
7-100077
RRR
2001-10-16 14:28
2002.01.31
Вопрос по WinME


6-100031
krimer
2001-11-08 13:50
2002.01.31
как проследить события для TSERVERSOCKET в консольном приложении?


1-99939
StelZ
2002-01-10 21:38
2002.01.31
CGI & Kilyx???


4-100129
-Coban-
2001-12-01 16:45
2002.01.31
Перехват ссылок IE


1-99971
@andrew
2002-01-11 18:35
2002.01.31
ПРИВЕТ ВСЕМ!!! Не подскажите: как сделать так,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский