Hi,
Looking for a fillrect funcion with semitransparency, i founded this.
Please, can someone to translate borland C++ / Harbour ?
Regards
Looking for a fillrect funcion with semitransparency, i founded this.
Please, can someone to translate borland C++ / Harbour ?
bool paintRect(HDC hdc, RECT dim, COLORREF penCol, COLORREF brushCol, unsigned int opacity)
{
HDC tempHdc = CreateCompatibleDC(hdc);
BLENDFUNCTION blend = {AC_SRC_OVER, 0, 127, 0};
HBITMAP hbitmap; // bitmap handle
BITMAPINFO bmi; // bitmap header
// zero the memory for the bitmap info
ZeroMemory(&bmi, sizeof(BITMAPINFO));
// setup bitmap info
// set the bitmap width and height to 60% of the width and height of each of the three horizontal areas. Later on, the blending will occur in the center of each of the three areas.
bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
bmi.bmiHeader.biWidth = dim.right-dim.left;
bmi.bmiHeader.biHeight = dim.bottom-dim.top;
bmi.bmiHeader.biPlanes = 1;
bmi.bmiHeader.biBitCount = 32; // four 8-bit components
bmi.bmiHeader.biCompression = BI_RGB;
bmi.bmiHeader.biSizeImage = (dim.right-dim.left) * (dim.bottom-dim.top) * 4;
// create our DIB section and select the bitmap into the dc
hbitmap = CreateDIBSection(tempHdc, &bmi, DIB_RGB_COLORS, NULL, NULL, 0x0);
SelectObject(tempHdc, hbitmap);
SetDCPenColor(tempHdc, RGB(0,0,255));
SetDCBrushColor(tempHdc, RGB(0,0,255));
FillRect(tempHdc, &dim, CreateSolidBrush(RGB(0,0,255)));
return bool(AlphaBlend(hdc, dim.left, dim.top, dim.right, dim.bottom, tempHdc, dim.left, dim.top, dim.right, dim.bottom, blend));
}Regards