equal
deleted
inserted
replaced
218 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
218 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
219 TVisualGear = record |
219 TVisualGear = record |
220 NextGear, PrevGear: PVisualGear; |
220 NextGear, PrevGear: PVisualGear; |
221 Frame, |
221 Frame, |
222 FrameTicks: Longword; |
222 FrameTicks: Longword; |
223 X : float; |
223 X : real; |
224 Y : float; |
224 Y : real; |
225 dX: float; |
225 dX: real; |
226 dY: float; |
226 dY: real; |
227 tdX: float; |
227 tdX: real; |
228 tdY: float; |
228 tdY: real; |
229 State : Longword; |
229 State : Longword; |
230 Timer: Longword; |
230 Timer: Longword; |
231 Angle, dAngle: real; |
231 Angle, dAngle: real; |
232 Kind: TVisualGearType; |
232 Kind: TVisualGearType; |
233 doStep: TVGearStepProcedure; |
233 doStep: TVGearStepProcedure; |