index 56eb889402ed087291951f9f6398828488d02dd4..efeac7d6dab3c7668fe0d5fd06613cf08495f87c 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)
b := True;
end;
mOptimizationResult.Lines.Add(' '+MainForm.lbTextureList.Items[a]);
- g_DeleteTexture(MainForm.lbTextureList.Items[a]);
MainForm.lbTextureList.Items.Delete(a);
end
else