paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 13:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

VirtualTreeViews: Fix compilation with FPC 3.2. Issue #36047.

Browse Source 
git-svn-id: branches/fixes_2_0@61814 -
This commit is contained in:
wp 2019-09-05 08:21:04 +00:00
parent c3931c1433
commit 0471a9bf67
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview/VirtualTrees.pas
View File

@ -8014,12 +8014,12 @@ begin
if OldPosition < Position then if OldPosition < Position then
begin begin
// column will be moved up so move down other entries // column will be moved up so move down other entries
Move(FPositionToIndex[OldPosition + 1], FPositionToIndex[OldPosition], (Position - OldPosition) * SizeOf(Cardinal)); System.Move(FPositionToIndex[OldPosition + 1], FPositionToIndex[OldPosition], (Position - OldPosition) * SizeOf(Cardinal));
end end
else else
begin begin
// column will be moved down so move up other entries // column will be moved down so move up other entries
Move(FPositionToIndex[Position], FPositionToIndex[Position + 1], (OldPosition - Position) * SizeOf(Cardinal)); System.Move(FPositionToIndex[Position], FPositionToIndex[Position + 1], (OldPosition - Position) * SizeOf(Cardinal));
end; end;
FPositionToIndex[Position] := Column.Index; FPositionToIndex[Position] := Column.Index;
end; end;
@ -8264,7 +8264,7 @@ begin
begin begin
// Index found. Move all higher entries one step down and remove the last entry. // Index found. Move all higher entries one step down and remove the last entry.
if I < Upper then if I < Upper then
Move(FPositionToIndex[I + 1], FPositionToIndex[I], (Upper - I) * SizeOf(TColumnIndex)); System.Move(FPositionToIndex[I + 1], FPositionToIndex[I], (Upper - I) * SizeOf(TColumnIndex));
end; end;
// Decrease all indices, which are greater than the index to be deleted. // Decrease all indices, which are greater than the index to be deleted.
if FPositionToIndex[I] > OldIndex then if FPositionToIndex[I] > OldIndex then