enderalse/_build/Enderal - Decompress records.pas
2022-09-05 17:44:25 +02:00

10 lines
243 B (Stored with Git LFS)
ObjectPascal

unit userscript;
function Process(e: IInterface): Integer;
begin
if GetElementNativeValues(e, 'Record Header\Record Flags\Compressed') <> 0 then
SetElementNativeValues(e, 'Record Header\Record Flags\Compressed', 0);
end;
end.