Главная страница
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.01 c
3-90474
HDD
2002-02-03 12:34
2002.02.28
Помогите пожалуйста люди добрые!


3-90445
Ser_Grey
2002-02-01 09:08
2002.02.28
Вроде простой вопрос, а ответа никто не знает!


4-90716
NetBreaker666
2002-01-02 14:09
2002.02.28
Каким образом отключить курсор мышки ?


14-90636
Diana
2002-01-10 10:58
2002.02.28
ТЗ


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