середина 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

модуль 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;

середина TRect Найти похожие ветки