|
...easily load all kind of images (Gif, Ico, Jpeg and more) in a TImage?
|
| Autor:
M. Senft |
| [ Print tip
] | | |
{
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;
|
