var bitmap: TBitmap;
pict: tPicture;
begin
pict:= TPicture.Create;
bitmap:= tbitmap.Create;
try
pict.LoadFromFile('c:\users\roywoll\documents\woll2woll\firepower12\images\switches\ledhot.png');
bitmap.SetSize(pict.Width, pict.height);
bitmap.canvas.Draw(0, 0, pict.Graphic);
wwdbrichedit1.InsertBitmap(bitmap);
finally
pict.Free;
bitmap.Free;
end;
end;
Comments
0 comments
Please sign in to leave a comment.