Текущий архив: 2007.12.09;
Скачать: CL | DM;

Вниз

середина 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c