1 files changed, 7 insertions, 5 deletions

diff --git a/raetselunit.inc b/raetselunit.inc
index 634a672..b0d85d1 100644
--- a/raetselunit.inc
+++ b/raetselunit.inc
@@ -675,6 +675,7 @@ end;
 begin
   if (cursorPosition<0) or (cursorPosition>=dim*dim) or startfeld[cursorPosition] then
     exit;
+  alsZugSpeichern;
   {$IFDEF hochhaus}
   if inhalt[cursorPosition]=-1 then
     inhalt[cursorPosition]:=0;
@@ -684,10 +685,7 @@ begin
   if inhalt[cursorPosition]=0 then
     inhalt[cursorPosition]:=-1;
   {$ENDIF}
-  if inhalt[cursorPosition]=-1 then
-    feldFarben[cursorPosition]:=$000000
-  else
-    feldFarben[cursorPosition]:=aktuelleFarbe;
+  feldFarben[cursorPosition]:=aktuelleFarbe;
 end;
 {$ENDIF}
 
@@ -701,11 +699,13 @@ begin
   result:=true;
   {$IFDEF buchstaben}
   if (key>=ord('A')) and (key<=min(ord('A')+groeszen[0]-1,ord('Z'))) then begin
+    alsZugSpeichern;
     inhalt[cursorPosition]:=key-ord('A')+1;
     feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   if (key in [109,189]) then begin
+    alsZugSpeichern;
     inhalt[cursorPosition]:=0;
     feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
@@ -713,14 +713,16 @@ begin
   {$ENDIF}
   {$IFDEF hochhaus}
   if (key>=ord('1')) and (key<=min(ord('1')+groeszen[0]-1,ord('9'))) then begin
+    alsZugSpeichern;
     inhalt[cursorPosition]:=key-ord('1')+1;
     feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   {$ENDIF}
   if (key=ord(' ')) or (key=46) or (key=8) then begin
+    alsZugSpeichern;
     inhalt[cursorPosition]:=-1;
-    feldFarben[cursorPosition]:=$000000;
+    feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   result:=false;