Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.04 c
1-1099394494
Ms.Dunkul
2004-11-02 14:21
2004.11.21
Обозначение клавиш.


14-1099469043
Sergey_Masloff
2004-11-03 11:04
2004.11.21
Визуальное наследование, Суслики(с) и оффтопики в чужих ветках


14-1099543809
Skier
2004-11-04 07:50
2004.11.21
И всё-таки Буш...


14-1099563938
k@rt_
2004-11-04 13:25
2004.11.21
Отказано в доступе.


14-1099171977
Yegorchic
2004-10-31 01:32
2004.11.21
Генератор алгоритма