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

* Partially revert 1063

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1067 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-16 03:19:41 +00:00
parent c7ec9d694e
commit b4ff3cb583
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -923,7 +923,7 @@ type
private
FTree: TBaseVirtualTree;
FFormatEtcArray: TFormatEtcArray;
FCurrentIndex: LongWord;
FCurrentIndex: Integer;
public
constructor Create(Tree: TBaseVirtualTree; AFormatEtcArray: TFormatEtcArray);
@ -21853,7 +21853,7 @@ begin
if ([vsSelected, vsDisabled] * NewItems[I].States <> []) or
(Constrained and (Cardinal(FLastSelectionLevel) <> GetNodeLevel(NewItems[I]))) or
(SiblingConstrained and (FRangeAnchor.Parent <> NewItems[I].Parent)) then
Inc(NewItems[I])
Inc(PtrUInt(NewItems[I]))
else
Include(NewItems[I].States, vsSelected);
end;
@ -22239,7 +22239,7 @@ begin
if FindNodeInSelection(Node, Index, -1, -1) then
begin
Exclude(Node.States, vsSelected);
Inc(FSelection[Index]);
Inc(PtrUInt(FSelection[Index]));
end;
end;