...easily load all kind of images (Gif, Ico, Jpeg and more) in a TImage?

Author: M. Senft

Category: Graphic

{
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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base