alles in der richtigen Farbe malen

1 files changed, 8 insertions, 0 deletions

diff --git a/raetselunit.inc b/raetselunit.inc
index b3eb1c5..634a672 100644
--- a/raetselunit.inc
+++ b/raetselunit.inc
@@ -684,6 +684,10 @@ begin
   if inhalt[cursorPosition]=0 then
     inhalt[cursorPosition]:=-1;
   {$ENDIF}
+  if inhalt[cursorPosition]=-1 then
+    feldFarben[cursorPosition]:=$000000
+  else
+    feldFarben[cursorPosition]:=aktuelleFarbe;
 end;
 {$ENDIF}
 
@@ -698,21 +702,25 @@ begin
   {$IFDEF buchstaben}
   if (key>=ord('A')) and (key<=min(ord('A')+groeszen[0]-1,ord('Z'))) then begin
     inhalt[cursorPosition]:=key-ord('A')+1;
+    feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   if (key in [109,189]) then begin
     inhalt[cursorPosition]:=0;
+    feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   {$ENDIF}
   {$IFDEF hochhaus}
   if (key>=ord('1')) and (key<=min(ord('1')+groeszen[0]-1,ord('9'))) then begin
     inhalt[cursorPosition]:=key-ord('1')+1;
+    feldFarben[cursorPosition]:=aktuelleFarbe;
     exit;
   end;
   {$ENDIF}
   if (key=ord(' ')) or (key=46) or (key=8) then begin
     inhalt[cursorPosition]:=-1;
+    feldFarben[cursorPosition]:=$000000;
     exit;
   end;
   result:=false;