Через TransparentBlt лучше не рисовать, ибо глючит на 9х.
!Viper! писал(а):только на CreateCompatibleDC ругается? А ты ее объявил при помощи Declare?
'Если предполагаются интенсивные вызовы, то неэффективно каждый раз
'создавать и удалять DC. Поэтому можно создать их один раз в
'вызывающем модуле, а сюда передавать через параметры. Тогда здесь ничего
'не будет создаваться/удаляться.
'Ответственность за наличие битмапов нужных типов в этих DC несёт вызывающий.
TransparentBlt picMain.hdc, x, y, 96, 96, imgG.hdc, 0, 0, &H808080
'Типа рисуем на picMain по координатам x,y размером 96*96 из imgG, со смещением на исходнике 0*0 и прозрачным цветом &H808080
A.A.Z. писал(а):Хм, может, AutoRedraw / ScaleMode криво выставлены?
GSerg писал(а):А зачем он включен?..
GSerg писал(а):А потом refresh делаешь?..
Public Sub redrawScreen()
If redrawing Then Exit Sub
redrawing = True
picMain.Enabled = False
picMain.Line (0, 0)-(picMain.width, picMain.height), RGB(128, 128, 128), BF
For q = 0 To 17
If showMode > 0 Then
TransparentBlt picMain.hdc, x, y, 96, 96, frmRes.imgG.hdc, 0, 0, &H808080
End If
Next q
picMain.Enabled = True
redrawing = False
DoEvents
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 72