equal
deleted
inserted
replaced
325 AddVisualGear:= gear; |
325 AddVisualGear:= gear; |
326 end; |
326 end; |
327 |
327 |
328 procedure DeleteVisualGear(Gear: PVisualGear); |
328 procedure DeleteVisualGear(Gear: PVisualGear); |
329 begin |
329 begin |
330 if Gear^.Tex <> nil then |
330 if Gear^.Tex <> nil then |
331 FreeTexture(Gear^.Tex); |
331 FreeTexture(Gear^.Tex); |
332 |
332 Gear^.Tex:= nil; |
333 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
333 |
334 if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear |
334 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
335 else VisualGearsList:= Gear^.NextGear; |
335 if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear |
336 |
336 else VisualGearsList:= Gear^.NextGear; |
337 Dispose(Gear) |
337 |
|
338 Dispose(Gear); |
338 end; |
339 end; |
339 |
340 |
340 procedure ProcessVisualGears(Steps: Longword); |
341 procedure ProcessVisualGears(Steps: Longword); |
341 var Gear, t: PVisualGear; |
342 var Gear, t: PVisualGear; |
342 begin |
343 begin |