Category: Graphic
Title: Easily load all kind of images (Gif, Ico, Jpeg and more) in a TImage
Date added: 15.03.2006
Hits: 10050

uses axCtrls
    ...
procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs         := TFileStream.Create('C:\...\image.gif', fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    SampleImage.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;

1. How to convert a bitmap to sepia or greyscale? (3391 Hits)

2. How to draw a bitmap on the desktop? (3977 Hits)

3. How to get a pixel color of the desktop? (5271 Hits)

4. How to get the pixel color in a canvas on the mouse position? (5724 Hits)

5. How to draw an icon on a Timage? (2750 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.