index 56eb889402ed087291951f9f6398828488d02dd4..e7aad24b53f9c31dd9a4d1f5b54eeea616eae1ee 100644 (file)
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)
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;
// Нашли неиспользуемую текстуру:
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