Помогите с DirectDraw

[Russish]

Скажите пожалуйста, при блиттинге неужели можно использовать только структуру RECT или есть альтернатива, и возможно ли помимо BMP формата использовать, скажем, JPG ?

[mrs2000]

Чем тебе RECT не нравиться. Помойму очень удобно.

Можно jpg, gif, pcx, wmf и т.д.

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

Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hScreenRectcDC As Long, ByVal xScreenRectc As Long, ByVal yScreenRectc As Long, ByVal nScreenRectcWidth As Long, ByVal nScreenRectcHeight As Long, ByVal dwRop As Long) As Long
Public Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Public Sub LoadBitmapFile(DDS As DirectDrawSurface7, ByVal FileName As String)
    Dim StorePic As StdPicture
    Dim Bmp As BITMAP
    Dim hDCPicture As Long, hDCSurface As Long
    Set StorePic = LoadPicture(FileName)
    Call GetObject(StorePic.Handle, Len(Bmp), Bmp)
    hDCPicture = CreateCompatibleDC(ByVal 0&)
    Call SelectObject(hDCPicture, StorePic.Handle)
   
    ddsd.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
    ddsd.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    ddsd.lHeight = Bmp.bmHeight
    ddsd.lWidth = Bmp.bmWidth
    Set DDS = g_DD.CreateSurface(ddsd)
    Call DDS.restore
    hDCSurface = DDS.GetDC
   
    Call StretchBlt(hDCSurface, 0, 0, Bmp.bmWidth, Bmp.bmHeight, hDCPicture, 0, 0, Bmp.bmWidth, Bmp.bmHeight, &HCC0020)
    Call DDS.ReleaseDC(hDCSurface)
    Call DeleteDC(hDCPicture)
    ddck.low = 0
    ddck.high = 0
    Call DDS.SetColorKey(DDCKEY_SRCBLT, ddck)
End Sub

[Russish]

Мне нужно иметь на заднем буфере изображение круга с рисунком внутри, при этом это изображение, при движение, пересекает полосы разных цветов. Если это изображение - BMP то обязательно структурой RECT захватывается цвет фона, на котором изображение рисовалось в редакторе.

[mrs2000]

Используй прозрачный цвет!

[Russish]

???? Прозрачный цвет ????

[mrs2000]

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

Dim ddck  as DDCOLORKEY
Dim surf as DirectDrawSurface7 ' твоя картинка

ddck.low=цвет фона, на котором изображение рисовалось в редакторе
ddck.high=ddck.low

surf.SetColorKey DDCKEY_SRCBLT, ddck

backbuffer.BltFast x,y,surf, rect,  DDBLTFAST_SRCCOLORKEY

[Russish]

Большое спасибо!

[Russish]

Кстати, может кто-нибудь знает: возможно ли поворачивать картинку на разные углы в DX7 или же необходимо только через DX8 ?

[Dagobert]

2 mrs2000
Это работает только для цветового режима 24-бит и дальше, а в 16-бит всё немного по другому.
http://dagobert.scararegis.by.ru/ddraw_print.html

2 Russish
Насчёт поворота не знаю точно, но по-моему через BltFX. Посмотри параметры.

[Gemini]

Вопрос по формуле: как можно сделать поворот картинки за мышкой (поросто вращалась?) если учесть что картинка может вращаться на 360 градусов.

Я знаю X и Y Мышки.
И X и Y Изображения.