Bitmap und Canvas Zeichnen Dringend Hilfe !!!!!

[SirThornberry]

dann erstellst du einfach ein TBitmap und rufst LoadFromFile auf. Setzt die Größe und gibst mit Canvas.Textout den gewünschten Text auf der Canvas aus. Danach speicherst du das Bild wieder (es wäre natürlich sinnvoller den Barcode nicht in eine Datei zu speichern sondern in einen Stream und das Bitmap von da wieder zu laden)

Delphi-Quellcode:

var
  lBitmap   : TBitmap;
  lTextWidth: Integer;
begin
  lBitmap := TBitmap.Create;
  lBitmap.LoadFromFile('C:\BC\1\'+StBarCode1.code+'.bmp');
  lTextWidth := lBitmap.Canvas.TextWidth('Dein Text');
  lBitmap.Width := lBitmap.Width + lTextWidth;
  lBitmap.Canvas.TextOut(lBitmap.Width - lTextWidth, 0, 'Dein Text');
  lBitmap.SaveToFile('C:\BC\1\'+StBarCode1.code+'.bmp');
  lBitmap.Free;
end;