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.



Reply With Quote
