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

zusammenfalten · markieren

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;

Text auf Bitmap schreiben

Text auf Bitmap schreiben

Forumregeln