Bild wird nicht gedreht!

[The Re@l]

Code:

procedure TForm1.FileListBox1Click(Sender: TObject);

 var
  Jpeg: TJpegImage;
  bmp: TBitmap;
begin
  Jpeg:=TJpegImage.Create;
  bmp := TBitmap.Create;

  try

    jpeg.LoadFromFile(FileListBox1.FileName);
    bmp.Assign(jpeg);
    Image1.Picture.Bitmap.PixelFormat := pf24bit;
    Drehen90Grad(Image1.Picture.Bitmap);
    Image1.Picture.Assign(bmp);

  finally
    jpeg.free;
         end;

end;

Wenn ich die Procedure Drehen90Grad in einem Button verwende und danach Image.refresh; mache dann gehts!
warum so nicht?

[Matze]

Du hast, so wie ich das sehe, das Bild gar nicht in Image1 geladen, oder täusche ich mich da? :gruebel:

[SirThornberry]

Der fehler liegt hier

Delphi-Quellcode:

    Drehen90Grad(Image1.Picture.Bitmap); 
    Image1.Picture.Assign(bmp);

du Drehst "Image1.Picture.Bitmap" und danach überschreibst du "Image1.Picture.Bitmap" mit "bmp"

[Nicodius]

nein du hast einfach kein bild drinnen ans mage übergeben :stupid:

[The Re@l]

Code:

procedure TForm1.FileListBox1Click(Sender: TObject);

var
  Jpeg: TJpegImage;
  bmp: TBitmap;
begin
  Jpeg:=TJpegImage.Create;
  bmp := TBitmap.Create;

  try

    jpeg.LoadFromFile(FileListBox1.FileName);
    bmp.Assign(jpeg);
    Image1.Picture.Assign(bmp);
    Image1.Picture.Bitmap.PixelFormat := pf24bit;
    Drehen90Grad(Image1.Picture.Bitmap);

  finally
    jpeg.free;
         end;

end;

:wall:

Danke :)