equal
deleted
inserted
replaced
909 if (Gear^.FrameTicks div 256) mod 2 = 0 then |
909 if (Gear^.FrameTicks div 256) mod 2 = 0 then |
910 Gear^.Tint:= $FF400000 |
910 Gear^.Tint:= $FF400000 |
911 else |
911 else |
912 Gear^.Tint:= $FF000000; |
912 Gear^.Tint:= $FF000000; |
913 // fade out alpha |
913 // fade out alpha |
914 Gear^.Tint:= (Gear^.Tint and not $FF) or (255 * Gear^.FrameTicks div 3000); |
914 Gear^.Tint:= (Gear^.Tint and (not $FF)) or (255 * Gear^.FrameTicks div 3000); |
915 end |
915 end |
916 end; |
916 end; |
917 |
917 |
918 const handlers: array[TVisualGearType] of TVGearStepProcedure = |
918 const handlers: array[TVisualGearType] of TVGearStepProcedure = |
919 ( |
919 ( |