From 991b6856194d9f8c9ee78deee34a390ab678926e Mon Sep 17 00:00:00 2001 From: maxim Date: Sat, 13 Feb 2016 12:44:21 +0000 Subject: [PATCH] Merged revision(s) 51588 #947a3dc602 from trunk: LCL: Pass the PartStart parameter of TCustomListView.FindCaption forward. It was ignored. ........ git-svn-id: branches/fixes_1_6@51612 - --- lcl/comctrls.pp | 3 ++- lcl/include/customlistview.inc | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index 88111e44a6..6d41adff48 100644 --- a/lcl/comctrls.pp +++ b/lcl/comctrls.pp @@ -1552,7 +1552,8 @@ type procedure Clear; procedure EndUpdate; procedure Repaint; override; - function FindCaption(StartIndex: Integer; Value: string; Partial, Inclusive, Wrap: Boolean; PartStart: Boolean = True): TListItem; + function FindCaption(StartIndex: Integer; Value: string; + Partial, Inclusive, Wrap: Boolean; PartStart: Boolean = True): TListItem; function FindData(StartIndex: Integer; Value: Pointer; Inclusive, Wrap: Boolean): TListItem; function GetHitTestInfoAt(X, Y: Integer): THitTests; function GetItemAt(x,y: integer): TListItem; diff --git a/lcl/include/customlistview.inc b/lcl/include/customlistview.inc index 595b05c9e1..3da12d3585 100644 --- a/lcl/include/customlistview.inc +++ b/lcl/include/customlistview.inc @@ -1107,7 +1107,7 @@ end; function TCustomListView.FindCaption(StartIndex: Integer; Value: string; Partial, Inclusive, Wrap: Boolean; PartStart: Boolean = True): TListItem; begin - Result := FListItems.FindCaption(StartIndex, Value, Partial, Inclusive, Wrap); + Result := FListItems.FindCaption(StartIndex, Value, Partial, Inclusive, Wrap, PartStart); end; function TCustomListView.FindData(StartIndex: Integer; Value: Pointer;