paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 20:50:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Add parameter ItemData:TObject to virtual TCustomControlFilterEdit.DoDefaultFilterItem. Was removed in r52716 #14b4d951fc.

Browse Source 
git-svn-id: trunk@52743 -
This commit is contained in:
juha 2016-07-24 11:08:56 +00:00
parent 74ee0f9c52
commit bd6876da17
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -225,7 +225,8 @@ type
fOnCheckItem: TCheckItemEvent;
function DoFilterItem(const ACaption, FilterLC: string;
ItemData: TObject): Boolean;
function DoDefaultFilterItem(const ACaption, FilterLC: string): Boolean; virtual;
function DoDefaultFilterItem(const ACaption, FilterLC: string;
const ItemData: TObject): Boolean; virtual;
procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
procedure EditChange; override;
procedure EditEnter; override;
@ -1125,7 +1126,8 @@ begin
inherited Destroy;
end;
function TCustomControlFilterEdit.DoDefaultFilterItem(const ACaption, FilterLC: string): Boolean;
function TCustomControlFilterEdit.DoDefaultFilterItem(const ACaption, FilterLC: string;
const ItemData: TObject): Boolean;
begin
Result := (FilterLC='') or (Pos(FilterLC,UTF8LowerCase(ACaption))>0);
end;
@ -1148,7 +1150,7 @@ begin
// Filter by item's caption text if needed.
if not (Result or Done) then
Result := DoDefaultFilterItem(ACaption, FilterLC);
Result := DoDefaultFilterItem(ACaption, FilterLC, ItemData);
end;
procedure TCustomControlFilterEdit.OnIdle(Sender: TObject; var Done: Boolean);