Code: Alles auswählen
// Bild erzeugen
with TImage.Create(self) do // wird beim Destroy der Form wieder freigegeben
begin parent:=self;
width:=PicWidth; height:=PicHeight;
autosize:=false; proportional:=true;
// wenn möglich Bild von der Festplatte laden
pic := 'bilder\'+KNr+'.jpg';
if fileexists(pic)
then begin Picture.LoadFromFile(pic);
if drehen then RotateBitmap(Picture.Bitmap);
end
else begin Picture.Clear;
Picture.Bitmap.SetSize(PicWidth,PicHeight);
end;
// Namen unten ausgeben
y:=Picture.Bitmap.Height-5-length(xname)*12;
with Picture.Bitmap.Canvas do
begin Font.Size:=8;
Brush.Color:=clblack;
Font.Color:=clwhite;
for n in xname do begin TextOut(3,y,n); inc(y,12) end;
end (* with Canvas *);
end (* with TImage *);
Aber wenn ein jpg gefunden und geladen wurde, wird kein Text eingeblendet.