TPicture in TImage verschieben (auch PNG, etc.)

[Destroxi]

Ja, das kann ich machen, wird wohl auch sein Ziel bringen, ist nur halt nicht ganz so professionell^^
Aber erstmal werd ich diese Möglichkeit nehmen, Danke

Edit: Ich kriegs nich umgewandelt -.-
Assign gibt Access Vioulation Fehler ...

Delphi-Quellcode:

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

Mfg, Destroxi