Canvas TImage???

[Mooshead]

Hallo,

folgendes Problem:

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? :gruebel:

Viele Grüße

[dajuhsa]

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

[bitsetter]

Hallo,

hast du

Delphi-Quellcode:

uses Jpeg;

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

[Mooshead]

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

uses jpeg ist drin

[bitsetter]

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);

[Mooshead]

Vielen Dank so klappts :dp:

[turboPASCAL]

Oder:

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;