Switch branches/tags
Nothing to show
Find file History
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
..
Failed to load latest commit information.
Execute.GDIPBitmap.pas
ExecuteGDPBitmap.pas
README.md

README.md

GDIPBitmap

this little unit let you load any GDI+ supported graphic format (BMP, JPG, PNG or TIF) into a Delphi TBitmap

it's a TBitmap helper, so just add the unit to you're project and call the method GDIPLoadFromStream

uses
  Execute.GDIPBitmap;
var
  bitmap: TBitmap;
  stream: TFileStream;
begin
  bitmap := TBitmap.Create;
  stream := TFileStream.Create('SAMPLE.JPG', fmOpenRead or fmShareDenyNone);
  bitmap.GDIPLoadFromStream(stream):
  stream.Free;
end;

ExecuteGDIPBitmap.pas is a Delphi 5, 6, 7 (and probably olders) compatible version