Как победить 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;

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