Страница: 1 |
Страница: 1 |
Вопрос: Help !!! TransparentBlt
Добавлено: 05.08.04 14:52
Автор вопроса: rx | Web-сайт:
Vopros nashot API funkcii TransparentBlt...
Vot primer:
Kod form1:
Private Declare Function GetPixel ....
Private Declare Function TransparentBlt ....
Private Sub Picture1_MouseDown ......
Picture2.Cls
TransparentBlt Picture2.hdc, 0,0,
Picture2.Width / 15, Picture2.Height / 15,
Picture1.hdc, 0, 0, Picture1.Width / 15,
Picture1.Height / 15, GetPixel(Picture1.hdc,
X / 15, Y / 15)
End Sub
Eto rabotajet OTLICHNO !!!!
Tolka, kogda ya dzelaju:
Form1.ScaleMode = 3 (pixel)
Picture1.ScaleMode = 3 (pixel)
Picture2.ScaleMode = 3 (pixel)
I UBIRAJU VSJE tam gdze / 15 - nifiga nirabotajet !!!!!!!!!!!
Vchom problema, podskozhite pozhalsta ?????
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #1
Добавлено: 06.08.04 20:45
pixel=twip/15