Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перемещение картинки [D7, WinME]


VasRog ©   (2004-04-12 21:27:00) 

Вопросик назрел: как можно перемещать изображение по 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.Cli­entRect);
Form1.Image2.Canvas.Draw(Xloc,Yloc,p);
.............................
Но если так сделать, то верхний левый угол картинки переместится в точку (Xloc, Yloc) и при вращении картинки ее верхняя часть будет иногда вылезать как бы за край экрана (следствие переноса в.л.у.) что достаточно странно смотрится, особенно если картинка находится в центре TImag' а.


VasRog   (2004-04-14 22:50:00) [1]

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


dmk   (2004-04-13 23:09:00) [2]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо