Перемещение Timage

[Razmir]

День добрый. По форме двигаю несколько image, так же по ходу создаю их и удаляю. Как сделать, чтобы они натыкались друг на друга и не перекрывались. Спасибо

[Arigato]

Проверять на пересечение двигаемый со всеми остальными.
Left, Top - координаты верхнего левого угла; Width, Height - ширина и высота.

[Razmir]

Да это я сообразил. Не могу понять как это организовать. Получается что то замудренное. Если сравнивать положение объекта с каждым из существующих, то на каком то этапе (когда их станет слишком много) программа начнет жутко тормозить.

[SERG1980]

использовать лучше один имидж как поле а на нём отрисовывать объекты например TBitMap а ещё лучще создать массив TBitMap

[Arigato]

Много - это сколько? Сделать 1000 сравнений для компьютера не проблема.

[Razmir]

Понял. Халявы не будет. Ок.Тогда подскажите, накидал вот это:

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
          if move then
           begin
              (Sender as Timage).Left:=(Sender as Timage).Left+x-x0;
                if(Sender as Timage).Left<image1.Left then  (Sender as Timage).Left:=image1.Left ;
                   if (Sender as Timage).Left>image1.Left+image1.Width-(Sender as Timage).Width then
                      (Sender as Timage).Left:=image1.Left+image1.Width-(Sender as Timage).Width;




              (Sender as Timage).Top:=(Sender as Timage).Top+y-y0;
                if  (Sender as Timage).Top<image1.top then  (Sender as Timage).Top:=image1.top;
                   if (Sender as Timage).top>image1.top+image1.Height-(Sender as Timage).Height then
                      (Sender as Timage).top:=image1.top+image1.Height-(Sender as Timage).Height;
                i:=1;
           //  for i:=1 to 20 do
             begin
              if {(i<>(sender as timage).tag) and }((Sender as Timage).Left<r[i].Left+r[i].Width) and ((Sender as Timage).Left>(r[i].Left-(Sender as Timage).Width))
                   and ((sender as timage).Top>r[i].Top-(sender as timage).height) and ((sender as timage).Top<r[i].Top+r[i].Height) then
                   begin

                   (sender as timage).Left:=r[i].Left-r[i].Width; ????????????????

                   end;
             end;

не могу сообразить что делать со строкой где вопросы, либо прилипает, либо только по одной из координат работает.
И с одним объектом нормально, а когда их i тое к-во ошибка.

[antonn]

все таки советую прислушаться к SERG1980 и сделать примерно как тут http://forum.sources.ru/index.php?sh...&#entry2001377

[invizor]

Посмотрел код- естественно только по одной координате работает, потому что только left ему меняешь,
я бы так написал:
b1:=TImage(Sender).Left-r[i].Left<r[i].Width;
b2:=TImage(Sender).Top-r[i].Top<r[i].Height;

if b1 then
TImage(Sender).Left:=r[i].Left-r[i].Width;
if b2 then
TImage(Sender).Top:=r[i].Left-r[i].Width;

b1 и b2 boolean, да и проверку на внешние границы тоже стоит переделать