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

[Bummi]

ich würde nicht auf ein TImage zeichnen, male lieber in z.B. einer Paintbox, bei PNG,ICO, etc sind sonst die Transparenzen weg.
Sinnfrei, aber zur Demo

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   jpg:TJpegImage;
   bmp:TBitmap;
begin
   jpg:=TJpegImage.Create;
   jpg.LoadFromFile('C:\bilder1\20111213_120009.jpg');
   Canvas.Draw(100,100,jpg);

   bmp := TBitmap.Create;
   try
     bmp.Width := jpg.Width div 10;
     bmp.height := jpg.Height div 10;
     bmp.Canvas.StretchDraw(Rect(0,0,bmp.Width,bmp.Height),jpg);
     Image1.picture.Bitmap.Assign(bmp);
   finally
     bmp.Free;
   end;
   try

   finally
     jpg.Free;
   end;
end;