| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
середина TRect [D7]
IvanZ © (2007-11-16 11:42:00)У меня есть Rect, мне нужно вывести текст по горизонтальной середине Rect. Как это сделать?
Goric (2007-11-16 16:47:00) [1]модуль Types....
function CenterPoint(const Rect: TRect): TPoint;
begin
with Rect do
begin
Result.X := (Right - Left) div 2 + Left;
Result.Y := (Bottom - Top) div 2 + Top;
end;
end;
guav (2007-11-16 11:44:00) [2]DrawText c DT_VCENTER | DT_SINGLELINE
Reindeer Moss Eater (2007-11-16 11:43:00) [3]поделить отнять сложить
homm (2007-11-16 11:43:00) [4]windows.DrawText + F1
| |
