index 98a8026ac10961fb13f3f1fe8fb493d1af1dcd05..49034d2239db2e0ff74db35a9d7756ef21496e92 100644 (file)
implementation
uses
implementation
uses
- BinEditor, WADEDITOR, f_main, g_language;
+ WADEDITOR, f_main, g_language, g_resources;
{$R *.lfm}
{$R *.lfm}
BitMap: TBitMap;
TextureData: Pointer;
BitMap: TBitMap;
TextureData: Pointer;
- WAD: TWADEditor_1;
WADName: String;
SectionName: String;
ResourceName: String;
begin
Result := nil;
WADName: String;
SectionName: String;
ResourceName: String;
begin
Result := nil;
-
-// Загружаем ресурс текстуры из WAD:
g_ProcessResourceStr(ResourceStr, WADName, SectionName, ResourceName);
g_ProcessResourceStr(ResourceStr, WADName, SectionName, ResourceName);
-
- WAD := TWADEditor_1.Create();
- WAD.ReadFile(WADName);
-
- WAD.GetResource(utf2win(SectionName), utf2win(ResourceName), TextureData, ImageSize);
-
- WAD.Free();
+ g_ReadResource(WADName, SectionName, ResourceName, TextureData, ImageSize);
InitImage(img);
if not LoadImageFromMemory(TextureData, ImageSize, img) then
InitImage(img);
if not LoadImageFromMemory(TextureData, ImageSize, img) then