index f9ebe0a83fc499ab110bf1718250b61d94178f0a..ce9a073d40b5e6fafddff15b492908cfb9b0f213 100644 (file)
AddTextureForm: TAddTextureForm;
function IsAnim(Res: String): Boolean;
-function GetFrame(Res: String; var Data: Pointer;
+function GetFrame(Res: String; var Data: Pointer; var DataLen: Integer;
var Width, Height: Word): Boolean;
implementation
uses
- BinEditor, WADEDITOR, f_main, g_textures, WADSTRUCT, CONFIG, g_map,
+ BinEditor, WADEDITOR, WADSTRUCT, f_main, g_textures, CONFIG, g_map,
g_language;
type
Result := ok;
end;
-function GetFrame(Res: String; var Data: Pointer;
+function GetFrame(Res: String; var Data: Pointer; var DataLen: Integer;
var Width, Height: Word): Boolean;
var
AnimWAD: Pointer;
Exit;
end;
+ DataLen := Len;
+
Height := config.ReadInt('', 'frameheight', 0);
Width := config.ReadInt('', 'framewidth', 0);