Go Delphi image control to load BMP, JPG, GIF, PNG and other methods

Procedure Tform1.button1click (sender:tobject); var  jpg:tjpegimage;//How  to use the JPEG unit BEGIN//display JPG large picture JPG: = tjpegimage.create;  Jpg. LoadFromFile (Getcurrentdir () + ' \pic.jpg ');  Image1.Picture.Bitmap.Assign (jpg); Because the IMG control is a BMP-based  jpg. Free;end;procedure Tform1.button2click (sender:tobject); Begin  //Load 24-bit HD BMP pictures (small, most can be established)  Image1.Picture.Bitmap.LoadFromFile (Getcurrentdir () + ' \pic24 bit-large. bmp '); End;procedure Tform1.button3click (Sender: TObject); var  png:tpngimage;begin  png: = Tpngimage. Create;  Png. LoadFromFile (Getcurrentdir () + ' \pic.png ');  Image1.Picture.Bitmap.Assign (PNG);  Png. Free;end;procedure Tform1.button4click (sender:tobject); var  gif:tgifimage;begin  gif: = tgifimage. Create;  Gif. LoadFromFile (Getcurrentdir () + ' \pic.png ');  Image1.Picture.Bitmap.Assign (GIF);  Gif. Free;end;

Go Delphi image control to load BMP, JPG, GIF, PNG and other methods