Puzzle... Помогите со склеиванием кусочков

[Beermonza]

Еще одно уточнение. Mas[i,j].IndexAttach скорее всего должен будет хранить номер группы кусочков, что уже присоединены друг к другу, т.к. в процессе игры никто не запрещает соединять сразу на несколько небольших фрагментов, а после все в один большой. Вам нужно будет сделать счетчик групп NGroup: Word;, ...т.е. при присоединении кусочка к другому, нужно проверить Mas[i,j].IndexAttach первого, если он равен нулю, то присвоить последнему Mas[i,j].IndexAttach:=NGroup+1; , в противном случае просто переписать номер с первого во второй.

[Пальмира]

Mas[i,j].IndexAttach скорее всего должен будет хранить номер группы кусочков, что уже присоединены друг к другу, т.к. в процессе игры никто не запрещает соединять сразу на несколько небольших фрагментов, а после все в один большой

Ага, я уже думала над этим, только реализовать хотела несколько иначе.
Однако, этот способ куда лучше - проверок придется делать гораздо меньше

[Пальмира]

Научилась приклеивать кусочки, но встала проблема с перемещением группы кусочков. На данный момент код для перемещения такой:

procedure TMyImage.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i,j:integer;
begin

If Drag Then
begin //Если флажок установлен, т.е. нажата левая копка мыши

   if self.IndexAtt <> 0 then
   begin
   (Sender As TImage).Left:=(Sender As TImage).Left + X -X0;
   (Sender As TImage).Top:=(Sender As TImage).Top + Y - Y0 ;
        for i:= 1 to 4 do
          for j:=1 to 4 do
          begin
               if puz[i][j].IndexAtt=self.IndexAtt then
                  begin
                        puz[i][j].Left:=puz[i][j].Left + X -X0;
                        puz[i][j].Top:=puz[i][j].Top + Y - Y0 ;
                  end;
          end;
   end
   else
   begin
      (Sender As TImage).Left:=(Sender As TImage).Left + X -X0;
      (Sender As TImage).Top:=(Sender As TImage).Top + Y - Y0 ;
   end;
end;

end;

Однако при этом перемещаются только два кусочка из группы, да и то как то странно перемещаются - кому интересно - прилагаю файл exe. Картинки грузить только *.bmp

[Beermonza]

Если я правильно понимаю, поправите если что, (Sender As TImage) - это тот ваш кусочек, что был подцеплен мышкой и перемещается, т.е. координаты Вы ему уже меняете первыми строками:

  if self.IndexAtt <> 0 then  
    begin

    // вот изменение положения  
    (Sender As TImage).Left:=(Sender As TImage).Left + X -X0;  
    (Sender As TImage).Top:=(Sender As TImage).Top + Y - Y0 ;

... затем, в цикле Вы перебираете все без исключения кусочки, в которые опять же попадает уже перемещаемый, ведь у него индекс группы тот же.

         for i:= 1 to 4 do  
           for j:=1 to 4 do  
           begin
                // условие нужно доработать, т.е. проверять только неактивные кусочки  
                if puz[i][j].IndexAtt=self.IndexAtt then  
                   begin  
                         puz[i][j].Left:=puz[i][j].Left + X -X0;  
                         puz[i][j].Top:=puz[i][j].Top + Y - Y0 ;  
                   end;  
           end;

Вот и выходит, что движение одного в два раза быстрее другого.
Хотелось бы взглянуть на счетчик групп в OnMouseUp, очевидно там ошибка счета, если привязать можно только два кусочка.

[mutabor]

Полезная информация:
Нажата ли левая кнопка можно узнать из переменной Shift: TShiftState
if Shift = [ssLeft] then...

p.s. у меня получилось и больше двух подвигать, если это дерганье можно так назвать
Повнимательней с координатами и с образованием структуры из кусочков. В принципе начало есть, нужно только доработать. Еще желательно чтобы тот кусочек к-рый двигают был сверху других.

Как насчет такой пазл сделать? Кстати посмотрите кто автор.

[Пальмира]

Beermonza , Большое спасибо! После исправления этой ошибки все чудесным образом заработало

mutabor

Как насчет такой пазл сделать? Кстати посмотрите кто автор.

да я бы и непротив сделать что-то наподобие, но время сдачи курсовой работы поджимает Возможно потом ради собственного интереса буду доделывать, доводить до ума и т.д.

[pu4koff]

я для перемещения группы графических объектов создавал специальный Image для перемещения, на котором при начале рисования все эти объекты на Canvas перерисовывал и этот имадж уже таскал, а сами перетаскиваемые объекты соответственно ныкал. Тут правда будет уже трудность с определением че куда прилепить нужно будет при отпускании мыши

[Пальмира]

ну группки-то у меня двигаются теперь и без дополнительного Image. Сейчас другая загвоздка - с прилеплением куска к группе.
Он липнет только в том случае, если группу "таскать" по форме за соседний с ним кусок. В принципе уже поняла, как нужно, но голова сломалась - и никак не могу оформить эту мысль в код - все неувязочка какая-то выходит Поэтому отдохну пару деньков - и снова в бой. Может и придумаю чего...

[Beermonza]

Покажите часть кода на счетчик групп (это у OnMouseUp должно быть), ...возможно у Вас номер группы переназначается при каждом перемещении одного из связных кусочков.

[mutabor]

Пальмира, выкладывайте весь код (в архиве), уже давно вам всё поправили и наладили бы.