equal
deleted
inserted
replaced
670 tmp:= Gear^.Tint and $FF; |
670 tmp:= Gear^.Tint and $FF; |
671 if tdY >= 0 then inc(tmp) |
671 if tdY >= 0 then inc(tmp) |
672 else dec(tmp); |
672 else dec(tmp); |
673 if tmp < round(dX) then tdY:= 1; |
673 if tmp < round(dX) then tdY:= 1; |
674 if tmp > round(dY) then tdY:= -1; |
674 if tmp > round(dY) then tdY:= -1; |
675 if tmp > 255 then tmp := 255; |
675 if tmp > 255 then tmp := 255; |
676 if tmp < 0 then tmp := 0; |
676 if tmp < 0 then tmp := 0; |
677 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or tmp |
677 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or tmp |
678 end |
678 end |
679 end |
679 end |
680 end; |
680 end; |