Spielnummern neu

1 files changed, 21 insertions, 3 deletions

diff --git a/raetselunit.pas b/raetselunit.pas
index 4e0ffae..04052b9 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -4,8 +4,6 @@ unit raetselunit;
 
 interface
 
-// TODO: Spielnummernzufall
-
 // TODO: Cross-Compilieren
 
 uses
@@ -32,6 +30,8 @@ type
     vorherMalFarbe: TColor;
   end;
 
+  tOnSetCaption = procedure(c: string) of object;
+
   tRaetsel = class
   private
     besitzer:         tForm;
@@ -40,6 +40,7 @@ type
     erzeugeBtn,
       speichernBtn,
       ladenBtn:       tButtonWithArrowKeys;
+    zufallSE:         tSpinEdit;
     progressbar1:     tProgressBar;
     aktuelleFarbe:    tColor;
     function besitzerHoehe: longint; dynamic;
@@ -66,6 +67,7 @@ type
     procedure speichern(var datei: file); dynamic;
     procedure laden(var datei: file); dynamic;
   public
+    onSetCaption: tOnSetCaption;
     constructor create(aOwner: tForm);
     destructor destroy; override;
     procedure zeichnen; dynamic; abstract;
@@ -230,6 +232,16 @@ begin
   ladenBtn.caption:='Laden!';
   ladenBtn.onClick:=@ladenOnClick;
   ladenBtn.onKeyDown:=@onKeyDown;
+  zufallSE:=tSpinEdit.create(besitzer);
+  zufallSE.parent:=besitzer;
+  zufallSE.top:=erzeugeBtn.top+erzeugeBtn.height+spacing;
+  zufallSE.left:=spacing;
+  zufallSE.width:=64;
+  zufallSE.minValue:=0;
+  zufallSE.maxValue:=99999;
+  zufallSE.value:=random(zufallSE.maxValue+1);
+  zufallSE.showHint:=true;
+  zufallSE.hint:='Nummer';
   progressbar1:=tProgressBar.create(besitzer);
   progressbar1.visible:=false;
   progressbar1.parent:=besitzer;
@@ -312,6 +324,10 @@ end;
 procedure tRaetsel.erzeugeOnClick(sender: tObject);
 begin
   loeschen;
+  randSeed:=zufallSE.value;
+  if assigned(onSetCaption) then
+    onSetCaption(intToStr(zufallSE.value));
+  zufallSE.value:=random(zufallSE.maxValue+1);
   loesen(-1);
   randErzeugen;
   leeren;
@@ -396,7 +412,9 @@ begin
     with spinEdits[i] do begin
       parent:=besitzer;
       top:=erzeugeBtn.top+erzeugeBtn.height+spacing;
-      if i>0 then begin
+      if i=0 then
+        left:=zufallSE.left + zufallSE.width
+      else begin
         left:=spinEdits[i-1].left + spinEdits[i-1].width;
         value:=groeszen[i-1];
       end;