Hallo,

folgendes Problem:

markieren

Delphi-Quellcode:

  Image1.LoadFromFile(Pfad.jpg);
  Image1.Canvas.MoveTo(x,y);
  Image1.Canvas.LineTo(x,y);
  ...

Dann bekomme ich die Meldung:

Zitat:

Can only modify an image if it contains a bitmap

Wie kann ich das umgehen wenn es sich bei dem Bild um ein jpeg handelt?

Viele Grüße

diese frage habe ich auch schon mal gestellt^^, benutze am besten die suchfunktion.

Hallo,

hast du uses Jpeg; hinzugefügt?
EDIT: Du musst das Jpeg Image in ein Bitmap umwandeln.

Ja das hab ich auch schon versucht aber ich weiß nicht genau wie das geht.

uses jpeg ist drin

zusammenfalten · markieren

Delphi-Quellcode:

var
  jpg: TJPEGImage;
begin
  jpg:= TJPEGImage.Create;
  try
    jpg.LoadFromFile(op.FileName);
    image1.Picture.Bitmap.Assign(jpg);
  finally
    jpg.Free;
  end;

  Image1.Canvas.MoveTo(0,0);
  Image1.Canvas.LineTo(80,80);

Vielen Dank so klappts

Oder:

zusammenfalten · markieren

Delphi-Quellcode:

procedure ConvertImageToBitmap(Image: TImage);
var TmpPic: TPicture;
begin
  TmpPic := TPicture.Create;
  try
    TmpPic.Bitmap.Assign(Image.Picture.Graphic);
    Image.Picture.Bitmap.Assign(TmpPic.Bitmap);
  finally
    TmpPic.Free;
  end;
end;

procedure FormXYZ.Bla;
begin
  Image1.LoadFromFile(Pfad.jpg);
  ConvertImageToBitmap(Image1);

  Image1.Picture.Bitmap.Canvas.MoveTo(x,y);
  Image1.Picture.Bitmap.Canvas.LineTo(x,y);

  { Besser Schaut's so aus:

  if Assigned(Image1.Picture.Bitmap) then
    with Image1.Picture.Bitmap do
    begin
      Canvas.MoveTo(x,y);
      Canvas.LineTo(x,y);
    end;

  }
  
  Image1.Invalidate;
end;