Quote from: marty on 23 June 2008, 13:28:59
hi there
this is my first day on vampyre library, and so be good with me, i'm just trying for now lol
this is a transparent png
the load is correct, because when i look on image1_x.png, the transparency is kept.
But the display is not correct, the background is black.
( ubuntu 8.04, lazarus 0.9.24, vampyre last on the site )
procedure TForm1.BitBtn2Click(Sender: TObject);
var
ImgClass: TBaseImage;
AString1,AString2:string;
begin
AString1:='/home/marty/inworker/lazarus0922/testvampyre/brown/image1.png';
AString2:='/home/marty/inworker/lazarus0922/testvampyre/brown/image1_x.png';
imgClass := TSingleImage.Create;
imgClass.Format := ifA8R8G8B8;
imgClass.LoadFromFile(AString1);
imgClass.SaveToFile(AString2);
DisplayImage(Image1.Canvas,0,0,ImgClass);
end;
DisplayImage
anymore, instead I use Canvas.Draw
.Page created in 0.035 seconds with 20 queries.