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