Нарисовать полупрозрачный прямоугольник на Bitmap или Image

BOOL AlphaBlend(HDC hdcDesk, int nXOriginDest,int nYOriginDesk,
 
                               int nWidthDest, int nHeightDest,
                               HDC hdcSrc, int nXOriginSrc int nYOriginSrc,
                               int nWidthSrc, int nHeightSrc,
                               BLENDFUNCTION blendFDunction);

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *bmp;
bmp =new Graphics::TBitmap;
bmp->LoadFromFile("1.bmp");
 
BLENDFUNCTION bf; // структура
bf.BlendOp = AC_SRC_OVER;
bf.BlendFlags = 0;
bf.SourceConstantAlpha = 50; //величина прозрачности (0-255)
bf.AlphaFormat = 0;
::AlphaBlend(Image1->Canvas->Handle, 0, 0,
                    Image1->ClientWidth,
                    Image1->ClientHeight,
                    bmp->Canvas->Handle, 0, 0,
                    bmp->Width,
                    bmp->Height, bf);
delete bmp;
bmp = NULL;
 
}

Canvas->CopyMode

//---------------------------------------------------------------------------
int k=0;
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Stretch=true;
Image1->Proportional=true;
Image1->Picture->LoadFromFile("2.bmp");
Image2->Stretch=true;
Image2->Proportional=true;
Image2->Picture->LoadFromFile("2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//k=-255/2;
int w= Image1->Picture->Bitmap->Width;
int h= Image1->Picture->Bitmap->Height;
for(int x=0;x<w;x++)
  for(int y=20;y<70;y++)
  {
  int p=Image1->Canvas->Pixels[x][y];
  int b= (GetBValue(p)+k<255)?(GetBValue(p)+k):255;
  int r= (GetRValue(p)+k<255)?(GetRValue(p)+k):255;
  int g= (GetGValue(p)+k<255)?(GetGValue(p)+k):255;
 
  if(b<0) b=0; if(g<0) g=0; if(r<0) r=0;
 
  Image2->Picture->Bitmap->Canvas->Pixels[x][y] = (TColor)RGB(r,g,b);//рисуем
  }
Image2->Repaint();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
k=   TrackBar1->Position;
}
//---------------------------------------------------------------------------

//------------------------------------------------------------------------------
#define SelectObjectF(MAIN,SUBOBJECT) HGDIOBJ hRe##SUBOBJECT = ::SelectObject(MAIN,SUBOBJECT)
#define SelectObjectE(MAIN,SUBOBJECT) ::SelectObject(MAIN,hRe##SUBOBJECT)
// аналог подобных макросов желательно иметь под рукой, если с WinAPI работаете.
//------------------------------------------------------------------------------
void __fastcall FiilRectAlpha(HDC hDestination, TRect Rect, COLORREF AlphaColor, BYTE AlphaValue)
// процедура по добавлению к графическому дескриптору (hDestination) "полу-прозрачной" области (Rect)
// с заданным цветом (AlphaColor) и уровнем прозрачности (AlphaValue)
{
    HBITMAP hAlphaBitmap = ::CreateCompatibleBitmap(hDestination, 1, 1);
    // создаем изображение в памяти с совметимыми параметрами, размером 1х1
    HDC hAlphaDevice = ::CreateCompatibleDC(hDestination);
    // создаем совместимый графический дескриптор в памяти.
    SelectObjectF(hAlphaDevice, hAlphaBitmap);
    // объединяем их.
    ::SetPixelV(hAlphaDevice, 0, 0, AlphaColor);
    // заливаем область заданным цветом.
    
    BLENDFUNCTION hAlphaBlend;
    memset(&hAlphaBlend, NULL, sizeof(BLENDFUNCTION));
    hAlphaBlend.SourceconstantAlpha = AlphaValue;
    // создаем пустое описание для функции, но указываем уровень заливки (0-255).
    
    ::AlphaBlend(hDestination,Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,
        hAlphaDevice, 0, 0, 1, 1, hAplhaBlend);
    // используем функцию с заданными параметрами.
    
    SelectObjectE(hAlphaDevice,hAlphaBitmap);
    // разделяем объекты (если этого возможна будет утечка памяти).
    ::DeleteDC(hAlphaDevice);
    ::DeleteObject(hAlphaBitmap);
    // удаляем созданные в памяти объекты.
}
//------------------------------------------------------------------------------