Что нового

Перемещение картинки на место другой картинки, которая под ней

mmsgeorge

Новичок
Сообщения
96
Репутация
0
Здравствуйте, как сделать, что к примеру, у меня 10 картинок, потом я хватаю одну из них и при отпускании мышки(под ней другая картинка), она становится на ее координаты интересует , как определить, что за картинка, под той которую перемещаю.
Мысли. Делал так у меня создан
Код:
Global $Objekt_massiv = ObjCreate('Scripting.Dictionary')
$Objekt_massiv.CompareMode = 1 ;типа режим массива = текстовый

при перемещении картинки и в момент после отпускания мышки (если под ней другая картинка), картинка которая перемещалась, удаляется
Код:
$KV1 = $Objekt_massiv.Item($ID)
$Objekt_massiv.Remove($ID)
GUICtrlDelete($ID)

далее происходит проверка, если под ней есть картинка, то которая под ней удаляется, на ее место встает та, которая перемещалась
Код:
$Informaciya_okna = GUIGetCursorInfo($GL_dobavit_novost)

If $Objekt_massiv.Exists($Informaciya_okna[4]) then
  $ID1 = $Informaciya_okna[4]
  $informaciya_objekta = ControlGetPos($GL_dobavit_novost, '', $ID1)
  $Objekt_massiv.Remove($ID1)
  GUICtrlDelete($ID1)
endif

$ID = GUICtrlCreatePic( $KV1, $informaciya_objekta[0], $informaciya_objekta[1], $informaciya_objekta[2], $informaciya_objekta[3],-1,$WS_EX_TOPMOST)
GUICtrlSetState(-1,$GUI_DISABLE)
$Objekt_massiv.Add($ID, $KV1)

Думаю есть более легкие пути решения задачи
 
Верх