equal
deleted
inserted
replaced
82 New(gear); |
82 New(gear); |
83 FillChar(gear^, sizeof(TVisualGear), 0); |
83 FillChar(gear^, sizeof(TVisualGear), 0); |
84 gear^.X:= real(X); |
84 gear^.X:= real(X); |
85 gear^.Y:= real(Y); |
85 gear^.Y:= real(Y); |
86 gear^.Kind := Kind; |
86 gear^.Kind := Kind; |
87 gear^.doStep:= doStepHandlers[Kind]; |
87 gear^.doStep:= doStepVGHandlers[Kind]; |
88 gear^.State:= 0; |
88 gear^.State:= 0; |
89 gear^.Tint:= $FFFFFFFF; |
89 gear^.Tint:= $FFFFFFFF; |
90 gear^.uid:= VGCounter; |
90 gear^.uid:= VGCounter; |
91 gear^.Layer:= 0; |
91 gear^.Layer:= 0; |
92 |
92 |