equal
deleted
inserted
replaced
622 end |
622 end |
623 else |
623 else |
624 |
624 |
625 if ((Gear^.State and gstAnimation) <> 0) then |
625 if ((Gear^.State and gstAnimation) <> 0) then |
626 begin |
626 begin |
627 if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then |
627 if (Gear^.Tag < LongInt(ord(Low(TWave)))) or (Gear^.Tag > LongInt(ord(High(TWave)))) then |
628 begin |
628 begin |
629 Gear^.State:= Gear^.State and (not gstAnimation); |
629 Gear^.State:= Gear^.State and (not gstAnimation); |
630 end |
630 end |
631 else |
631 else |
632 begin |
632 begin |