index 7319645ffb72f1498a60a801089c0f8b25c3a1fe..d1210cd5b38a793ae3ecc53e803bd8c39db462aa 100644 (file)
uses
LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, f_addresource,
- StdCtrls, ExtCtrls, utils, Imaging, ImagingTypes, ImagingUtility,
- e_log;
+ StdCtrls, ExtCtrls, utils, Imaging, ImagingTypes, ImagingUtility;
type
TAddTextureForm = class (TAddResourceForm)
InitImage(img);
if not LoadImageFromMemory(Data, DataSize, img) then
- begin
- e_WriteLog('Invalid image format?', MSG_WARNING);
Exit;
- end;
Width := img.width;
Height := img.height;
// ii^ := clr.a; Inc(ii);
end;
end;
-
+ FreeImage(img);
Result := BitMap;
end;