X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_mapoptimization.pas;h=efeac7d6dab3c7668fe0d5fd06613cf08495f87c;hb=6fb9c23afad22a71679525dc44ea32675d73609f;hp=56eb889402ed087291951f9f6398828488d02dd4;hpb=b72e164f0fb64e3301ae8ca217449daf6a9d301d;p=d2df-editor.git

diff --git a/src/editor/f_mapoptimization.pas b/src/editor/f_mapoptimization.pas
index 56eb889..efeac7d 100644
--- a/src/editor/f_mapoptimization.pas
+++ b/src/editor/f_mapoptimization.pas
@@ -1,13 +1,13 @@
 unit f_mapoptimization;
 
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
 
 interface
 
 uses
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes,
   Graphics, Controls, Forms, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls;
+  ComCtrls, ExtCtrls, utils;
 
 type
   TMapOptimizationForm = class (TForm)
@@ -121,7 +121,6 @@ begin
           b := True;
         end;
         mOptimizationResult.Lines.Add('  '+MainForm.lbTextureList.Items[a]);
-        g_DeleteTexture(MainForm.lbTextureList.Items[a]);
         MainForm.lbTextureList.Items.Delete(a);
       end
     else