| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PaintBox........ [D7, WinXP]

FED ©   (2004-11-09 20:11:00) 

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

---

jack128   (2004-11-09 20:56:00) [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;так подойдет? ;-)

---

Наверх