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

Вниз

Размер межстрочного интервала в memo или Richedit.   Найти похожие ветки 

 
Алексей126734345   (2002-07-31 06:35) [0]

Привет, всем.
У меня вот какой вопрос. Как получить и регулировать размер межстрочного интервала в memo или Richedit. Желателен пример.


 
MBo ©   (2002-07-31 06:44) [1]

rocedure 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.08.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
3-35197
Explorer
2002-07-23 14:56
2002.08.12
Как связать(Master/Detail) два DBGrida


1-35262
V.Turecky
2002-07-30 14:54
2002.08.12
Загрузка из DLL ICO файла...


4-35500
Max2000
2002-06-04 12:48
2002.08.12
Как как на API открывать и закрывать доступ к диску или папке.


3-35173
maxim2
2002-07-23 09:58
2002.08.12
Почему дублируются записи?


7-35480
Varfolomey
2002-05-28 05:28
2002.08.12
Люди как подвесить Винду?