X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_addresource_sky.pas;h=49034d2239db2e0ff74db35a9d7756ef21496e92;hp=98a8026ac10961fb13f3f1fe8fb493d1af1dcd05;hb=7bc7d5022ae82e37fee8b3003432f9294176a470;hpb=925cb8bc2e99a4a04ad1b6029672976d0f4ca42b diff --git a/src/editor/f_addresource_sky.pas b/src/editor/f_addresource_sky.pas index 98a8026..49034d2 100644 --- a/src/editor/f_addresource_sky.pas +++ b/src/editor/f_addresource_sky.pas @@ -31,7 +31,7 @@ var implementation uses - BinEditor, WADEDITOR, f_main, g_language; + WADEDITOR, f_main, g_language, g_resources; {$R *.lfm} @@ -48,23 +48,14 @@ var BitMap: TBitMap; TextureData: Pointer; - WAD: TWADEditor_1; WADName: String; SectionName: String; ResourceName: String; begin Result := nil; - -// Загружаем ресурс текстуры из WAD: 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