X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_mapoptimization.pas;h=e7aad24b53f9c31dd9a4d1f5b54eeea616eae1ee;hp=56eb889402ed087291951f9f6398828488d02dd4;hb=3dc2fe6b3d29cd54425db8f590e922f2dce50e99;hpb=212386359ea0af4e0a861f9bf92c45a1516ac87c

diff --git a/src/editor/f_mapoptimization.pas b/src/editor/f_mapoptimization.pas
index 56eb889..e7aad24 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)
@@ -105,7 +105,7 @@ begin
 
     for i := 0 to High(gPanels) do
       if (gPanels[i].PanelType <> 0) and
-         (gPanels[i].TextureName = MainForm.lbTextureList.Items[a]) then
+         (gPanels[i].TextureName = utf2win(MainForm.lbTextureList.Items[a])) then
       begin
         ok := False;
         Break;
@@ -114,14 +114,13 @@ begin
   // Нашли неиспользуемую текстуру:
     if ok then
       begin
-        g_DeleteTexture(MainForm.lbTextureList.Items[a]);
+        g_DeleteTexture(utf2win(MainForm.lbTextureList.Items[a]));
         if not b then
         begin
           mOptimizationResult.Lines.Add(_lc[I_OPT_DELETED_TEXTURES]);
           b := True;
         end;
         mOptimizationResult.Lines.Add('  '+MainForm.lbTextureList.Items[a]);
-        g_DeleteTexture(MainForm.lbTextureList.Items[a]);
         MainForm.lbTextureList.Items.Delete(a);
       end
     else