equal
deleted
inserted
replaced
430 AddVisualGear:= gear; |
430 AddVisualGear:= gear; |
431 end; |
431 end; |
432 |
432 |
433 procedure DeleteVisualGear(Gear: PVisualGear); |
433 procedure DeleteVisualGear(Gear: PVisualGear); |
434 begin |
434 begin |
435 FreeTexture(Gear^.Tex); |
435 FreeAndNilTexture(Gear^.Tex); |
436 Gear^.Tex:= nil; |
|
437 |
436 |
438 if Gear^.NextGear <> nil then |
437 if Gear^.NextGear <> nil then |
439 Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
438 Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
440 if Gear^.PrevGear <> nil then |
439 if Gear^.PrevGear <> nil then |
441 Gear^.PrevGear^.NextGear:= Gear^.NextGear |
440 Gear^.PrevGear^.NextGear:= Gear^.NextGear |