Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uVisualGears.pas
changeset 6380 1ff5ad1d771b
parent 6323 c1aa6a3c84a7
child 6453 11c578d30bd3
equal deleted inserted replaced
6379:ef4288298e57 6380:1ff5ad1d771b 
   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;
hedgewars