[Помогите!] Image xD

[FarmHitman1]

Доброго времени суток.
Нужна помощь в поправке кода...

if Image1.Picture <> Image3.Picture
then
Image1.Picture := Image3.Picture
else
Image2.Picture := Image3.Picture;

Проблема в том, что он не понимает что картинки одинаковые и выполняет присваивание только выделенной строки...

[victor20011]

сделай сровнение по пикселям
image1.canvas.pixel[x,y] вороде так не помню

[Skrillex3]

Цитата: For i:= 0 to Image1.heigh-1 do for j:=0 to image2.width-1 do Image1.Canvas.Pixels[i,j]:=Image1.canvas.Pixels[i,j];

вот так вроде

[VeTaL_UA(1)]

Попробуй Image1.Picture.Bitmap сравнивать

[FarmHitman1]

Цитата: Сообщение от VeTaL_UA(1) Попробуй Image1.Picture.Bitmap сравнивать

Выполняется только выделенная строка 1 поста.....

Добавлено через 6 минут

Цитата: Сообщение от Skrillex3 вот так вроде

Выдает ошибку: Can only modify an image if it contains a bitmap.

___________________
Сори, тупанул jpg был...

Добавлено через 14 минут
Проблема решена

if Image1.canvas.pixels[24,24] <> Image3.canvas.pixels[24,24]
then
image1.Picture := Image3.Picture
else
image2.Picture := Image3.Picture

Спасибки поставил

Добавлено через 3 часа 24 минуты



И снова проблема...
На этом скрине покупаем 3 зеленых и 1 красное кольцо... При попытке еще брать красные ничего не произойдет
[Ссылки могут видеть только зарегистрированные пользователи. ]

Тут взяли зеленое и оно заменило красное, при последующей покупке зеленых все будет ок, если взять опять красное будет тоже самое, что написано выше...
[Ссылки могут видеть только зарегистрированные пользователи. ]

2 последних скрина все тоже самое только наоборот...
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]

Код для покупки зеленого:

if Image6.canvas.pixels[32,32] = Image20.canvas.pixels[32,32]
then
image6.Picture := Image18.Picture
else
if Image7.canvas.pixels[32,32] <> image6.canvas.pixels[32,32]
then
image7.Picture := Image18.Picture
else
if Image8.canvas.pixels[32,32] <> Image7.canvas.pixels[32,32]
then
image8.Picture := Image18.Picture
else
if Image9.canvas.pixels[32,32] <> Image8.canvas.pixels[32,32]
then
image9.Picture := Image18.Picture
else
if Image10.canvas.pixels[32,32] <> Image9.canvas.pixels[32,32]
then
image10.Picture := Image18.Picture
else
if Image11.canvas.pixels[32,32] <> Image10.canvas.pixels[32,32]
then
image11.Picture := Image18.Picture
else
if Image12.canvas.pixels[32,32] <> Image11.canvas.pixels[32,32]
then
image12.Picture := Image18.Picture
else

И так далее

Код покупки красного:

if Image6.canvas.pixels[32,32] = Image20.canvas.pixels[32,32]
then
image6.Picture := Image27.Picture
else
if Image7.canvas.pixels[32,32] <> Image6.canvas.pixels[32,32]
then
image7.Picture := Image27.Picture
else
if Image8.canvas.pixels[32,32] <> Image7.canvas.pixels[32,32]
then
image8.Picture := Image27.Picture
else
if Image9.canvas.pixels[32,32] <> Image8.canvas.pixels[32,32]
then
image9.Picture := Image27.Picture
else
if Image10.canvas.pixels[32,32] <> Image9.canvas.pixels[32,32]
then
image10.Picture := Image27.Picture
else
if Image11.canvas.pixels[32,32] <> Image10.canvas.pixels[32,32]
then
image11.Picture := Image27.Picture
else
if Image12.canvas.pixels[24,24] <> Image11.canvas.pixels[24,24]
then
image12.Picture := Image27.Picture
else

И так далее

Image18 - Это вид зеленого
Image27 - Красного..
Image20 - Пустая картинка
Помогииитееее

[victor20011]

попробуй еше добавить одну проверку сровенени по цвету
if image2.Canvas.Pixels[i,j]<>rgb(255,255,255) then

[FarmHitman1]

victor20011, не совсем понял как

[victor20011]

if image2.Canvas.Pixels[i,j]<>rgb(255,255,255) then или так точно не помню
mage2.canvas.pixels[32,32]=rgb (цвет в ргб) либо узнай цвет пикселей и просто Image2.canvas.pixels[32,32]=цвет

if image2.Canvas.Pixels[i,j]<>rgb(цвет в ргб) 
begin
if Image6.canvas.pixels[32,32] = Image20.canvas.pixels[32,32]
then
image6.Picture := Image18.Picture
else
if Image7.canvas.pixels[32,32] <> image6.canvas.pixels[32,32]
then
image7.Picture := Image18.Picture
else
if Image8.canvas.pixels[32,32] <> Image7.canvas.pixels[32,32]
then
image8.Picture := Image18.Picture
else
if Image9.canvas.pixels[32,32] <> Image8.canvas.pixels[32,32]
then
image9.Picture := Image18.Picture
else
if Image10.canvas.pixels[32,32] <> Image9.canvas.pixels[32,32]
then
image10.Picture := Image18.Picture
else
if Image11.canvas.pixels[32,32] <> Image10.canvas.pixels[32,32]
then
image11.Picture := Image18.Picture
else
if Image12.canvas.pixels[32,32] <> Image11.canvas.pixels[32,32]
then
image12.Picture := Image18.Picture
else

я хз если так можно но попытка не пытка)

[FarmHitman1]

Мне уже подсказали через массив =)