Auf JPEG Bild zeichnen

[DeddyH]

Versuch mal so etwas:

Delphi-Quellcode:

procedure TFrmMain.ShowPictureWithText;
var img: TJPEGImage;
    bm: TBitmap;
    R: TRect;
begin
  img := TJPEGImage.Create;
  try
    img.LoadFromFile('C:\test.jpg');
    bm := TBitmap.Create;
    try
      bm.Assign(img);
      SetBkMode(bm.Canvas.Handle,TRANSPARENT);
      bm.Canvas.Font.Name := 'Arial';
      bm.Canvas.Font.Size := 16;
      bm.Canvas.Font.Color := clRed;
      bm.Canvas.Font.Style := [fsBold];
      R := Rect(0,0,bm.Width,bm.Height);
      DrawText(bm.Canvas.Handle,'Hallo',-1,R,
               DT_VCENTER or DT_CENTER or DT_SINGLELINE);
      Image1.Picture.Assign(bm);
    finally
      bm.Free;
    end;
  finally
    img.Free;
  end;
end;

[edit] Oh sorry, falsch verstanden. Dann nimm doch statt eines TImage eine TPaintbox, zeichne da die Grafik drauf und anschließend den Text darüber, das dürfte das Einfachste sein. [/edit]