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

lcl: add OnEditingEnd event for TTreeView by mmvisual (feature #0017313)

Browse Source 
git-svn-id: trunk@28561 -
This commit is contained in:
paul 2010-11-30 05:58:15 +00:00
parent 70fdb2d0ee
commit ab77d54fec
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

@ -1982,6 +1982,8 @@ type
TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean) of object;
TTVEditingEndEvent = procedure(Sender: TObject; Node: TTreeNode;
Cancel: Boolean) of object;
TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode;
var S: string) of object;
TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode;
@ -2420,6 +2422,7 @@ type
FOnCustomDrawItem: TTVCustomDrawItemEvent;
FOnDeletion: TTVExpandedEvent;
FOnEditing: TTVEditingEvent;
FOnEditingEnd: TTVEditingEndEvent;
FOnEdited: TTVEditedEvent;
FOnExpanded: TTVExpandedEvent;
FOnExpanding: TTVExpandingEvent;
@ -2612,6 +2615,7 @@ type
property OnDeletion: TTVExpandedEvent read FOnDeletion write FOnDeletion;
property OnEdited: TTVEditedEvent read FOnEdited write FOnEdited;
property OnEditing: TTVEditingEvent read FOnEditing write FOnEditing;
property OnEditingEnd: TTVEditingEndEvent read FOnEditingEnd write FOnEditingEnd;
property OnExpanded: TTVExpandedEvent read FOnExpanded write FOnExpanded;
property OnExpanding: TTVExpandingEvent read FOnExpanding write FOnExpanding;
property OnGetImageIndex: TTVExpandedEvent
@ -2766,6 +2770,7 @@ type
property OnDragOver;
property OnEdited;
property OnEditing;
property OnEditingEnd;
//property OnEndDock;
property OnEndDrag;
property OnEnter;

1
lcl/include/treeview.inc
View File

@ -4779,6 +4779,7 @@ begin
Node.Text:=NewText;
end;
end;
if Assigned(FOnEditingEnd) then FOnEditingEnd(Self, FEditingItem, Cancel);
end;
FEditingItem := nil;
Invalidate;