Главная страница
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.041 c
1-1099758887
Павел
2004-11-06 19:34
2004.11.21
компонент наподобии TPageControl


1-1098698943
diabolik_krsk
2004-10-25 14:09
2004.11.21
Обработка событий через TActionlist


1-1099573511
Вася
2004-11-04 16:05
2004.11.21
Приложение без окон


1-1099490129
Oleg_
2004-11-03 16:55
2004.11.21
ТЕКСТ НА РИСУНКЕ РЕЖЕТСЯ


3-1098280573
Tchainik_Delphi
2004-10-20 17:56
2004.11.21
Добавление данных с помощью TIBDataSet.