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

LCL: TCustomListView added TLVDataHintEvent and TLVDataStateChangeEvent, also published OnDataHint and OnDataStateChange for TListView for delphi compatibility.

Browse Source 
git-svn-id: trunk@35258 -
This commit is contained in:
zeljko 2012-02-09 08:11:15 +00:00
parent 5504dab625
commit 403ef1bfd2
2 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/comctrls.pp
View File

@ -1166,6 +1166,10 @@ type
AStartIndex: Integer; ADirection: TSearchDirection; AWrap: Boolean;
var AIndex: Integer) of object;
TLVDataHintEvent = procedure(Sender: TObject; StartIndex, EndIndex: Integer) of object;
TLVDataStateChangeEvent = procedure(Sender: TObject; StartIndex,
EndIndex: Integer; OldState, NewState: TListItemStates) of object;
TLVColumnClickEvent = procedure(Sender: TObject;
Column: TListColumn) of object;
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn;
@ -1240,7 +1244,7 @@ type
FDefaultItemHeight: integer;
FHotTrackStyles: TListHotTrackStyles;
FIconOptions: TIconOptions;
FOnDataFind: TLVDataFindEvent;
FOwnerData: Boolean;
FOwnerDataItem: TOwnerDataListItem;
FListItems: TListItems;
@ -1267,6 +1271,9 @@ type
FOnColumnClick: TLVColumnClickEvent;
FOnCompare: TLVCompareEvent;
FOnData: TLVDataEvent;
FOnDataFind: TLVDataFindEvent;
FOnDataHint: TLVDataHintEvent;
FOnDataStateChange: TLVDataStateChangeEvent;
FOnDeletion: TLVDeletedEvent;
FOnInsert: TLVInsertEvent;
FOnItemChecked: TLVCheckedItemEvent;
@ -1355,6 +1362,10 @@ type
function GetUpdateCount: Integer;
procedure DoGetOwnerData(Item: TListItem); virtual;
function DoOwnerDataHint(AStartIndex, AEndIndex: Integer): Boolean; virtual;
function DoOwnerDataStateChange(AStartIndex, AEndIndex: Integer; AOldState,
ANewState: TListItemStates): Boolean; virtual;
protected
property AllocBy: Integer read FAllocBy write SetAllocBy default 0;
property AutoSort: Boolean read FAutoSort write FAutoSort default True; // when we click header column sort automatically
@ -1381,6 +1392,9 @@ type
property OnCompare: TLVCompareEvent read FOnCompare write FOnCompare;
property OnData: TLVDataEvent read FOnData write FOnData;
property OnDataFind: TLVDataFindEvent read FOnDataFind write FOnDataFind;
property OnDataHint: TLVDataHintEvent read FOnDataHint write FOnDataHint;
property OnDataStateChange: TLVDataStateChangeEvent read FOnDataStateChange write FOnDataStateChange;
property OnDeletion: TLVDeletedEvent read FOnDeletion write FOnDeletion;
property OnInsert: TLVInsertEvent read FOnInsert write FOnInsert;
property OnItemChecked: TLVCheckedItemEvent read FOnItemChecked write FOnItemChecked;
@ -1506,6 +1520,8 @@ type
property OnCustomDrawSubItem;
property OnData;
property OnDataFind;
property OnDataHint;
property OnDataStateChange;
property OnDblClick;
property OnDeletion;
property OnDragDrop;

16
lcl/include/customlistview.inc
View File

@ -593,6 +593,22 @@ begin
if Assigned(OnData) then OnData(Self, Item);
end;
function TCustomListView.DoOwnerDataHint(AStartIndex, AEndIndex: Integer
): Boolean;
begin
Result := Assigned(FOnDataHint);
if Result then
FOnDataHint(Self, AStartIndex, AEndIndex);
end;
function TCustomListView.DoOwnerDataStateChange(AStartIndex,
AEndIndex: Integer; AOldState, ANewState: TListItemStates): Boolean;
begin
Result := Assigned(FOnDataStateChange);
if Result then
FOnDataStateChange(Self, AStartIndex, AEndIndex, AOldState, ANewState);
end;
{------------------------------------------------------------------------------}
{ TCustomListView SetColumns }
{------------------------------------------------------------------------------}