Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




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




Наверх





Память: 0.72 MB
Время: 0.019 c
3-99919           Новенький             2001-12-30 20:41  2002.01.31  
Про удаленные данные в таблицах PARADOX.


3-99908           dmitryK               2001-12-29 12:43  2002.01.31  
Через BDE к MSSQL6.5 в Delphi 6


1-99955           Enforcer              2002-01-13 22:54  2002.01.31  
ListBox


1-99940           greenrul              2002-01-13 14:46  2002.01.31  
Подскажите лучший метод реализации этой идеи ->>


1-99952           Flash .x              2002-01-14 06:11  2002.01.31  
DOC FILEZZZ!!! PLZ!!!