Перемещение картинки

← →
VasRog © (2004-04-12 21:27) [0]

Вопросик назрел: как можно перемещать изображение по TImag"у не используя Draw. С использованием Draw я сделал вот так:
............................
Xloc:=TrackBar5.Position;
Yloc:=TrackBar6.Position;
Image2.Canvas.Brush.Color:=Color;
Form1.Image2.Canvas.Draw(Xloc,Yloc,p);
Form1.Image2.Canvas.FillRect(Image2.ClientRect);
Form1.Image2.Canvas.Draw(Xloc,Yloc,p);
.............................
Но если так сделать, то верхний левый угол картинки переместится в точку (Xloc, Yloc) и при вращении картинки ее верхняя часть будет иногда вылезать как бы за край экрана (следствие переноса в.л.у.) что достаточно странно смотрится, особенно если картинка находится в центре TImag" а.

← →
dmk © (2004-04-13 23:09) [1]

Windows.ScrollDC(Canvas.Handle, DeltaX, DeltaY, ScrollRect, ClipRect, 0, nil);

Что-то не получается. Объясни поподробнее что такое ScrollRect, ClipRect или может быть ошибка сокрыта в нулях, но прописав эту строку у меня просто весь TImage заливается белым цветом.

Перемещение картинки Найти похожие ветки