index 9211205ecde998b2a9d2542c6ecc963bd2040556..49034d2239db2e0ff74db35a9d7756ef21496e92 100644 (file)
implementation
uses
- BinEditor, WADEDITOR, f_main, g_language;
+ WADEDITOR, f_main, g_language, g_resources;
{$R *.lfm}
Height: Integer;
ColorDepth: Integer;
ImageSize: Integer;
- I, x, y: Integer;
+ x, y: Integer;
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(SectionName, ResourceName, TextureData, ImageSize);
-
- WAD.Free();
+ g_ReadResource(WADName, SectionName, ResourceName, TextureData, ImageSize);
InitImage(img);
if not LoadImageFromMemory(TextureData, ImageSize, img) then
SectionName := '..';
// WAD файл:
- a := cbWADList.Items.IndexOf(win2utf(FileName));
+ a := cbWADList.Items.IndexOf(FileName);
if a <> -1 then
begin
cbWADList.ItemIndex := a;
end;
// Секция:
- a := cbSectionsList.Items.IndexOf(win2utf(SectionName));
+ a := cbSectionsList.Items.IndexOf(SectionName);
if a <> -1 then
begin
cbSectionsList.ItemIndex := a;
end;
// Ресурс:
- a := lbResourcesList.Items.IndexOf(win2utf(ResourceName));
+ a := lbResourcesList.Items.IndexOf(ResourceName);
if a <> -1 then
begin
lbResourcesList.ItemIndex := a;