I'm loading pictures in a quite simple way;

Code:
procedure AddImage(im:string; where:TAsphyreImages; tolerance:integer);
var
  sad:TBitmap;
begin
  sad := TBitmap.Create;
  sad.LoadFromFile(im);
  with where.Add do
  begin
    Quality    := aqHigh;
    AlphaLevel := alFull;
    PatternSize:= Point(sad.Width, sad.Height);
    Size       := Point(sad.Width, sad.Height);
    VisibleSize:= Point(sad.Width, sad.Height);
    LoadFromBitmap(sad, true, 0, tolerance);
    Name := (extractfilename(kuva)); 
  end;
  sad.Free;
end;

..and I now got mad because this system really doesn't support the black colour: the tolerance defines how black areas are transparent, and this means that there is no black colour. It causes me few problems.


So I'm asking: since I want to retain this my current imageloading system (no TASDB), how I can load PNG- images to Asphyre? Should I just get somewhere a PNG- unit and then change BMP-files into PNG and load them just like before?

This really would make it.