Mega Code Archive
Easily load all kind of images [gif, ico, jpeg and more] in a timage
<![CDATA[
{
I've found in the axCtrls-Unit the TOLEGraphic Object. Now it's easy
to display (all ?) many kinds of graphics at a TImage.
For this example you have to create a form with a button and a TImage
(I've named SampleImage). Now implement to following Code.
(Don't forget to Replace 'C:\...\test.gif' at the TFileStream.Create event)
}
uses axCtrls
...procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
try
OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create('C:\...\test.gif', fmOpenRead or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
SampleImage.Picture.Assign(OleGraphic);
finally
fs.Free;
OleGraphic.Free
end;
end;
]]>