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

Вниз

Как победить GetTextMetrics?   Найти похожие ветки 

← →
MBo   (2002-01-12 13:58) [0]

Какой бы размер шрифта Memo не ставил, TextMetric не меняется.
Чего не учел?

var h:hDC;
TTM:TTextMetric;
l:longbool;
begin
h:=GetDC(memo1.handle);
l:=GetTextMetrics(h,TTM);
label1.caption:=inttostr(integer(l));//не 0 - значит, срабатывает
label2.caption:=inttostr(ttm.tmHeight);//всегда 16
DeleteDC(h);

---

← →
MBo   (2002-01-14 13:39) [1]

Получилось. Если интересно (кто-то спрашивал про высоту текста
в Memo), работает так
procedure TForm1.Button4Click(Sender: TObject);
var
DC: HDC;
SaveFont: HFONT;
TTM: TTextMetric;
StrHgt:integer;
begin
DC := GetDC(Memo1.Handle);
if (DC <> 0) then begin
SaveFont := SelectObject(DC,Memo1.Font.Handle);
if (GetTextMetrics(DC,TTM)) then StrHgt:=TTM.tmHeight+TTM.tmExternalLeading;
SelectObject(DC, SaveFont);
ReleaseDC(memo1.handle,DC);
end;
label1.caption := IntToStr(StrHgt);
end;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.004 c