прозрачность

[Marsik]

Здравствуйте. Накладываю картинку на картинку данной процеДурой

procedure TForm1.btn1Click(Sender: TObject);
var
  bmp1, bmp2: TBitMap;
  Blend: TBlendFunction;
begin
  bmp1 := TBitMap.Create;
  bmp2 := TBitMap.Create;
  bmp1.LoadFromFile('C:\1.bmp'); 
  bmp2.LoadFromFile('C:\2.bmp'); 
  bmp2.TransparentColor:= clWhite;
  Bmp2.Transparent := True;

  bmp1.PixelFormat := pf32bit; 
  bmp2.PixelFormat := pf32bit;
StretchBlt(bmp1.Canvas.Handle,bmp1.Width-bmp2.Width,bmp1.Height-bmp2.Height,bmp2.Width,bmp2.Height,bmp2.Canvas.Handle,0,0,bmp2.Width,bmp2.Height,SRCCOPY);

Canvas.Draw(0, 0, bmp1) ;

  bmp1.Free; bmp2.Free; 

end;

все окей, вот только почему то прозрачности нет. Но почему? ведь Я назначил прозрачным белый цвет

[Alex Cones]

Попробуйте закомментить Stretch и написать простой draw. По идее должна быть прозрачность. Если будет - проблема в Stretch. Не в параметрах, а в самой реализации процедуры.

[Marsik]

да, прозрачность есть. Как тогда можете предложить поступить в Моей ситуации? (нужно битмап с прозрачностью вставить в правый нижний угол второго битмапа)

[Alex Cones]

BTM2.Canvas.draw(btm1.width - btn2.width, btm1.height - btm2.height, btm2)

[Kostia]

Ну, а если всеже хотите юзать виндозовские функции, то можно заюзать

BOOL TransparentBlt(
  HDC hdcDest,        // handle to destination DC
  int nXOriginDest,   // x-coord of destination upper-left corner
  int nYOriginDest,   // y-coord of destination upper-left corner
  int nWidthDest,     // width of destination rectangle
  int hHeightDest,    // height of destination rectangle
  HDC hdcSrc,         // handle to source DC
  int nXOriginSrc,    // x-coord of source upper-left corner
  int nYOriginSrc,    // y-coord of source upper-left corner
  int nWidthSrc,      // width of source rectangle
  int nHeightSrc,     // height of source rectangle
  UINT crTransparent  // color to make transparent
);

[ZuBy]

procedure TXXX.zAlpha(Src: TBitmap; DstDC: HDC; dx, dy, value: Integer);
var blend: BLENDFUNCTION;
begin
  with blend do
  begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    AlphaFormat := 0;
    SourceConstantAlpha := value;
  end;
  AlphaBlend(DstDC, dx, dy, Src.width, Src.Height,
    Src.canvas.handle, 0, 0, Src.width, Src.height, blend);
end;