1 files changed, 38 insertions, 12 deletions

diff --git a/raetselunit.pas b/raetselunit.pas
index b78b37b..6271188 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -41,7 +41,8 @@ type
       speichernBtn,
       ladenBtn,
       druckenBtn:     tButtonWithArrowKeys;
-    zufallSE:         tSpinEdit;
+    zufallSE,
+      druckenSE:      tSpinEdit;
     progressBar1:     tProgressBar;
     aktuelleFarbe:    tColor;
     function besitzerHoehe: longint; dynamic;
@@ -241,9 +242,19 @@ begin
   ladenBtn.caption:='Laden!';
   ladenBtn.onClick:=@ladenOnClick;
   ladenBtn.onKeyDown:=@onKeyDown;
+  druckenSE:=tSpinEdit.create(besitzer);
+  druckenSE.parent:=besitzer;
+  druckenSE.left:=ladenBtn.left+ladenBtn.width+spacing;
+  druckenSE.top:=spacing;
+  druckenSE.value:=1;
+  druckenSE.minValue:=0;
+  druckenSE.maxValue:=65536;
+  druckenSE.showHint:=true;
+  druckenSE.hint:='Anzahl zu druckender Rätsel';
+  druckenSE.onKeyDown:=@onKeyDown;
   druckenBtn:=tButtonWithArrowKeys.create(besitzer);
   druckenBtn.parent:=besitzer;
-  druckenBtn.left:=ladenBtn.left+ladenBtn.width+spacing;
+  druckenBtn.left:=druckenSE.left+druckenSE.width+spacing;
   druckenBtn.top:=spacing;
   druckenBtn.caption:='Drucken!';
   druckenBtn.onClick:=@druckenOnClick;
@@ -390,19 +401,34 @@ procedure tRaetsel.druckenOnClick(sender: tObject);
 var
   safePictureDialog1: tSavePictureDialog;
   img:                tImage;
+  stamm,suffix,name:  string;
+  i:                  longint;
 begin
   safePictureDialog1:=TSavePictureDialog.create(besitzer);
   if safePictureDialog1.execute then begin
-    img:=zeichenFlaeche;
-    zeichenFlaeche:=tImage.create(img.parent);
-    zeichenFlaeche.width:=img.width;
-    zeichenFlaeche.height:=img.height;
-    zeichenFlaeche.canvas.font.size:=img.canvas.font.size;
-    zeichnen(false);
-    zeichenFlaeche.picture.saveToFile(safePictureDialog1.fileName);
-    zeichenFlaeche.free;
-    zeichenFlaeche:=img;
-    img:=nil;
+    suffix:=safePictureDialog1.fileName;
+    while pos('.',suffix)>0 do
+      delete(suffix,1,pos('.',suffix));
+    suffix:='.' + suffix;
+    stamm:=copy(safePictureDialog1.fileName,1,length(safePictureDialog1.fileName)-length(suffix));
+    for i:=1 to druckenSE.value do begin
+      if i>1 then
+        erzeugeOnClick(sender);
+      img:=zeichenFlaeche;
+      zeichenFlaeche:=tImage.create(img.parent);
+      zeichenFlaeche.width:=img.width;
+      zeichenFlaeche.height:=img.height;
+      zeichenFlaeche.canvas.font.size:=img.canvas.font.size;
+      zeichnen(false);
+      if druckenSE.value>1 then
+        name:=stamm + '_' + intToStr(i) + suffix
+      else
+        name:=stamm + suffix;
+      zeichenFlaeche.picture.saveToFile(name);
+      zeichenFlaeche.free;
+      zeichenFlaeche:=img;
+      img:=nil;
+    end;
   end;
   safePictureDialog1.free;
 end;