Помогите с BitBlt

[XairOn]

Здравствуйте, у меня такая проблема с BitBlt: из Picture1 в Picture2 копирую изображение, причем Picture1 имеет больший размер чем Picture2, коипрование присходит в Picture2_MouseMove(...) и проблема заключается в том, что каждый раз когда пользователь нажимает кнопку на Picture2 изображение копируется из координат 0, 0, а мне нужно, что бы именно из той точки в которую ткнул пользователь (вобщем что-то вроде перетаскивания изображения должно быть). Как это сделать?
Вот отрывок кода:

Код: Выделить всё

BitBlt Picture2.hDC, 0, 0, Picture2.Width / 15, Picture2.Height / 15, Picture1.hDC, <???>, <???>, SRCCOPY


P.S. Не забывайте, что все это происходит в событии MouseMove. Если бы нужно было в Click или MouseDown, было бы слишком просто

[deepslam]

попробуй StretchBlt

[XairOn]

попробуй StretchBlt

И как это должно мне помочь??? Там то же самое получится, я не знаю как определить координаты точки источника из которой нужно копировать! В этом-то и есть мой вопрос - как её найти эту точку???

[Ennor]

...
P.S. Не забывайте, что все это происходит в событии MouseMove. Если бы нужно было в Click или MouseDown, было бы слишком просто

Ну и что сложного-то? Объявляешь в форме какие-нить CurX, CurY и в них пишешь текущие координаты мыши (они у тебя всегда есть в MouseMove()). Ну и при клике используешь эти значения так, как тебе надо...

[ALX_2002]

Код: Выделить всё

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & "\" & Y
End Sub

[XairOn]

мда... вы меня видать не поняли совсем... картинки (вернее PictureBox'ы, содержащие картинки) разного размера, и получается нессответствие координат и проблема в том, что бы найти формулу по которой эти координаты будут высчитываться!

Если бы всё было так просто, как у вас...

[deepslam]

А если так написать:

Код: Выделить всё

BitBlt Picture2.hDC, 0, 0, Picture2.Width / 15, Picture2.Height / 15, Picture1.hDC, picture2.left + X,picture2.top+Y, SRCCOPY

хотя я может не совсем понял...

[XairOn]

Скорее всего ты не так понял. Зачем picture2.left и picture2.top - он ведь на месте стоит?!

[KDima]

XairOn
А тема: "Немогу подобрать свойство к PictureBox."

Насколько я понял нужно:
Пользователь двигает мышкой по пикчуре и перемещается по ней...
X = PictureSmall.Ширина / PictureBig.Ширина * mouseX
Y = PictureSmall.Высота / PictureBig.Высота * mouseY

[XairOn]

А тема: "Немогу подобрать свойство к PictureBox."

KDima > Молодец, память хорошая Хотя не так давно уж это было.

За совет спасибо, сам справился