paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +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; AStartIndex: Integer; ADirection: TSearchDirection; AWrap: Boolean;
var AIndex: Integer) of object; 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; TLVColumnClickEvent = procedure(Sender: TObject;
Column: TListColumn) of object; Column: TListColumn) of object;
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn; TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn;
@ -1240,7 +1244,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;
@ -1267,6 +1271,9 @@ type
FOnColumnClick: TLVColumnClickEvent; FOnColumnClick: TLVColumnClickEvent;
FOnCompare: TLVCompareEvent; FOnCompare: TLVCompareEvent;
FOnData: TLVDataEvent; FOnData: TLVDataEvent;
FOnDataFind: TLVDataFindEvent;
FOnDataHint: TLVDataHintEvent;
FOnDataStateChange: TLVDataStateChangeEvent;
FOnDeletion: TLVDeletedEvent; FOnDeletion: TLVDeletedEvent;
FOnInsert: TLVInsertEvent; FOnInsert: TLVInsertEvent;
FOnItemChecked: TLVCheckedItemEvent; FOnItemChecked: TLVCheckedItemEvent;
@ -1355,6 +1362,10 @@ type
function GetUpdateCount: Integer; function GetUpdateCount: Integer;
procedure DoGetOwnerData(Item: TListItem); virtual; procedure DoGetOwnerData(Item: TListItem); virtual;
function DoOwnerDataHint(AStartIndex, AEndIndex: Integer): Boolean; virtual;
function DoOwnerDataStateChange(AStartIndex, AEndIndex: Integer; AOldState,
ANewState: TListItemStates): Boolean; virtual;
protected protected
property AllocBy: Integer read FAllocBy write SetAllocBy default 0; 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 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 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 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 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;
@ -1506,6 +1520,8 @@ type
property OnCustomDrawSubItem; property OnCustomDrawSubItem;
property OnData; property OnData;
property OnDataFind; property OnDataFind;
property OnDataHint;
property OnDataStateChange;
property OnDblClick; property OnDblClick;
property OnDeletion; property OnDeletion;
property OnDragDrop; property OnDragDrop;

16
lcl/include/customlistview.inc
View File

@ -593,6 +593,22 @@ begin
if Assigned(OnData) then OnData(Self, Item); if Assigned(OnData) then OnData(Self, Item);
end; 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 } { TCustomListView SetColumns }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}