Как установить прозрачность в TImage или TBitMap

[X@OC]

Доброго времени суток

Есть два компонента TImage и TBitMap
возможно ли в каком нибудь из компоненте установить полупрозрачность?

Пытался делать через

TransparentMode
TransparentColor

но эти методы убирают пиксел целиком.

пытался получить следующий результат

Было название "TImage or TBitMap"

[x128]

AlphaBlend

[X@OC]

x128 извените пожалуста за такую просьбу
незаструднит вас скинуть рабочий проект с AlphaBlend?
уменя Delphi 7

спасибо

[Freezer]

можешь это сделать ручками, вот набор нужных функций, правда рисует еще и с эффектом тени, но думаю подправишь где нужно:

//=============================================================================================
function MixBytes(FG, BG, TRANS: byte): byte;//змішує 1 канал двох кольорів з даданою прозорістю
//---------------------------------------------------------------------------------------------
begin
 { asm
     push bx  // push some regs
    push cx
     push dx
     mov DH,TRANS // remembering Transparency value (or Opacity - as you like)
    mov BL,FG    // filling registers with our values
    mov AL,DH    // BL = ForeGround (FG)
    mov CL,BG    // CL = BackGround (BG)
    xor AH,AH    // Clear High-order parts of regs
    xor BH,BH
     xor CH,CH
     mul BL       // AL=AL*BL
    mov BX,AX    // BX=AX
    xor AH,AH
     mov AL,DH
     xor AL,$FF   // AX=(255-TRANS)
    mul CL       // AL=AL*CL
    add AX,BX    // AX=AX+BX
    shr AX,8     // Fine! Here we have mixed value in AL
    pop dx       // Hm... No rubbish after us, ok?
    pop cx
     pop bx       // Bye, dear Assembler - we go home to Delphi!
  end;            }
  Result := round(bg + (fg - bg)/255*TRANS);
end{function MixBytes(FG, BG, TRANS: byte): byte;};

//=============================================================================================
function MixColors(FG, BG: TColor; T: byte): TColor;
//---------------------------------------------------------------------------------------------
var r,g,b:byte;
begin
  R := MixBytes(FG and 255,BG and 255,T); // extracting and mixing Red
  G := MixBytes((FG shr 8) and 255,(BG shr 8) and 255,T); // the same with green
  B := MixBytes((FG shr 16) and 255,(BG shr 16) and 255,T); // and blue, of course
  Result := r+g*256+b*65536; // finishing with combining all channels together
end {function MixColors(FG, BG: TColor; T: byte): TColor;};


//=============================================================================================
procedure MixPixel      // накладає колір на заданий піксель Canvas'а з прозорістю
( Var Dest : TCanvas;   // Canvas на який потрібно накласти
  X, Y : integer;       // координати пікселя
  Color : TColor;       // колік для накладання
  Alpha : byte          // параметр прозорості 0..255
);
//---------------------------------------------------------------------------------------------
begin
  Dest.Pixels[x,y] := MixColors(ColorToRGB(Color), ColorToRGB(Dest.Pixels[x,y]), alpha);
end;

//=============================================================================================
procedure DrawWithShadow  //Малює на Canvas'і заданий регіон з ефектом тіні
( Source : TCanvas;       //Canvas з якого береться малюнок
  sRect : TRect;          //регіон з який буде промальвуватись
  Dest : TCanvas;         //Canvas де буде промальовання
  dX, dY : integer;       //координати на Canvas'і де потрібно промалювати
  SourceAlhpa : byte = 255;     //параметр прозорості базового малюнку 0..255
  ShadowAlhpa : byte  = 70    //параметр прозорості тіні 0..255
);
//---------------------------------------------------------------------------------------------
var x, y : integer;
    xCol, tCol{, dCol} : TColor;
    fx, fy : integer;
begin
  tCol := 0;

  fx := 0;
  fy := 0;
  Dest.CopyMode := cmSrcCopy;
  //відмальовка ефекту по осі X
  for y := sRect.Top to sRect.Bottom - 1 do begin
    for X := sRect.Left to sRect.Right - 1 do begin
      xCol := Source.Pixels[x,y];
      if xCol <> clWhite then begin
        MixPixel(dest, x + dx - sRect.Left, y + dy - sRect.Top, xCol, SourceAlhpa);
        if x > 0 then begin
          if Source.Pixels[x-1, y] = clWhite then begin
            MixPixel(dest, x - 1 + dx, y + dy, xCol, ShadowAlhpa);
          end;
        end;
        if x < sRect.Right then begin
         fx := 1;
         tCol := xCol;
        end;
 //       Dest.Pixels[x + dx, y + dy] := xCol;
      end else
      if fx <> 0 then begin
        MixPixel(dest, x + dx, y + dy, tCol, ShadowAlhpa);
        fx := 0;
      end;
    end;
  end;
  //відмальовка ефекту по осі Y
  for X := sRect.Left to sRect.Right - 1 do begin
    for y := sRect.Top to sRect.Bottom - 1 do begin
      xCol := Source.Pixels[x,y];
      if xCol <> clWhite then begin
        if y > 0 then begin
          if Source.Pixels[x, y-1] = clWhite then begin
            MixPixel(dest, x + dx, y - 1 + dy, xCol, ShadowAlhpa);
          end;
        end;
        if y < sRect.Bottom then begin
         fy := 1;
         tCol := xCol;
        end;
//        Dest.Pixels[x + dx, y + dy] := xCol;
      end else
      if fy <> 0 then begin
        MixPixel(dest, x + dx, y + dy, tCol, ShadowAlhpa);
        fy := 0;
      end;
    end;
  end;
end{procedure DrawWithShadow(Source : TCanvas; sRect : TRect; Dest : TCanvas; dX, dY : integer);};

[x128]

X@OC, для delphi 7 будет проще использовать FastDIB

uses FastDIB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TFastDIB;
begin
  Image1.Picture.LoadFromFile('test1.bmp');

  bmp:=TFastDIB.Create;
  bmp.LoadFromFile('test2.bmp');

  bmp.AlphaDraw(Image1.Canvas.Handle, 0,0, 128, false);

  bmp.Free;
end;

[X@OC]

Всем спасибо за помощь

Но я нашел PNGImage

и еще дополнительный вопрос если можно

где достать компоненты TSTDPanel,TList?
не могу найти

[Delphi_ProGer]

Сообщение от X@OC

TList?

TList в по дефолту есть.