Image 50% Transparent?

[fcg]

habe was gefunden, was mit hilft:

Delphi-Quellcode:

procedure TForm1.Blend(FromBit, ToBit, NewBit: TBitmap);
var
  pt, pf, pn: PByteArray;
  h, w: Integer;
begin
  for h:=0 to ToBit.Height-1 do
  begin
    pt:= ToBit.ScanLine[h];
    pf:= FromBit.ScanLine[h];
    pn:= NewBit.ScanLine[h];
    for w:=0 to (ToBit.Width *3)-1 do
      pn^[w]:= round(pf^[w] - ((pf^[w]-pt^[w]) / 100 * 
      TrackBar1.Position));
  end;
end;

fcg

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]