summaryrefslogtreecommitdiff
path: root/raetselunit.inc
diff options
context:
space:
mode:
Diffstat (limited to 'raetselunit.inc')
-rw-r--r--raetselunit.inc8
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;