From 18ccfa57d11558c8255ac1c53c2c2212c5c7d3fb Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 1 Oct 2018 16:30:58 +0200
Subject: alles in der richtigen Farbe malen

---
 raetselunit.inc | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'raetselunit.inc')

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;
-- 
cgit v1.2.3-54-g00ecf