diff options
Diffstat (limited to 'raetselunit.inc')
-rw-r--r-- | raetselunit.inc | 8 |
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; |