Hi !
Try this:
procedure TForm1.Button3Click(Sender: TObject);
var PNG : TPortableNetworkGraphic;
R : TREct;
begin
Image2.Picture.LoadFromFile('TuxMon.ico');
PNG := TPortableNetworkGraphic.create;
PNG.SetSize (Image2.Width, Image2.Height);
R := Rect(0,0,Image2.Width, Image2.Height);
PNG.Canvas.CopyRect(R,Image2.Picture.Icon.Canvas, R);
PNG. SavetoFile('TuxTest.png');
PNG.Free;
end;
And when do you sleep? All day on the forum and coding ....
Winni
Thanks Winni... I see you in every post too
I love comp. programming and like to help others schoolmates with some ideas for projects.
(I'm not expert in Lazarus)
Love this forum, I was about to stop using Lazarus, I was gonna use CodeTyphon instead but its forum is dead xD
I will try your code soon.
Best regards Winni