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;