Linien auf TPicture.Bitmap.Canvas funktionieren nicht

[hitzi]

Hallo,

folgender Code zeichnet bei mir keine Linie:

Delphi-Quellcode:

[..]
var bmp : TPicture;
    jpg : TJPEGImage;
begin
[..]
  jpg := TJPEGImage.Create;  
  bmp := TPicture.Create;
  try
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'dat\' + name + '.bmp');
    bmp.Bitmap.Canvas.Pen.Color := clBlack;
    bmp.Bitmap.Canvas.Pen.Style := psSolid;
    bmp.Bitmap.Canvas.Pen.Mode := pmNotXor;
    bmp.Bitmap.Canvas.MoveTo(0, 0);
    bmp.Bitmap.Canvas.LineTo(100, 100);

    jpg.Assign(bmp.Bitmap);
    jpg.SaveToFile(ExtractFilePath(ParamStr(0)) + 'temp\' + ExtractFileName(Filename) + '.jpg');
  finally
    FreeAndNil(bmp);
    FreeAndNil(jpg);
  end;

Ein bmp.Bitmap.Canvas.TextOut funktioniert jedoch und es wird ein Text in der gespeicherten JPG Datei angezeigt. Wo liegt mein Fehler?

Gruss

[barf00s]

dann liegts vllt an dem falschen Pen.Mode -.-°

[turboPASCAL]

Kann ich mir nicht vorstellen, der Code ist i.O. und die Linie wird auch gezeichnet.

pmNotXor zeichnet bei einmaligen Aufruf (der Linie) eine "Inversion" (Invertieren = Inversion ?) der Farben des Bildes.

[hitzi]

Vergesst die Frage :idea:

Ich hatte die falschen Koordinaten und hab so immer an der falschen Stelle im Bild nach der Linie gesucht, welche wegem dem Hintergrund relativ schwer zu sehen ist. Außerdem hab ich auch noch den Mode in pmCopy geändert.

Nochmal ein dickes Sorry.