делаю часы

[mayhem]

давно не брался за это. подскажите где лага.

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


    Dim region As RECT
    With region
        .Top = 0
        .Left = 0
        .Right = Me.Width / Screen.TwipsPerPixelX - 2
        .Bottom = Me.Height / Screen.TwipsPerPixelY - 2
    End With

    buff = GetDC(Me.hwnd)
    cbuff = CreateCompatibleDC(buff)
   
    SetTextColor cbuff, RGB(255, 150, 0)
    hBrush& = CreateSolidBrush(RGB(0, 0, 0))
    SelectObject cbuff, hBrush

    rez& = Rectangle(cbuff, region.Left, region.Top, region.Right, region.Bottom)
    rez& = DrawText(cbuff, Time, 8, region, DT_CENTER + DT_SINGLELINE + DT_VCENTER + DT_NOCLIP)
   
    rez& = BitBlt(cbuff, region.Left, region.Top, region.Right, region.Bottom, cbuff, 0, 0, SRCCOPY)
   
    ReleaseDC Me.hwnd, cbuff
    ReleaseDC Me.hwnd, cbuff
    DeleteObject hBrush


это все должно отрисовать часы по центру на черном фоне. если писать сразу в buff, все работает но с мерцанием, вспомнил про bitblt но она не хочет перерисовівать форму, нотя возвращает 1.

[tyomitch]

Ты перерисовываешь свою картинку из cbuff в cbuff.
Сомневаюсь, что это то, что тебе нужно.

[mayhem]

упс. но дело тоже не в этом. это просто опечатка

перерисовываю из сbuff в buff

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

rez& = BitBlt(buff, region.Left, region.Top, region.Right, region.Bottom, cbuff, 0, 0, SRCCOPY)

[mayhem]

порешал проблему через createCompatibleBitmap

но теперь все Ч/Б. Есть идеи?

[EUGY]

To create a color bitmap, use the hDC that was used to create the memory device context, as shown in the following code:

HDC memDC = CreateCompatibleDC ( hDC );
HBITMAP memBM = CreateCompatibleBitmap ( hDC );
SelectObject ( memDC, memBM );

[mayhem]

спасибо за совет, но я уже добрался таки до мсдн и часики мои уже разноцветные.

[brodyga]

А можно еще раз озвучить решение, а то я не могу разобраться. У меня в итоге все равно получается черно-белое изображение, а должно быть цветным.

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

'Загружаю фоновый рисунок
Picture1.Picture = LoadPicture(App.Path & "\" & BACKGRNDFILE)
'Создаю hDC
lngDC = CreateCompatibleDC(Picture1.hDC)
'Создаю Bitmap
lngBMP = CreateCompatibleBitmap(lngDC, lngWidthPixels, lngHeightPixels)
'Выбираю объект
SelectObject lngDC, lngBMP
'<Тут вызывается подпрограмма, которая на Picture1 отрисовывает необходимое изображение>
'Копирую отрисованное в Picture1 изображение в свой битмап
BitBlt lngDC, x, y, lngWidthPixels, lngHeightPixels, Picture1.hDC, 0, 0,


Когда я сохраняю картинку из lngDC, то она оказывается чернобелой

Можете

[iGrok]

А можно еще раз озвучить решение, а то я не могу разобраться. У меня в итоге все равно получается черно-белое изображение, а должно быть цветным.

Ну чуть выше же написано, в чём дело. И отсылка к мсдн с подробным объяснением, почему именно так.

Note: When a memory device context is created, it initially has a 1-by-1 monochrome bitmap selected into it. If this memory device context is used in CreateCompatibleBitmap, the bitmap that is created is a monochrome bitmap.

Т.е. надо так: lngBMP = CreateCompatibleBitmap(Picture1.hDC, lngWidthPixels, lngHeightPixels).