Commit 2a7b7a9

Nick committed on
Small bug in the header sections
commit 2a7b7a9da970065c6192e83cfa9fea3424f976ec parent e485442
1 changed files +2−3
Modifiedtracker.pas +2−3
@@ -1472,7 +1472,6 @@ procedure TfrmTracker.HeaderControl1MouseDown(Sender: TObject;
1472 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 1472 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1473 var 1473 var
1474 SelectedSection: THeaderSection; 1474 SelectedSection: THeaderSection;
1475 Section: TCollectionItem;
1476 P: TPoint; 1475 P: TPoint;
1477 I: Integer; 1476 I: Integer;
1478 begin 1477 begin
@@ -1482,8 +1481,8 @@ begin
1482 P.X := X; 1481 P.X := X;
1483 P.Y := Y; 1482 P.Y := Y;
1484 1483
1485 for Section in HeaderControl1.Sections do 1484 for I := 1 to 4 do
1486 (Section as THeaderSection).ImageIndex := 0; 1485 HeaderControl1.Sections[I].ImageIndex := 0;
1487 1486
1488 SelectedSection := HeaderControl1.Sections[HeaderControl1.GetSectionAt(P)]; 1487 SelectedSection := HeaderControl1.Sections[HeaderControl1.GetSectionAt(P)];
1489 SelectedSection.ImageIndex := 1; 1488 SelectedSection.ImageIndex := 1;