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.
Bookmarks