Главная страница
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.024 c
3-1098685941
Nikolay_S
2004-10-25 10:32
2004.11.21
Microsoft OLE DB Provider for Oracle


1-1099336846
DIS
2004-11-01 22:20
2004.11.21
WebBrowser1.GoBack


4-1097440931
Прямой
2004-10-11 00:42
2004.11.21
Инсталяция в W2K и старше, Где Windows берет размер установленног


6-1095161126
bsa
2004-09-14 15:25
2004.11.21
как извлечь текст (убрать тэги) из html


1-1099859099
Marina_Sm
2004-11-07 23:24
2004.11.21
Почему зарегистрированный com не используют другие приложения?