Dear All,
procedure TspCompressedStoredSkin.DefineProperties(Filer: TFiler);
begin
inherited;
Filer.DefineBinaryProperty('CompressedData', ReadData, WriteData, True);
end;
procedure TspCompressedStoredSkin.ReadData;
begin
FCompressedStream.LoadFromStream(Reader);
end;
On Delphi, this method returns rigth size(38750 byte) and it's work.
but on Lazarus returns wrong size(38764 byte).
Why? Is it a bug?
Thanks
Best regards,
Brian
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
