Bild erzeugen mit String und Grafik

[Fussball-Robby]

kleiner Beispielcode:

Delphi-Quellcode:

procedure TextOnPicture(const InpPicture: TBitmap; OutPicture: TBitmap;
  X, Y: Integer; Text: String; AFont: TFont);
begin
  with OutPicture do
  begin
    Assign(InpPicture);
    with Canvas do
    begin
      Brush.Style := bsClear;
      Font := AFont;
      TextOut(X, Y, Text);
    end;
  end;
end;

function CreateFont(AName: String; ASize: Integer; AColor: TColor; AStyle: TFontStyles): TFont;
begin
  Result := TFont.Create;
  with Result do
  begin
    Name := AName;
    Size := ASize;
    Style := AStyle;
    Color := AColor;
  end;
end;

//Beispielaufruf:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFont: TFont;
begin
  MyFont := CreateFont('Comic Sans Ms', 10, clRed, [fsBold, fsItalic]);
  TextOnPicture(Image1.Picture.Bitmap, Image2.Picture.Bitmap, 10, 10, 'HALLO', MyFont);
end;