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

lcl: fix THeaderSections.AddItem (bug #0013806 by Hans-Peter Diettrich)

Browse Source 
git-svn-id: trunk@20162 -
This commit is contained in:
paul 2009-05-24 10:19:02 +00:00
parent a8544fc87d
commit a67684a1a6
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/headercontrol.inc
View File

@ -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
@ -448,7 +451,6 @@ begin
if Items[i].FOriginalIndex >= Index then
Items[i].FOriginalIndex := Items[i].FOriginalIndex + 1;
Result.FOriginalIndex := Index;
end;
function THeaderSections.Insert(Index: Integer): THeaderSection;