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

LCL: TCustomListView: started OnDataFind event. issue #7131

Browse Source 
git-svn-id: trunk@31496 -
This commit is contained in:
zeljko 2011-07-02 12:50:31 +00:00
parent dbd9fd02b7
commit 116a005410
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/comctrls.pp
View File

@ -956,8 +956,17 @@ type
TItemChange = (ctText, ctImage, ctState); TItemChange = (ctText, ctImage, ctState);
TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport); TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport);
TItemFind = (ifData, ifPartialString, ifExactString, ifNearest);
TSearchDirection = (sdLeft, sdRight, sdAbove, sdBelow, sdAll);
TLVChangeEvent = procedure(Sender: TObject; Item: TListItem; TLVChangeEvent = procedure(Sender: TObject; Item: TListItem;
Change: TItemChange) of object; Change: TItemChange) of object;
TLVDataFindEvent = procedure(Sender: TObject; AFind: TItemFind;
const AFindString: string; const AFindPosition: TPoint; AFindData: Pointer;
AStartIndex: Integer; ADirection: TSearchDirection; AWrap: Boolean;
var AIndex: Integer) of object;
TLVColumnClickEvent = procedure(Sender: TObject; TLVColumnClickEvent = procedure(Sender: TObject;
Column: TListColumn) of object; Column: TListColumn) of object;
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn; TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn;
@ -1031,6 +1040,7 @@ type
FDefaultItemHeight: integer; FDefaultItemHeight: integer;
FHotTrackStyles: TListHotTrackStyles; FHotTrackStyles: TListHotTrackStyles;
FIconOptions: TIconOptions; FIconOptions: TIconOptions;
FOnDataFind: TLVDataFindEvent;
FOwnerData: Boolean; FOwnerData: Boolean;
FOwnerDataItem: TOwnerDataListItem; FOwnerDataItem: TOwnerDataListItem;
FListItems: TListItems; FListItems: TListItems;
@ -1165,6 +1175,7 @@ type
property OnColumnClick: TLVColumnClickEvent read FOnColumnClick write FOnColumnClick; property OnColumnClick: TLVColumnClickEvent read FOnColumnClick write FOnColumnClick;
property OnCompare: TLVCompareEvent read FOnCompare write FOnCompare; property OnCompare: TLVCompareEvent read FOnCompare write FOnCompare;
property OnData: TLVDataEvent read FOnData write FOnData; property OnData: TLVDataEvent read FOnData write FOnData;
property OnDataFind: TLVDataFindEvent read FOnDataFind write FOnDataFind;
property OnDeletion: TLVDeletedEvent read FOnDeletion write FOnDeletion; property OnDeletion: TLVDeletedEvent read FOnDeletion write FOnDeletion;
property OnInsert: TLVInsertEvent read FOnInsert write FOnInsert; property OnInsert: TLVInsertEvent read FOnInsert write FOnInsert;
property OnItemChecked: TLVCheckedItemEvent read FOnItemChecked write FOnItemChecked; property OnItemChecked: TLVCheckedItemEvent read FOnItemChecked write FOnItemChecked;
@ -1288,6 +1299,7 @@ type
property OnCustomDrawItem; property OnCustomDrawItem;
property OnCustomDrawSubItem; property OnCustomDrawSubItem;
property OnData; property OnData;
property OnDataFind;
property OnDblClick; property OnDblClick;
property OnDeletion; property OnDeletion;
property OnDragDrop; property OnDragDrop;