Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];
Внизсередина TRect Найти похожие ветки
← →
IvanZ (2007-11-16 11:42) [0]У меня есть Rect, мне нужно вывести текст по горизонтальной середине Rect. Как это сделать?
← →
Reindeer Moss Eater © (2007-11-16 11:43) [1]поделить отнять сложить
← →
homm © (2007-11-16 11:43) [2]windows.DrawText + F1
← →
guav © (2007-11-16 11:44) [3]DrawText c DT_VCENTER | DT_SINGLELINE
← →
Goric © (2007-11-16 16:47) [4]модуль 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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c