X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_addresource_sky.pas;h=98a8026ac10961fb13f3f1fe8fb493d1af1dcd05;hb=6fb9c23afad22a71679525dc44ea32675d73609f;hp=9211205ecde998b2a9d2542c6ecc963bd2040556;hpb=6869d799c63b2909e4e0c3b2cd0b486903518ae2;p=d2df-editor.git diff --git a/src/editor/f_addresource_sky.pas b/src/editor/f_addresource_sky.pas index 9211205..98a8026 100644 --- a/src/editor/f_addresource_sky.pas +++ b/src/editor/f_addresource_sky.pas @@ -44,7 +44,7 @@ var Height: Integer; ColorDepth: Integer; ImageSize: Integer; - I, x, y: Integer; + x, y: Integer; BitMap: TBitMap; TextureData: Pointer; @@ -62,7 +62,7 @@ begin WAD := TWADEditor_1.Create(); WAD.ReadFile(WADName); - WAD.GetResource(SectionName, ResourceName, TextureData, ImageSize); + WAD.GetResource(utf2win(SectionName), utf2win(ResourceName), TextureData, ImageSize); WAD.Free(); @@ -152,7 +152,7 @@ begin SectionName := '..'; // WAD файл: - a := cbWADList.Items.IndexOf(win2utf(FileName)); + a := cbWADList.Items.IndexOf(FileName); if a <> -1 then begin cbWADList.ItemIndex := a; @@ -160,7 +160,7 @@ begin end; // Секция: - a := cbSectionsList.Items.IndexOf(win2utf(SectionName)); + a := cbSectionsList.Items.IndexOf(SectionName); if a <> -1 then begin cbSectionsList.ItemIndex := a; @@ -168,7 +168,7 @@ begin end; // Ресурс: - a := lbResourcesList.Items.IndexOf(win2utf(ResourceName)); + a := lbResourcesList.Items.IndexOf(ResourceName); if a <> -1 then begin lbResourcesList.ItemIndex := a;