Changeset 55 for trunk/Forms


Ignore:
Timestamp:
Nov 5, 2019, 12:47:08 AM (5 years ago)
Author:
chronos
Message:
  • Added: Animation of appearence of new tiles.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.pas

    r50 r55  
    6969        if Length(KeyBuffer) > 1 then
    7070          Move(KeyBuffer[1], KeyBuffer[0], (Length(KeyBuffer) - 1) * SizeOf(Word));
    71         SetLength(KeyBuffer, Length(KeyBuffer) - 1);
     71        if Length(KeyBuffer) > 0 then
     72          SetLength(KeyBuffer, Length(KeyBuffer) - 1);
    7273      end;
    7374    end else begin
Note: See TracChangeset for help on using the changeset viewer.