pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Remove check for Tree version in ReadChunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1064 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-16 00:50:30 +00:00
parent 6810a02dfd
commit 346578917e
1 changed files with 1 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -23426,30 +23426,7 @@ begin
BaseChunk: BaseChunk:
begin begin
// Load base chunk's body (chunk header has already been consumed). // Load base chunk's body (chunk header has already been consumed).
if Version > 1 then Stream.Read(ChunkBody, SizeOf(ChunkBody));
Stream.Read(ChunkBody, SizeOf(ChunkBody))
else
begin
with ChunkBody do
begin
// In version prior to 2 there was a smaller chunk body. Hence we have to read it entry by entry now.
Stream.Read(ChildCount, SizeOf(ChildCount));
Stream.Read(NodeHeight, SizeOf(NodeHeight));
// TVirtualNodeStates was a byte sized type in version 1.
States := [];
Stream.Read(States, SizeOf(Byte));
// vsVisible is now in the place where vsSelected was before, but every node was visible in the old version
// so we need to fix this too.
if vsVisible in States then
Include(States, vsSelected)
else
Include(States, vsVisible);
Stream.Read(Align, SizeOf(Align));
Stream.Read(CheckState, SizeOf(CheckState));
Stream.Read(CheckType, SizeOf(CheckType));
end;
end;
with Node^ do with Node^ do
begin begin
// Set states first, in case the node is invisible. // Set states first, in case the node is invisible.