Unendliche Geschichr; ImageList und TPicture

[DataCool]

Hi Leute,

obwohl das Thema hier schon des öfteren diskutiert wurde,
habe ich bis jetzt keine allgemein gültige Lösung gefunden.

Ich möchte diverse Bmps aus einer ImageList in ein TImage laden !

Dazu habe ich mir folgende Procedure geschrieben :

Delphi-Quellcode:

procedure TfrmMain.GetBmpFromImageList(TargetPicture: TPicture; ImgIdx: Integer; SourceImgL: TImageList);
Var tmpBmp : TBitmap;
begin
  if TargetPicture = Nil then exit;
  tmpBmp := TBitmap.Create;
  try
    TargetPicture.Assign(nil);
    SourceImgL.GetBitmap(ImgIdx,tmpBmp);
    TargetPicture.Assign(tmpBmp);
  finally
    FreeAndNil(tmpBmp);
  end;
end;

Jetzt habe ich das Problem/Phänomen das auf einigen Rechner die geladenen Bmps mit einen weissen Hintergrund dargestellt werden und auf einigen Transparent(so wie es seien soll).

Hat jemand eine Idee warum das so ist, bzw. wie ich den Fehler beheben kann ?

Danke und Gruß

Data