index bb4fa10e2ed6a12d92c739c050b3ea0577d5367c..e7b03613ddcb20db4c4f00e523db8b1647548905 100644 (file)
implementation
uses
- WADEDITOR, f_main, g_language, g_resources;
+ BinEditor, WADEDITOR, f_main, g_language;
{$R *.lfm}
TextureData: Pointer;
ImageSize: Integer;
+ WAD: TWADEditor_1;
WADName: String;
SectionName: String;
ResourceName: String;
begin
Result := nil;
+
+// Загружаем ресурс текстуры из WAD:
g_ProcessResourceStr(ResourceStr, WADName, SectionName, ResourceName);
- g_ReadResource(WADName, SectionName, ResourceName, TextureData, ImageSize);
+
+ WAD := TWADEditor_1.Create();
+ WAD.ReadFile(WADName);
+
+ WAD.GetResource(utf2win(SectionName), utf2win(ResourceName), TextureData, ImageSize);
+
+ WAD.Free();
(* !!! copypaste from f_addresource_texture.CreateBitMap *)