equal
deleted
inserted
replaced
399 AddVisualGear:= gear; |
399 AddVisualGear:= gear; |
400 end; |
400 end; |
401 |
401 |
402 procedure DeleteVisualGear(Gear: PVisualGear); |
402 procedure DeleteVisualGear(Gear: PVisualGear); |
403 begin |
403 begin |
404 if Gear^.Tex <> nil then |
404 FreeTexture(Gear^.Tex); |
405 FreeTexture(Gear^.Tex); |
|
406 Gear^.Tex:= nil; |
405 Gear^.Tex:= nil; |
407 |
406 |
408 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
407 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
409 if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear |
408 if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear |
410 else VisualGearLayers[Gear^.Layer]:= Gear^.NextGear; |
409 else VisualGearLayers[Gear^.Layer]:= Gear^.NextGear; |