Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.28;
Скачать: CL | DM;

Вниз

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

Наверх




Память: 0.46 MB
Время: 0.006 c
4-90719
BFG
2001-12-27 19:49
2002.02.28
Hook


3-90527
vopros
2002-01-31 09:50
2002.02.28
Как сделать чтобы в paradox базу вход был по паролю?


3-90470
dimonf
2002-02-01 13:19
2002.02.28
Ошибка: Acsess violation adress ... ? Как это понять?


3-90522
ЕвгенийА
2002-02-02 00:57
2002.02.28
Ошибочка при открытии базы...


14-90661
Иван Шихалев
2002-01-15 18:11
2002.02.28
---|Ветка была без названия|---