Logo

  DELPHI - FAQ

  Delphi-FAQ | Allgemeine Tipps | Grafik | Datenbanken | VCL | DLL-Programmierung |
 
  Delphi-FAQ | Grafik |
  anderes Grafikformat (*.jpg) in Bitmap laden

procedure Load_Bitmap(bmp: TBitmap; aFileName: string);
var
  p                 : TPicture;
begin
  if lowercase(ExtractFileExt(aFileName)) <> '.bmp' then begin
    P := TPicture.Create;
    try
      P.LoadFromFile(aFileName);
      bmp.Assign(P.Graphic);
    finally
      P.Free;
    end;
  end
  else
    bmp.LoadFromFile(aFileName);
end;
Bei Verwendung von JPEG-Bildern muß die Unit JPEG.PAS eingebunden werden.



 26.01.2006 © wlsoft www.wlsoft.de