Changeset 55 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 5, 2019, 12:47:08 AM (5 years ago)

Author:

chronos

Message:

• Added: Animation of appearence of new tiles.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -69 +69 @@
         if Length(KeyBuffer) > 1 then
           Move(KeyBuffer[1], KeyBuffer[0], (Length(KeyBuffer) - 1) * SizeOf(Word));
-        SetLength(KeyBuffer, Length(KeyBuffer) - 1);
+        if Length(KeyBuffer) > 0 then
+          SetLength(KeyBuffer, Length(KeyBuffer) - 1);
       end;
     end else begin