Hallo Leute,
ich habe ein Delphi Programm, dass über einen Buttonklick einen Screenshot vom "Image" des Programms macht. Diesen Screenshot, der dann automatisch als .bmp gespeichert wird, möchte ich vor dem Speichern mit einem Text versehen. Der Screenshot ist immer 785x265 Pixel groß. Dies möchte ich in der Höhe um 50 Pixel erweitern und in diesen freien Raum einen Text schreiben.
Ich hab es mit dem TextOut probiert, aber es klappt nicht (Fehlermeldung). Der folgende Code, ist der, um den es geht:
Delphi-Quelltext
1:
2:
| Font.Size:=15;
TextOut(20 + Font.Size, 5, 'Informationen zum Screenshot'); |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.SaveBtnClick(Sender: TObject);
var
i:integer;
s:string;
path:string;
begin
i:=0;
path:=extractfilepath(application.exename);
while (i<9) and fileexists(path+'ScreenshotName-'+inttostr(i)+'.bmp') do inc(i);
s:=path+'ScreenshotName-'+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; |
Ich hoffe ihr könnt mir weiterhelfen? Ich komme nicht weiter. Dieser Code speicher ja einfach nur das Image. Wie kann ich es denn verändern?
Danke.
Felix
