From a67684a1a65afb9659a0a9cc03dc70f77c759b26 Mon Sep 17 00:00:00 2001 From: paul Date: Sun, 24 May 2009 10:19:02 +0000 Subject: [PATCH] lcl: fix THeaderSections.AddItem (bug #0013806 by Hans-Peter Diettrich) git-svn-id: trunk@20162 - --- lcl/include/headercontrol.inc | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lcl/include/headercontrol.inc b/lcl/include/headercontrol.inc index 50bc28b7dd..89c702c6a9 100644 --- a/lcl/include/headercontrol.inc +++ b/lcl/include/headercontrol.inc @@ -433,10 +433,13 @@ begin end; function THeaderSections.AddItem(Item: THeaderSection; Index: Integer): THeaderSection; -var i:longint; +var + i: longint; begin if Item = nil then - Result := FHeaderControl.CreateSection; + Result := FHeaderControl.CreateSection + else + Result := Item; Result.Collection := Self; if Index > Count then @@ -444,11 +447,10 @@ begin Result.Index := Index; //updates OriginalIndex so that it has the value Index would have if there //never was a move - for i:=0 to Count - 1 do - if Items[i].FOriginalIndex>=Index then - Items[i].FOriginalIndex:=Items[i].FOriginalIndex + 1; + for i := 0 to Count - 1 do + if Items[i].FOriginalIndex >= Index then + Items[i].FOriginalIndex := Items[i].FOriginalIndex + 1; Result.FOriginalIndex := Index; - end; function THeaderSections.Insert(Index: Integer): THeaderSection;