Text auf Bitmap schreiben

[FelixA]

Hallo Leute,
ich wollte bei einem Open Source Delphi Code, Informationen in ein Screenshot Bitmap schreiben.

Über den folgenden Code wird ein Screenshot vom "image" des Programms gemacht. Könntet ihr mir weiterhelfen, wie ich in das Screenshot einen Text einfügen kann? Das entstehende BMP soll über dem eigentlichen Screenshot noch eine Zeile schwarzen Text, Schriftart Arial, Schriftgröße 12, auf weißen Hintergrund haben.

Wäre klasse wenn ihr mir weiterhelfen könntet.

Felix

Delphi-Quellcode:

procedure TForm1.SaveBtnClick(Sender: TObject);
{save scope image}
var
  i:integer;
  s:string;
  path:string;
begin
  {Make a new file name}
  i:=0;
  path:=extractfilepath(application.exename);
  while (i<9) and fileexists(path+'Screenshot-'+inttostr(i)+'.bmp') do inc(i);
  s:=path+'Screenshot-'+inttostr(i)+'.bmp';
  if not fileexists(s) then
  with image1.picture.bitmap do
  begin
   pixelformat:=pf24bit;
   savetofile(s);
   posterror('Screen image saved as file '+s);
  end
  else posterror('Screen save failed - max of 10 image files exist');
end;

[dahead]

schau die mal die hilfe zu canvas.textout an. die font angaben änderst du soweit ich mich entsinne über die font eigenschaften (Font.Size, Font.Color, usw.).

[FelixA]

Hallo,
danke schon mal für deine Antwort.
Ich bin noch Delphi Neuling, deshalb entschuldige bitte meiner Einsteiger-Fragen.

Bei der Suche bin ich auf den folgenden Code gestoßen und hab ihn so unter dem ersten "procedure" eingebaut:

Delphi-Quellcode:

procedure TextOut(0, 0: Interger; const Informationen zum Screenshot: string);

Hmm ich erhielt diverse Fehlermeldungen.
Mein Ziel wäre eine gespeicherte BMP im folgenden Style:

Informationen zum Screenshot
|--------------------------|
| Der Screenshot |
|--------------------------|

Danke.

Felix