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

Merged revision(s) 51588 #947a3dc602 from trunk:

Browse Source 
LCL: Pass the PartStart parameter of TCustomListView.FindCaption forward. It was ignored.
........

git-svn-id: branches/fixes_1_6@51612 -
This commit is contained in:
maxim 2016-02-13 12:44:21 +00:00
parent 26e14895f4
commit 991b685619
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -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;

2
lcl/include/customlistview.inc
View File

@ -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;