10 lines
243 B (Stored with Git LFS)
ObjectPascal
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.
|