diff -Naur lcl_old\comctrls.pp lcl\comctrls.pp --- lcl_old\comctrls.pp Tue Aug 10 04:07:48 2010 +++ lcl\comctrls.pp Tue Aug 31 08:07:21 2010 @@ -1968,6 +1968,8 @@ var AllowEdit: Boolean) of object; TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode; var S: string) of object; + TTVEditEndEvent = procedure(Sender: TObject; Node: TTreeNode; + Cancel: Boolean) of object; TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean) of object; TTVCollapsingEvent = procedure(Sender: TObject; Node: TTreeNode; @@ -2398,6 +2400,7 @@ FOnDeletion: TTVExpandedEvent; FOnEditing: TTVEditingEvent; FOnEdited: TTVEditedEvent; + FOnEditEnd: TTVEditEndEvent; FOnExpanded: TTVExpandedEvent; FOnExpanding: TTVExpandingEvent; FOnGetImageIndex: TTVExpandedEvent; @@ -2583,6 +2586,7 @@ property OnDeletion: TTVExpandedEvent read FOnDeletion write FOnDeletion; property OnEdited: TTVEditedEvent read FOnEdited write FOnEdited; property OnEditing: TTVEditingEvent read FOnEditing write FOnEditing; + property OnEditEnd: TTVEditEndEvent read FOnEditEnd write FOnEditEnd; property OnExpanded: TTVExpandedEvent read FOnExpanded write FOnExpanded; property OnExpanding: TTVExpandingEvent read FOnExpanding write FOnExpanding; property OnGetImageIndex: TTVExpandedEvent @@ -2731,6 +2735,7 @@ property OnDragOver; property OnEdited; property OnEditing; + property OnEditEnd; //property OnEndDock; property OnEndDrag; property OnEnter; diff -Naur lcl_old\include\treeview.inc lcl\include\treeview.inc --- lcl_old\include\treeview.inc Thu Aug 12 14:24:11 2010 +++ lcl\include\treeview.inc Tue Aug 31 08:04:26 2010 @@ -4685,6 +4685,7 @@ Node.Text:=NewText; end; end; + if Assigned(FOnEditEnd) then FOnEditEnd(Self, FEditingItem, Cancel); end; FEditingItem := nil; Invalidate;