Image сдвиг

[Maincore]

Есть image1 в нем картинка (размеры image и картинки одинаковы 800*600)
так вот как сдвинуть картинку вверх на 5 пикселей а, ширину оставить неизменную?

[Hacker19_90]

сдвинуть картинку

Image1.Top := Image1.Top - 5

не?
Или я что-то не понял?

[chertovich]

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

[Maincore]

Сообщение от Hacker19_90

Image1.Top := Image1.Top - 5

не?
Или я что-то не понял?

Не совсем, мне нужно сдвинуть картинку в Image, а не само Image.

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

Хорошо бы поподробней узнать.

[phomm]

Думаю, достаточно простого CopyRect
примеры http://programmersforum.ru/showthread.php?t=184756
http://programmersforum.ru/showthread.php?t=173419

Просто делаем копирект имейджа на себя, со смещенным Rect , его кстати легко смещать подпрограмкой OffsetRect

[Stilet]

мне нужно сдвинуть картинку в Image, а не само Image.

Если не секрет зачем?

[Maincore]

Не как не могу разобраться с OffsetRect

OffsetRect(Image1.ClientRect,0,-5);

Ругается на: Constant object cannot be passed as var parameter

[phomm]

var rct : TRect;
...
rct := Image1.ClientRect;
OffsetRect(Rct, 0, -5);
Image1.Canvas.CopyRect(rct, Image1.Canvas, Image1.ClientRect);

ориентировочный код.