billed med tekst

text på billede

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;
image1.Canvas.TextOut(10,10,edit1.Text);
end;

Udskriv billede

procedure TForm1.Button3Click(Sender: TObject);

var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;

    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

      RR := Rect(100, 100, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);


    finally
      EndDoc;
  end;
end;
end;

Stoney

Opret en image component.
Dobbeltklik på den
Vælg Load, og hent det billede ind som du vil have.
Det kommer med i .exe-filen.

Opret en EditBox
Opret en Button

Dobbeltklik på din Button og skriv:

  With Image1.Canvas do
  begin
    Brush.Color := clRed; {baggrund}
    Font.Color := clBlue; {Tekst}
    TextOut(10,10,Edit1.Text);
  end;

Så Bliver indholdet af Editbox'en indsat på billedet.
Du kan selvfølgelig også ændre skrifttype osv.