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

Вниз

PaintBox........   Найти похожие ветки 

← →
FED   (2004-11-09 20:11) [0]

Как в PaintBox разместить несколько (Прямоугольных) графических объектов, так чтоб они не накладывались друг на друга

---

← →
jack128 ©   (2004-11-09 20:56) [1]

var
 Top: Integer;
begin
 Top := 0;
 for i := low(RectArr) to high(RectArr) do
 begin
   OffsetRect(RectArr[i], 0, Top - Rect.Top);
   Canvas.FillRect(RectArr[i]);
   inc(Top, RectArr[i].Bottom - RectArr[i].Top + 10);
 end
end; так подойдет? ;-)

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.46 MB
Время: 0.047 c